VBShell调用后等待程序运行结束.docx
3页
VBShell调用后等待程序运行结束VB 中，常以Shell指令来执行外部程式，然而它在Create该外部process 后，立即就会回到vb 的下一行程式，无法做到等待该Process完毕时，才执行下一行指令，或是说，无法得知该Process是否已完毕，甚者，该Process执行到一半，又该如何中止其执行等等，这些都不是Shell指令所能掌握的，因此我们需使API的帮忙来完成 第一个问题，如何等待shell所Create的process完毕后才往后执行vb的程式 首先要知道的是，每个Process有的一个ProcessID，这是OS给定的，用来区分每个 Process，这个Process ID（PID）主要可用来取得该Process相对应的一些资讯，然而要对该Process的掌握，却大多透过 Process Handle（hProcess）VB Shell指令的传回值是PID，而非hProcess，所以我们需透过OpenProcess这个API来取得 hProcess而OpenProcess（）的第一个叁数，指的是所取得的hProcess所具有的力量，像 PROCESS_QUERY_INFORMATION 便是让GetExitCode（）可取得hProcess所指的process之状态，而PROCESS_TERMINATE，便是让TerminateProcess（hProcess……） 的指令能够生效，也就是说，不同叁数设定，使hProcess所具有的权限、力量有所不同。
取得 hProcess后便可以使用WaitForSingleObject（）来等待hProcess状态的转变，也就是说，它会等待 hProcess所指的process执行完，这个指令才完毕，它其次个叁数所指的是 WaitForSingleObject（）所要等待的时间（in milliseconds ） 假如超过所指的时间，就TimeOut而完毕WaitForSingleObject（）的等待若要它无限的等下去，就设定为INFIN99vE. pid = Shell(“C:\tools\spe3\pe2.exe“, vbNormalFocus) hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 0, pid) ExitEvent = WaitForSingleObject(hProcess, INFIN99vE) Call CloseHandle(hProcess) 上例会无限等待shell指令create之process完毕后，才再做后面的vb指令有时觉得那会等太久，所以有其次个解决方式：等process完毕时再通知vb 就好，即：设定一个公用变数（isDone），当它变成True时代表Shell所Create的Process已完毕。
当Process还在执行时，GetExitCodeProcess会传&H103给其其次个叁数，直到完毕时才传另外的数值，假如程式正常完毕，那Exitcode = 0，否则就得看它如何完毕了或许有人在其他地方看到 loop的地方是Loop while Exitcode ＜＞ 0，那有一点危急，假如以这程子来看，您不是用F4来离开pe2而是用右上方 X 的完毕dos window那麽，会由于ExitCode的值永久不会是0，而进入无穷的回圈 Dim pid As Long pid = Shell(“C:\tools\spe3\pe2.exe“, vbNormalFocus) hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 0, pid) isDone = False Do Call GetExitCodeProcess(hProcess, ExitCode) Debug.Print ExitCode DoEvents Loop While ExitCode = STILL_ALIVE Call CloseHandle(hProcess) isDone = True。
