 
Dim WshShell 
Set WshShell = CreateObject("Wscript.Shell") 
下面的每一行都是一個不錯的命令，請說出運行下列每個語句的效果。不要一次運行全部，逐個看效果。 
'打開IE 
'WshShell.SendKeys Chr(&H88AC) 
'系統(tǒng)靜音
'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，輸入chabaoo.cn 回車

復制代碼代碼如下:

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

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

復制代碼代碼如下:

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

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

您可能感興趣的文章: