设置和获得VB进程返回值

    有时，我们需要设置和获得某个进程结束时的返回值，然后VB并没有C语言中Exit之类的函数，因此我们需要借助API来实现，思路如下：

    1、设置进程返回值。

    创建一个新的无窗口的工程，在标准模块中复制以下代码，编译成ProgA.EXE文件保存到C:/目录下待用。

Option ExplicitPrivate Declare Sub ExitProcess Lib "kernel32" (ByVal uExitCode As Long)Sub Main() MsgBox "按回车键结束" ExitProcess 123 '设置进程结束时的返回值End Sub  

 

    2、获得进程返回值。

    创建一个新的无窗口工程，在标准模块中复制以下代码，按F5运行即可。

Option ExplicitPrivate Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As LongPrivate Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As LongPrivate Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As LongPrivate Const PROCESS_QUERY_INFORMATION = &H400Private Const STILL_ALIVE = &H103Sub Main() Dim pid As Long, hProcess As Long, nExitCode As Long '运行progA pid = Shell("c:/progA.exe", vbNormalFocus) '等progA结束 hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 0, pid) Do GetExitCodeProcess hProcess, nExitCode DoEvents Loop While nExitCode = STILL_ALIVE CloseHandle hProcess '显示progA进程返回值 MsgBox nExitCodeEnd Sub