如何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