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)

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

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