如何VBS

Question

打开网页

我的代码是

Set WshShell = CreateObject("WScript.shell") 
for i = 0 to 50 
WshShell.SendKeys(chr(175)) 
next 
Process.Start("CMD", "/C start chrome.exe http://www.example.com") 

它设置了音量调至最高，然后打开Chrome浏览器example.com。但是当我运行它时，我得到这个错误：

Cannot use parentheses while calling a Sub 

我怎样才能得到它来提高音量，并转到网页？

Answer 1

当用括号调用sub时，VBScript需要CALL关键字。你可以写这样的代码：

Set WshShell = CreateObject("WScript.shell") 
For i = 0 To 50 
    WshShell.SendKeys Chr(175) 
Next 
Process.Start "CMD", "/C start chrome.exe http://www.example.com" 

...或者是这样的：

Set WshShell = CreateObject("WScript.shell") 
For i = 0 To 50 
    Call WshShell.SendKeys(Chr(175)) 
Next 
Call Process.Start("CMD", "/C start chrome.exe http://www.example.com") 

注意：你不要打电话时的功能，并使用它的返回值，像这样的错误这个：

Dim strTest 
strTest = SomeFunction() 

...因为VBScript在分配中使用函数时总是需要括号。

Answer 2

尝试像这样：

Option Explicit 
Dim URL,WshShell,i 
URL = "www.yahoo.com" 
Set WshShell = CreateObject("WScript.shell") 
For i = 0 to 50 
    WshShell.SendKeys(chr(175)) 
Next 
WshShell.run "CMD /C start chrome.exe " & URL & "",0,False