通过VBA重复打开Firefox同标签页时焦点丢失问题排查

问题根源 #

这不是VBA的问题，而是Firefox处理-new-tab参数时和Windows进程调度的交互冲突。Shell命令是异步执行的，连续两次调用时，第二个Firefox进程请求创建标签的时机刚好和第一个标签的焦点初始化过程撞在一起，导致焦点被干扰后无法正确落在搜索框。奇数次调用时，最后一个标签的初始化没有后续请求干扰，所以焦点正常。

你已经测试了安全模式、不同版本和多台电脑，说明这是Firefox本身处理多标签创建请求时的同步问题，和扩展、特定环境无关。

解决办法 #

1. 给两次调用加等待时间 #

在两次Shell调用之间插入短暂等待，让第一个标签完成焦点初始化，避免竞争：

' 先声明Sleep API，要放在模块顶部
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub Test_Firefox()
    Shell """C:\Program Files\Mozilla Firefox\firefox.exe"" -new-tab www.google.de"
    Sleep 500 ' 等待500毫秒，可根据实际情况调整时长
    Shell """C:\Program Files\Mozilla Firefox\firefox.exe"" -new-tab www.google.de"
End Sub

2. 一次调用打开多个标签 #

用Firefox的命令行特性，一次Shell调用批量打开多个新标签，彻底避免进程竞争：

Sub Test_Firefox()
    ' 用空格分隔多个网址，一次打开两个新标签
    Shell """C:\Program Files\Mozilla Firefox\firefox.exe"" -new-tab www.google.de -new-tab www.google.de"
End Sub

3. 显式激活Firefox窗口 #

如果必须分开调用，每次打开后强制激活Firefox窗口，确保焦点在Firefox内：

' 声明API，放在模块顶部
Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Sub Test_Firefox()
    Dim ffWindowHandle As Long
    
    Shell """C:\Program Files\Mozilla Firefox\firefox.exe"" -new-tab www.google.de"
    ffWindowHandle = FindWindow("MozillaWindowClass", vbNullString)
    SetForegroundWindow ffWindowHandle
    
    Shell """C:\Program Files\Mozilla Firefox\firefox.exe"" -new-tab www.google.de"
    ffWindowHandle = FindWindow("MozillaWindowClass", vbNullString)
    SetForegroundWindow ffWindowHandle
End Sub

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