我一直在捣乱一些脚本来推出一个带有链接到网络摄像头的URL的便携版Firefox。我的目标是使用相同的FF.exe使用2个脚本,但使用2个不同的URL / IP。我试图通过删除滚动条,菜单和状态来解除浏览器功能,因此只能看到网络摄像头控件和视图。
这是当前的代码,但我似乎犯了一个错误,因为现在没有显示URL,只有启动时的默认值。尺寸是完美的。
dim wshshell
FirefoxProfile = "Profile"
FirefoxPath = "C:\ADMIN\FF\FF.exe"
webappurl = "http://Domain.com"
Height = "870"
Width = "920"
Set wshshell = WScript.CreateObject("WScript.Shell")
wshshell.run """" & FirefoxPath & """ -P """ & FirefoxProfile & """ -Height """ & Height & """ -Width """ & Width & "" & webappurl
Set wshshell = Nothing
wscript.quit
您可以提供的任何帮助或只是向正确的方向轻推都将非常感激。这是我发现的其他东西,所以也许可以使用它,不幸的是我认为它本身并没有任何用处。
window.open('Domain.com',null,"height=100px,width=100px,status=0,toolbar=0,menubar=0,location=0");
工作代码:
dim wshshell
Function qq(str)
qq = Chr(34) & str & Chr(34)
End Function
FirefoxProfile = "Profile"
FirefoxPath = "C:\ADMIN\FF\FF.exe"
webappurl = "172.22.111.8"
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
答案 0 :(得分:0)
我怀疑你的问题在于:
wshshell.run ... & """ -Width """ & Width & "" & webappurl
当你可能需要一个结束双引号后跟一个空格时,该指令中的最后一个""
只是一个空字符串:
wshshell.run ... & """ -Width """ & Width & """ " & webappurl
我通常建议使用引用函数来避免quotefusion:
Function qq(str)
qq = Chr(34) & str & Chr(34)
End Function
'...
wshshell.run qq(FirefoxPath) & " -P " & qq(FirefoxProfile) _
& " -Height " & qq(Height) & " -Width " & qq(Width) _
& " " & webappurl