vbs sendKeys 16進制的結合使用(打開IE，靜音，打開播放器等)

2020-07-26 11:50:45

字體：大中小

來源：轉載

供稿：網友

復制代碼代碼如下:

 
Dim WshShell 
Set WshShell = CreateObject("Wscript.Shell") 
下面的每一行都是一個不錯的命令，請說出運行下列每個語句的效果。不要一次運行全部，逐個看效果。 
'打開IE 
'WshShell.SendKeys Chr(&H88AC) 
'系統靜音
'WshShell.SendKeys Chr(&H88AD) 
'WshShell.SendKeys Chr(&H88AE) 
'WshShell.SendKeys Chr(&H88AF) 
'WshShell.SendKeys Chr(&H88B4) 
'WshShell.SendKeys Chr(&H88B5) 
'WshShell.SendKeys Chr(&H88B6) 
'WshShell.SendKeys Chr(&H88B7) 

結合使用打開IE，輸入m.survivalescaperooms.com 回車

復制代碼代碼如下:

 
Dim WshShell 
Set WshShell = CreateObject("Wscript.Shell") 
WshShell.SendKeys Chr(&H88AC) 
Wscript.Sleep 2000 
WshShell.SendKeys "m.survivalescaperooms.com" 
WshShell.SendKeys "{enter}" 

讓系統靜音的代碼，將下面的代碼保存為1.vbs,雙擊運行即可。

復制代碼代碼如下:

 
Dim WshShell 
Set WshShell = CreateObject("Wscript.Shell") 
WshShell.SendKeys Chr(&H88AD) 

剩下的自己研究吧，研究出來的朋友可以留言補充。
一般來說SendKeys并不可靠，因為窗口焦點經常難以預料和控制。AppActivate方法有時會導致窗口閃爍，然后無法再激活，且對未知窗口標題的程序更是沒有辦法。
16進制的相關說明:http://m.survivalescaperooms.com/article/26388.htm

上一篇：VBS 顯示“選擇文件或文件夾”對話框的代碼

下一篇：vbs sendKeys Virtual-Key Codes 十六進制符號