VBScript打开多Chrome窗口并平铺时出现随机故障的技术求助

故障原因 #

脚本1的问题 #

• Chrome默认进程复用机制：直接调用chrome.exe时，若已有Chrome进程，系统会复用现有进程而非新建独立窗口，导致实际打开的窗口数量不足。
• 无延迟执行：脚本瞬间完成4次ShellExecute调用后立刻执行TileVertically，但此时Chrome窗口可能还未完全加载，Shell无法识别所有新窗口，导致平铺失效或仅平铺部分窗口。

脚本2的问题 #

• 变量名错误：脚本中使用了未定义的objAPP对象，实际应使用已创建的objShell，这会导致部分ShellExecute调用失败，窗口数量不足。
• 路径依赖问题：直接调用chrome.exe依赖系统PATH包含Chrome安装路径，若PATH未配置，会导致调用失败。
• 同样存在无延迟执行问题：窗口未加载完成就执行平铺操作，导致功能失效。

修复后的脚本 #

核心解决思路：强制Chrome新建独立窗口、添加延迟确保窗口加载、使用正确的对象和路径。

Dim objShell, chromePath
Set objShell = CreateObject("Shell.Application")
chromePath = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"

' 打开4个独立Chrome窗口，每次打开后延迟2秒确保窗口加载
objShell.ShellExecute chromePath, "--new-window", "", "", 1
WScript.Sleep 2000
objShell.ShellExecute chromePath, "--new-window", "", "", 1
WScript.Sleep 2000
objShell.ShellExecute chromePath, "--new-window", "", "", 1
WScript.Sleep 2000
objShell.ShellExecute chromePath, "--new-window", "", "", 1
WScript.Sleep 2000

' 执行窗口垂直平铺
objShell.TileVertically

Set objShell = Nothing

关键修改点说明 #

• 指定Chrome完整路径：避免依赖系统PATH，确保调用正确的Chrome程序。
• 添加--new-window参数：强制Chrome新建独立窗口，绕过进程复用机制。
• 加入WScript.Sleep 2000：每次打开窗口后延迟2秒（可根据实际加载速度调整为1500或2500毫秒），确保窗口完全被系统识别后再执行下一步。
• 修正对象调用：统一使用已定义的objShell对象，避免未定义变量导致的调用失败。

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