VB最标准的shellwait函数

用法和shell一样，但是是等待执行，已经写成模块保存为bas直接用

Attribute VB_Name = "shellwait"
Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess&, ByVal bInheritHandle&, ByVal dwProcessId&) As Long
Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpexitcode As Long) As Long

    ' Required Constants

    Const STILL_ACTIVE = &H103
    Const PROCESS_QUERY_INFORMATION = &H400

    Sub shellwait(cCommandLine As String, Optional ByVal WindowStyle As VbAppWinStyle = vbNormalFocus)
    Dim hShell As Long
    Dim hProc As Long
    Dim lExit As Long
    hShell = Shell(cCommandLine, WindowStyle)
    hProc = OpenProcess(PROCESS_QUERY_INFORMATION, False, hShell)
    Do
       GetExitCodeProcess hProc, lExit
       DoEvents
    Loop While lExit = STILL_ACTIVE
    End Sub