VB Shell调用后 等待程序运行结束_Asp.net教程_.Net教程_Vb.net教程_Vc.net_C#编程

　　Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long

        Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long

        Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

        Const PROCESS_QUERY_INFORMATION = &H400

        Const STILL_ALIVE = &H103

        Private Sub Command1_Click()

        Dim pid As Long

        pid = Shell("c:\a.bat", vbNormalFocus)

        hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 0, pid)

        Do

        Call GetExitCodeProcess(hProcess, ExitCode)

        DoEvents

        Loop While ExitCode = STILL_ALIVE

        Call CloseHandle(hProcess)

        MsgBox ("运行结束")

        End Sub

        摘自原文如下：
        -------------------------------------------------------------------------
　　VB启动/结束另一程序（Shell 等待程序运行结束）
　
　　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

[1]   

【责编:michael】

--------------------next---------------------