如何在VBA中实现等待Shell启动的浏览器进程结束？Edge等主流浏览器无法触发等待逻辑

这个问题我之前帮不少人排查过，核心原因是现代浏览器的多进程架构：你通过CreateProcess启动的只是浏览器的「启动器进程」，它完成初始化后会拉起渲染、GPU等子进程，然后自己直接退出了——这就是为什么WaitForSingleObject会提前返回0，而浏览器窗口还好好的开着。

另外还要提一句：你原来的WaitForSingleObject函数声明有错误！官方API只有两个参数，你多写了一个bAlertable参数，这会导致调用时的参数栈混乱，返回值自然不对，这也是问题的诱因之一。

下面给你两种可靠的解决方案：

方案一：监控浏览器所有相关进程（推荐） #

这个方法通过WMI跟踪浏览器的主进程和所有子进程，直到所有相关进程都退出才继续VBA代码，完美适配多进程架构。

修改后的完整代码 #

Private Type STARTUPINFO
    cb As Long
    lpReserved As String
    lpDesktop As String
    lpTitle As String
    dwX As Long
    dwY As Long
    dwXSize As Long
    dwYSize As Long
    dwXCountChars As Long
    dwYCountChars As Long
    dwFillAttribute As Long
    dwFlags As Long
    wShowWindow As Integer
    cbReserved2 As Integer
    lpReserved2 As LongPtr  ' 64位环境下必须用LongPtr
    hStdInput As LongPtr
    hStdOutput As LongPtr
    hStdError As LongPtr
End Type

Private Type PROCESS_INFORMATION
    hProcess As LongPtr
    hThread As LongPtr
    dwProcessID As Long
    dwThreadID As Long
End Type

' 修正后的WaitForSingleObject声明（官方只有两个参数）
Private Declare PtrSafe Function WaitForSingleObject Lib "kernel32" (ByVal _
    hHandle As LongPtr, ByVal dwMilliseconds As Long) As Long

Private Declare PtrSafe Function CreateProcessA Lib "kernel32" (ByVal _
    lpApplicationName As LongPtr, ByVal lpCommandLine As String, ByVal _
    lpProcessAttributes As LongPtr, ByVal lpThreadAttributes As LongPtr, _
    ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, _
    ByVal lpEnvironment As LongPtr, ByVal lpCurrentDirectory As LongPtr, _
    lpStartupInfo As STARTUPINFO, lpProcessInformation As _
    PROCESS_INFORMATION) As Long

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

Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Const NORMAL_PRIORITY_CLASS = &H20&
Private Const INFINITE = -1&
Private Const WAIT_TIMEOUT = &H102& ' 对应你之前的258（十进制）

' 检查指定浏览器是否还有相关进程在运行
Private Function IsBrowserAlive(browserExeName As String, originalPID As Long) As Boolean
    Dim wmiService As Object
    Dim processList As Object
    Dim proc As Object
    
    ' 使用Late Binding调用WMI，避免添加引用
    Set wmiService = GetObject("winmgmts:\\.\root\cimv2")
    Set processList = wmiService.ExecQuery("SELECT * FROM Win32_Process WHERE Name = '" & browserExeName & "'")
    
    For Each proc In processList
        ' 匹配原启动进程，或者它的子进程
        If proc.ProcessId = originalPID Or proc.ParentProcessId = originalPID Then
            IsBrowserAlive = True
            Exit Function
        End If
    Next proc
    
    IsBrowserAlive = False
End Function

Public Sub LaunchBrowserAndWait(cmdLine As String, browserExe As String)
    Dim procInfo As PROCESS_INFORMATION
    Dim startInfo As STARTUPINFO
    Dim launchResult As Long
    Dim originalProcessID As Long

    ' 初始化启动信息结构
    startInfo.cb = Len(startInfo)

    ' 启动浏览器进程
    launchResult = CreateProcessA(0&, cmdLine, 0&, 0&, 1&, NORMAL_PRIORITY_CLASS, 0&, 0&, startInfo, procInfo)
    
    If launchResult = 0 Then
        MsgBox "Failed to launch browser!", vbCritical
        Exit Sub
    End If
    
    originalProcessID = procInfo.dwProcessID
    
    ' 先等待启动器进程退出（它会很快完成使命）
    WaitForSingleObject procInfo.hProcess, INFINITE
    CloseHandle procInfo.hProcess
    
    ' 循环检查浏览器进程是否存活，直到全部退出
    Do While IsBrowserAlive(browserExe, originalProcessID)
        DoEvents ' 释放CPU资源，避免假死
        Sleep 1000 ' 每秒检查一次，可根据需求调整间隔
    Loop
    
    MsgBox "Browser has been closed, continuing VBA execution..."
End Sub

使用方法 #

调用时传入浏览器的完整命令行和进程名：

' 示例：启动Edge并打开登录页面，等待关闭
LaunchBrowserAndWait _
    """C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe"" https://your-login-page.com", _
    "msedge.exe"

方案二：强制浏览器单进程运行（简单但有局限） #

部分浏览器（Edge、Chrome）支持--single-process命令行参数，强制以单进程模式启动，这样启动器进程不会退出，WaitForSingleObject就能正常等待。但注意这个参数会降低浏览器的稳定性和性能，只适合测试场景。

示例调用：

LaunchBrowserAndWait _
    """C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe"" --single-process https://your-login-page.com", _
    "msedge.exe"

关键注意事项 #

1. 一定要修正WaitForSingleObject的函数声明，多余的参数会导致调用异常。
2. 64位Access环境下，STARTUPINFO和PROCESS_INFORMATION中的句柄字段必须用LongPtr，否则会有内存对齐问题。
3. 方案一中的WMI查询不需要额外添加引用，用Late Binding即可在任何环境下运行。

内容的提问来源于stack exchange，提问作者user63103