VB啟動/結(jié)束另一程序（Shell 等待程序運行結(jié)束）
VB 中，常以Shell指令來執(zhí)行外部程式，然而它在Create該外部process 後，立刻就會回到vb 的下一行程式，無法做到等待該Process結(jié)束時，才執(zhí)行下一行指令，或是說，無法得知該Process是否已結(jié)束，甚者，該Process執(zhí)行到一半，又該如何中止其執(zhí)行等等，這些都不是Shell指令所能控制的，因此我們需使API的幫助來完成。
第一個問題，如何等待shell所Create的process結(jié)束後才往後執(zhí)行vb的程式。
首先要知道的是，每個Process有的一個ProcessID，這是OS給定的，用來區(qū)別每個 Process，這個Process ID（PID）主要可用來取得該Process相對應(yīng)的一些資訊，然而要對該Process的控制，卻大多透過 Process Handle（hProcess）。VB Shell指令的傳回值是PID，而非hProcess，所以我們需透過OpenProcess這個API來取得 hProcess而OpenProcess（）的第一個叁數(shù)，指的是所取得的hProcess所具有的能力，像 PROCESS_QUERY_INFORMATION 便是讓GetExitCode（）可取得hProcess所指的process之狀態(tài)，而PROCESS_TERMINATE，便是讓TerminateProcess（hProcess……）
的指令能夠生效，也就是說，不同叁數(shù)設(shè)定，使hProcess所具有的權(quán)限、能力有所不同。取得 hProcess後便可以使用WaitForSingleObject（）來等待hProcess狀態(tài)的改變，也就是說，它會等待 hProcess所指的process執(zhí)行完，這個指令才結(jié)束，它第二個叁數(shù)所指的是 WaitForSingleObject（）所要等待的時間（in milliseconds ）
如果超過所指的時間，就TimeOut而結(jié)束WaitForSingleObject（）的等待。若要它無限的等下去，就設(shè)定為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結(jié)束後，才再做後面的vb指令。有時覺得那會等太久，所以有第二個解決方式：等process結(jié)束時再通知vb 就好，即：設(shè)定一個公用變數(shù)（isDone），當它變成True時代表Shell所Create的Process已結(jié)束。當Process還在執(zhí)行時，GetExitCodeProcess會傳&H103給其第二個叁數(shù)，直到結(jié)束時才傳另外的數(shù)值，如果程式正常結(jié)束，那Exitcode = 0，否則就得看它如何結(jié)束了。或許有人在其他地方看到 loop的地方是Loop while Exitcode ＜＞ 0，那有一點危險，如果以這程子來看，您不是用F4來離開pe2而是用右上方 X 的結(jié)束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
VB 中，常以Shell指令來執(zhí)行外部程式，然而它在Create該外部process 後，立刻就會回到vb 的下一行程式，無法做到等待該Process結(jié)束時，才執(zhí)行下一行指令，或是說，無法得知該Process是否已結(jié)束，甚者，該Process執(zhí)行到一半，又該如何中止其執(zhí)行等等，這些都不是Shell指令所能控制的，因此我們需使API的幫助來完成。
第一個問題，如何等待shell所Create的process結(jié)束後才往後執(zhí)行vb的程式。
首先要知道的是，每個Process有的一個ProcessID，這是OS給定的，用來區(qū)別每個 Process，這個Process ID（PID）主要可用來取得該Process相對應(yīng)的一些資訊，然而要對該Process的控制，卻大多透過 Process Handle（hProcess）。VB Shell指令的傳回值是PID，而非hProcess，所以我們需透過OpenProcess這個API來取得 hProcess而OpenProcess（）的第一個叁數(shù)，指的是所取得的hProcess所具有的能力，像 PROCESS_QUERY_INFORMATION 便是讓GetExitCode（）可取得hProcess所指的process之狀態(tài)，而PROCESS_TERMINATE，便是讓TerminateProcess（hProcess……）
的指令能夠生效，也就是說，不同叁數(shù)設(shè)定，使hProcess所具有的權(quán)限、能力有所不同。取得 hProcess後便可以使用WaitForSingleObject（）來等待hProcess狀態(tài)的改變，也就是說，它會等待 hProcess所指的process執(zhí)行完，這個指令才結(jié)束，它第二個叁數(shù)所指的是 WaitForSingleObject（）所要等待的時間（in milliseconds ）
如果超過所指的時間，就TimeOut而結(jié)束WaitForSingleObject（）的等待。若要它無限的等下去，就設(shè)定為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結(jié)束後，才再做後面的vb指令。有時覺得那會等太久，所以有第二個解決方式：等process結(jié)束時再通知vb 就好，即：設(shè)定一個公用變數(shù)（isDone），當它變成True時代表Shell所Create的Process已結(jié)束。當Process還在執(zhí)行時，GetExitCodeProcess會傳&H103給其第二個叁數(shù)，直到結(jié)束時才傳另外的數(shù)值，如果程式正常結(jié)束，那Exitcode = 0，否則就得看它如何結(jié)束了。或許有人在其他地方看到 loop的地方是Loop while Exitcode ＜＞ 0，那有一點危險，如果以這程子來看，您不是用F4來離開pe2而是用右上方 X 的結(jié)束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