vb6创建子进程并等待子进程的退出。

最新推荐文章于 2024-03-11 19:44:45 发布

原创最新推荐文章于 2024-03-11 19:44:45 发布 · 1.3k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#vb #function #query #shell

Visual Basic 6.0 专栏收录该内容

16 篇文章

订阅专栏

本文展示了一个使用VBA进行进程同步的示例代码。通过调用Windows API函数如OpenProcess、WaitForSingleObject和CloseHandle，实现了父进程等待子进程（AutoReg.bat批处理文件）完成的功能。

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long

Private Const PROCESS_QUERY_INFORMATION = &H400
Private Const STATUS_PENDING = &H103
Private Const SYNCHRONIZE = &H100000
Private Const INFINITE = &HFFFFFFFF

Sub Main()

    Dim tmpId       As Long
    Dim tmpHwnd     As Long

    tmpId = Shell(App.Path & "\AutoReg.bat")
    tmpHwnd = OpenProcess(SYNCHRONIZE, 0, tmpId)

    If tmpHwnd <> 0 Then
        
        Call WaitForSingleObject(tmpHwnd, INFINITE)
        Call CloseHandle(tmpHwnd)
    
    End If
    
    MsgBox "执行完毕 "

End Sub