VB程序进程监控-CSDN博客

本文链接：https://blog.csdn.net/Athoncj/article/details/1459807

Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Const PROCESS_QUERY_INFORMATION = &H400
Private Const STILL_ACTIVE = &H103
Dim pidNotepad As Long
Dim hProcess As Long

Private Sub Command1_Click()
    Dim lngExitCode As Long

    pidNotepad = Shell("c:/1.exe", vbNormalFocus)
    hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, pidNotepad)
    Do
        GetExitCodeProcess hProcess, lngExitCode
        DoEvents
    Loop While lngExitCode = STILL_ACTIVE
    MsgBox "程序1运行完毕"

    pidNotepad = Shell("c:/2.exe", vbNormalFocus)
    hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, pidNotepad)
    Do
        GetExitCodeProcess hProcess, lngExitCode
        DoEvents
    Loop While lngExitCode = STILL_ACTIVE
    MsgBox "程序2运行完毕"

    pidNotepad = Shell("c:/1.exe", vbNormalFocus)
    hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, pidNotepad)
    Do
        GetExitCodeProcess hProcess, lngExitCode
        DoEvents
    Loop While lngExitCode = STILL_ACTIVE
    MsgBox "程序1运行完毕"

End Sub