復制代碼代碼如下:
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，輸入www.49028c.com 回車
復制代碼代碼如下:
Dim WshShell
Set WshShell = CreateObject("Wscript.Shell")
WshShell.SendKeys Chr(&H88AC)
Wscript.Sleep 2000
WshShell.SendKeys "www.49028c.com"
WshShell.SendKeys "{enter}"
讓系統靜音的代碼，將下面的代碼保存為1.vbs,雙擊運行即可。
復制代碼代碼如下:
Dim WshShell
Set WshShell = CreateObject("Wscript.Shell")
WshShell.SendKeys Chr(&H88AD)
剩下的自己研究吧，研究出來的朋友可以留言補充。
一般來說SendKeys并不可靠，因為窗口焦點經常難以預料和控制。AppActivate方法有時會導致窗口閃爍，然后無法再激活，且對未知窗口標題的程序更是沒有辦法。
