Question

我有以下VBScript，我在网上找到了。它成功打开Firefox，选择我想要的任何配置文件并自动导航到我选择的URL。

我唯一要做的就是自动显示开发人员工具（更具体地说，如果可能的话，还有网络监视器）。是否有任何代码可以添加到此以实现所需的功能？我不确定发送键命令是否也可以执行操作，激活快捷键（ Ctrl + Shift + Q ）？

Dim wshshell

Function qq(str)
  qq = Chr(34) & str & Chr(34)
End Function

FirefoxProfile = "default"
FirefoxPath = "C:\Program Files (x86)\Mozilla Firefox\firefox.exe"
webappurl = "https://www.google.com"
Height = "700"
Width = "920"
Status ="0"
Toolbar = "0"
Menubar = "0"

Set wshshell = WScript.CreateObject("WScript.Shell")

wshshell.Run qq(FirefoxPath) & " -P " & qq(FirefoxProfile) _
  & " -status " & qq(status) & " -Toolbar " & qq(toolbar) _
  & " -menubar " & qq(menubar) & " -Height " & qq(Height) _
  & " -Width " & qq(Width) & " " & webappurl

Set wshshell = Nothing
WScript.Quit

Answer 1

Firefox没有公开COM对象，因此您无法从VBScript中获得很多控制权。如果没有SendKeys等第三方工具，使用AutoIt是最好的选择。请务必先activate应用程序窗口，这样击键就不会去任何地方。

wshshell.Run qq(FirefoxPath) & ...
wshshell.AppActivate "your page title"
wshshell.SendKeys "^+q"   '"^Q" (with an uppercase Q) would work too

请注意SendKeys往往相当片状，因为击键总是会进入活动窗口，无论目前是什么，所以一般不推荐这种方法。

Answer 2

您可以使用SendKeys，但该部分看起来像这样：

WshShell.AppActivate "your name - Google Chrome"
WshShell.SendKeys "^+{Q}"

是的，很好。

开放式控制FireFox（部分完成）

2 个答案: