VBA调用CreateProcess启动浏览器后WaitForSingleObject无法等待进程结束问题

本质差异：单进程 vs 多进程启动架构 #

记事本、Word这类程序属于单进程启动模型：你通过API启动的进程就是实际运行的程序进程，会持续存在直到用户主动关闭，所以WaitForSingleObject能一直检测到进程处于运行状态（返回值258，即WAIT_TIMEOUT），直到进程终止。

而Firefox、Edge采用多进程启动架构：你调用API启动的只是一个轻量的「启动器进程」（Launcher Process），这个进程的唯一作用是拉起浏览器的主进程、渲染进程等核心进程，完成启动后立刻自行退出。所以WaitForSingleObject会瞬间检测到启动器进程结束，返回非258的状态值，导致你的循环提前终止，但此时浏览器的核心进程还在正常运行。

原方法的可行性调整 #

原方法对单进程程序完全可行，但针对多进程架构的浏览器需要修改思路：不能等待启动器进程，而是要找到并等待浏览器的核心主进程（或主窗口关闭）。

可行的实现步骤（VBA） #

1. 用CreateProcess启动浏览器并获取启动器进程信息
   调用Windows APICreateProcess启动浏览器，记录启动器进程的PID和句柄。

   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 Long
       hStdInput As Long
       hStdOutput As Long
       hStdError As Long
   End Type
   
   Private Type PROCESS_INFORMATION
       hProcess As Long
       hThread As Long
       dwProcessId As Long
       dwThreadId As Long
   End Type
   
   Private Declare Function CreateProcess Lib "kernel32" Alias "CreateProcessA" (ByVal lpApplicationName As String, ByVal lpCommandLine As String, ByVal lpProcessAttributes As Long, ByVal lpThreadAttributes As Long, ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, ByVal lpEnvironment As Long, ByVal lpCurrentDirectory As String, lpStartupInfo As STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) As Long
   

2. 枚举进程找到启动器的子进程（浏览器主进程）
   使用Toolhelp32Snapshot系列API枚举系统所有进程，找到父PID等于启动器PID的进程，这些就是浏览器的核心进程。

   Private Type PROCESSENTRY32
       dwSize As Long
       cntUsage As Long
       th32ProcessID As Long
       th32DefaultHeapID As Long
       th32ModuleID As Long
       cntThreads As Long
       th32ParentProcessID As Long
       pcPriClassBase As Long
       dwFlags As Long
       szExeFile As String * 260
   End Type
   
   Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal dwFlags As Long, ByVal th32ProcessID As Long) As Long
   Private Declare Function Process32First Lib "kernel32" (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long
   Private Declare Function Process32Next Lib "kernel32" (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long
   

3. 等待核心进程终止
   对找到的浏览器核心进程调用WaitForSingleObject，同时设置合理的超时时间，循环检测直到所有相关进程终止。

替代方案：等待浏览器主窗口关闭 #

如果不需要精确等待进程，也可以通过找到浏览器的主窗口句柄，调用WaitForSingleObject等待窗口销毁事件，或者用GetWindow循环检测窗口是否存在。

关键注意事项 #

• 浏览器的多进程架构可能会启动多个子进程（如渲染进程、GPU进程等），你需要判断哪些是需要等待的核心进程（通常是主窗口对应的进程）。
• 调用API时要注意权限问题，确保VBA程序有足够权限枚举进程。

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