尝试从我从 VB6 运行的 .NET 可执行文件获取错误代码

Question

我使用 ShellExecute API 调用从 VB6 执行 .NET 控制台应用程序：

ExitCode = ShellExecute(Me.hWnd, "open", GetAppPath & "\SQL Utilities\" & "DocXferClient.exe", strFlags, vbNull, SW_HIDE)

在 .NET 应用程序 (DocXFerClient) 中，我发送尝试使用 Environment.ExitCode 返回“错误代码”：

Sub Main()
    BuildConnectionObject()
    ProcessRequest()

    Environment.ExitCode = 55 
End Sub

但是，无论我尝试返回什么错误代码（在在本例中为“55”），VB6 中的 ExitCode 始终为“42”。我是否在 VB6 端、.NET 端或两者都做错了什么？

Answer 1

ShellExecute 不返回退出代码。它返回成功（值大于 32）或失败（32 或更小）。人们可以通过阅读文档或观察以下事实来弄清楚这一点： ShellExecute 在进程退出之前返回其值。

强制性 Raymond Chen 链接：我可以用返回的 HINSTANCE 做什么通过 ShellExecute 函数？

---

要获取退出代码，请使用 GetExitCodeProcess。

要获取进程句柄，请使用 CreateProcess< 运行应用程序/a>，而不是 ShellExecute。

不要忘记在两个进程上调用 CloseHandle并线程处理它的返回。

Answer 2

对于那些在我们先进的时代仍然受到 VB6 影响的人，我想发布一个大部分完整的示例。以下站点给出的代码很棒： http://vbnet.mvps .org/index.html?code/faq/waitforsingleobject2.htm，但是您必须将 2 个示例放在一起以获得一个工作位，该工作位将等待加壳应用程序退出而不进入 CPU 密集型循环，并且获取正确的退出代码。

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Private Const SYNCHRONIZE = &H100000
Private Const WAIT_INFINITE = -1&
Private Const PROCESS_QUERY_INFORMATION = &H400

ProcessId = Shell("D:\iwCode\dev\proj\appmanager\MoveIniFileUtil\bin\Debug\MoveIniFileUtil.exe 5", vbNormalFocus)
hProcess = OpenProcess(PROCESS_QUERY_INFORMATION Or SYNCHRONIZE, True, ProcessId)
dummyRet = WaitForSingleObject(hProcess, WAIT_INFINITE)
GetExitCodeProcess hProcess, exitCode
CloseHandle hProcess
MsgBox exitCode

这里重要的一点对我来说并不是立即显而易见的是，您必须使用 SYNCHRONIZE 和 PROCESS_QUERY_INFORMATION 标志或组合在一起调用 OpenProcess 函数才能使其正常工作。