《vb shell 等待程序运行结束》由会员分享，可在线阅读，更多相关《vb shell 等待程序运行结束（5页珍藏版）》请在金锄头文库上搜索。
1、 VB 启动 /结束另一程序（Shell 等待程序运行结束）VB 中，常以 Shell 指令来执行外部程式，然而它在 Create 该外部 process 後，立刻就会回到vb 的下一行程式，无法做到等待该 Process 结束时，才执行下一行指令，或是说，无法得知该Process 是否已结束，甚者，该 Process 执行到一半，又该如何中止其执行等等，这些都不是 Shell指令所能控制的，因此我们需使 API 的帮助来完成。第一个问题，如何等待 shell 所 Create 的 process 结束後才往後执行 vb 的程式。首先要知道的是，每个 Process 有唯一的一个 Proces
2、sID，这是 OS 给定的，用来区别每个 Process，这个 Process ID（PID）主要可用来取得该 Process 相对应的一些资讯，然而要对该Process 的控制，却大多透过 Process Handle（hProcess） 。VB Shell 指令的传回值是 PID，而非hProcess，所以我们需透过 OpenProcess 这个 API 来取得 hProcess 而 OpenProcess（）的第一个叁数，指的是所取得的 hProcess 所具有的能力，像 PROCESS_QUERY_INFORMATION 便是让 GetExitCode（）可取得 hProcess 所指
3、的 process 之状态，而 PROCESS_TERMINATE，便是让 TerminateProcess（hProcess ）的指令能够生效，也就是说，不同叁数设定，使 hProcess 所具有的权限、能力有所不同。取得 hProcess 後便可以使用 WaitForSingleObject（）来等待 hProcess 状态的改变，也就是说，它会等待 hProcess 所指的 process 执行完，这个指令才结束，它第二个叁数所指的是 WaitForSingleObject（）所要等待的时间（in milliseconds ）如果超过所指的时间，就 TimeOut 而结束 WaitFor
4、SingleObject（）的等待。若要它无限的等下去，就设定为 INFIN99vE.pid = Shell(C:toolsspe3pe2.exe, vbNormalFocus)hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 0, pid)ExitEvent = WaitForSingleObject(hProcess, INFIN99vE)Call CloseHandle(hProcess)上例会无限等待 shell 指令 create 之 process 结束後，才再做後面的 vb 指令。有时觉得那会等太久，所以有第二个解决方式：等 pr
5、ocess 结束时再通知 vb 就好，即：设定一个公用变数（isDone） ，当它变成 True 时代表 Shell 所 Create 的 Process 已结束。当 Process 还在执行时，GetExitCodeProcess 会传&H103 给其第二个叁数，直到结束时才传另外的数值，如果程式正常结束，那 Exitcode = 0，否则就得看它如何结束了。或许有人在其他地方看到 loop 的地方是 Loop while Exitcode 0，那有一点危险，如果以这程子来看，您不是用 F4 来离开 pe2 而是用右上方 X 的结束 dos window 那麽，会因为 ExitCode 的值
6、永远不会是 0，而进入无穷的回圈。Dim pid As Longpid = Shell(C:toolsspe3pe2.exe, vbNormalFocus)hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 0, pid)isDone = FalseDoCall GetExitCodeProcess(hProcess, ExitCode)Debug.Print ExitCodeDoEventsLoop While ExitCode = STILL_ALIVECall CloseHandle(hProcess)isDone = True 另外，如果
7、您的 shell 所 Create 的程式，有视窗且为立刻 Focus 者，可另外用以下的方式Dim pid As Long Dim hwnd5 As Longpid = Shell(c:toolsspe3pe2.exe, vbNormalFocus)hwnd5 = GetForegroundWindow()isDone = FalseDo While IsWindow(hwnd5)DoEventsLoopisDone = True而如何强迫 shell 所 Create 的 process 结束呢，那便是Dim aa As LongIf hProcess 0 Thenaa = Termina
8、teProcess(hProcess, 3838)End IfhProcess 便是先前的例子中所取得的那个 Process Handle， 3838 所指的是传给GetExitCodeProcess（）中的第二叁数，这是我们任意给的，但最好不要是 0，因为 0 一般是代表正常结束，当然这样设也不会有错。当然不可设&H103，以这个例子来看，如果程式正处於以下的LOOPDoCall GetExitCodeProcess(hProcess, ExitCode)Debug.Print ExitCodeDoEventsLoop While ExitCode = STILL_ALIVEDebug.pr
9、int ExitCode而执行了 TerminateProcess（hProcess， 3838）那会看到 ExitCode = 3838.然而，这个方式在 win95 没问题，在 NT 中，可能您要在 OpenProcess（）的第一个叁数要更改成 PROCESS_QUERY_INFORMATION Or PROCESS_TERMINATE 这样才能 Work.不过良心的建议，非到最後关头，不要使用 TerminateProcess（） ，因不正常的结束，往往许多程式结束前所要做的事都没有做，可能造成 Resource 的浪费，甚者，下次再执行某些程式时会有问题，例如：本人常使用 MS-do
10、s Shell Link 的方式执行一程式，透过 Com port 与大电脑的联结，如果 Ms-dos Shell Link 不正常结束，下次再想 Link 时，会发现 too Many Opens，这便是一例。另外，有人使用 Shell 来执行。bat 档，即：pid = Shell（c ：aa.bat， vbNormalFocus）可是却遇上 aa.bat 结束了，但 ms-dos 的 Window 却仍活着，那可以用以下的方式来做 pid = Shell（c： /c c：aa.bat ， vbNormalFocus）那是执行 C，而 C 指定执行 c：aa.bat 而且结束时自动 Clo
11、se 所有程式如下： Private Declare Function OpenProcess Lib kernel32 _(ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, _ByVal dwProcessId As Long) As LongPrivate Declare Function WaitForSingleObject Lib kernel32 _(ByVal hHandle As Long, ByVal dwMilliseconds As Long) As LongPrivate Declare Funct
12、ion CloseHandle Lib kernel32 _(ByVal hObject As Long) As LongPrivate Declare Function GetExitCodeProcess Lib kernel32 _(ByVal hProcess As Long, lpExitCode As Long) As LongPrivate Declare Function TerminateProcess Lib kernel32 _(ByVal hProcess As Long, ByVal uExitCode As Long) As LongPrivate Declare
13、Function GetForegroundWindow Lib user32 () As Long Private Declare Function IsWindow Lib user32 _(ByVal hwnd As Long) As LongConst PROCESS_QUERY_INFORMATION = &H400Const STILL_ALIVE = &H103Const INFIN99vE = &HFFFFPrivate ExitCode As LongPrivate hProcess As LongPrivate isDone As LongPrivate Sub Comma
14、nd1_Click()Dim pid As Longpid = Shell(C:toolsspepe2.exe, vbNormalFocus)hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 0, pid)isDone = FalseDoCall GetExitCodeProcess(hProcess, ExitCode)Debug.Print ExitCodeDoEventsLoop While ExitCode = STILL_ALIVECall CloseHandle(hProcess)isDone = TrueEnd Sub Priva
15、te Sub Command2_Click()Dim pid As LongDim ExitEvent As Longpid = Shell(C:toolsspe3pe2.exe, vbNormalFocus)hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 0, pid)ExitEvent = WaitForSingleObject(hProcess, INFIN99vE)Call CloseHandle(hProcess)End SubPrivate Sub Command3_Click()Dim aa As LongIf hProcess
16、 0 Thenaa = TerminateProcess(hProcess, 3838)End IfEnd SubPrivate Sub Command4_Click()Dim pid As LongDim hwnd5 As Longpid = Shell(c:toolsspe3pe2.exe, vbNormalFocus)hwnd5 = GetForegroundWindow()isDone = FalseDo While IsWindow(hwnd5)DoEventsLoopisDone = TrueEnd SubPrivate Sub Command5_Click() Dim pid As Longpid = Shell(c:windowscommandxcopy c:aa.bat a:, vbHide)pid = Shell(
