VB.NET调用FatalAppExitA仅显示等号字符问题咨询

根本成因 #

当前代码的P/Invoke声明完全沿用VB6兼容语法，和VB.NET运行时的封送规则存在两处不匹配，直接引发了乱码异常：

• 字符集映射错位：声明调用的是ANSI版FatalAppExitA，但VB.NET默认将托管String类型封送为Unicode编码字符串，没有在声明中显式指定字符集转换规则的前提下，API拿到的字符串指针指向无效内存块，最终解析出的乱码结果就是单个"="字符。
• 参数长度不匹配：旧声明中用Long类型传入uAction参数，在VB.NET中Long是64位整数，但Win32 API定义的uAction是32位无符号整数，长度错位会直接打乱栈上的参数布局，进一步加重内存读取错误。

可直接运行的修正代码 #

' 推荐对接Unicode版本API，和.NET默认字符串编码完全兼容，无需额外转码
<DllImport("kernel32.dll", SetLastError:=True, CharSet:=CharSet.Unicode)>
Private Shared Sub FatalAppExit(uAction As UInteger, lpMessageText As String)
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    FatalAppExit(0, "FatalAppExit Test")
End Sub

落地注意事项 #

• 如果必须使用ANSI版本的API入口，需要在声明中显式指定CharSet:=CharSet.Ansi，同时将uAction参数类型替换为UInteger，严格匹配API定义的32位参数长度要求，否则依然会出现乱码。
• 不要在VB.NET项目中混用VB6遗留的Declare语句编写P/Invoke逻辑，这类语法没有64位运行场景的栈平衡校验，很容易触发无预兆的内存访问错误，排查成本极高。
• FatalAppExit是Win16时代遗留的强终止类API，调用后会直接跳过常规资源清理流程终止进程，没有托管层的异常捕获入口。如果要在自研应用中做崩溃兜底，更推荐先弹出托管错误提示框，再通过Environment.Exit平稳退出，整体可控性和用户体验会更好。

内容的提问来源于stack exchange，提问作者dragogos dragogos