应用程序退出时的返回值

在批处理中使用%errorlevel%获得返回值

 

  ping 10.54.2.139

  echo %errorlevel%

 

使用GetExitCodeProcess函数获取进程返回值

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 CloseHandle Lib "kernel32" _ (ByVal hObject As Long) As Long Private Declare Function GetExitCodeProcess Lib "kernel32" _ (ByVal hProcess As Long, lpExitCode As Long) As Long Private Declare Function TerminateProcess Lib "kernel32" _ (ByVal hProcess As Long, ByVal uExitCode As Long) As Long Private Declare Function GetForegroundWindow Lib "user32" () As Long Const PROCESS_QUERY_INFORMATION = &H400 Const STILL_ALIVE = &H103 Const INFIN99vE = &HFFFF Private ExitCode As Long Private hProcess As Long Private isDone As Long Private Sub Command1_Click() Dim pid As Long pid = Shell("ping " + Trim(Text1), vbHide) hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 0, pid) Do Call GetExitCodeProcess(hProcess, ExitCode) DoEvents Loop While ExitCode = STILL_ALIVE If ExitCode = 0 Then MsgBox "通" Else MsgBox "不通" End If End Sub  

使用WshShell的run方法获得返回值

 

IWshRuntimeLibrary Library IWshRuntimeLibrary

C:/WINDOWS/system32/wshom.ocx

Windows Script Host Object Model

 

Dim sh As New WshShell

Debug.Print sh.Run("ping 10.54.12.139", WshHide, WshFinished)