看到demon.tw的文章，發(fā)現(xiàn)的sendkeys 16進制的效果，非常的不錯，喜歡的朋友可以參考下。

代碼如下:

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，輸入www.jb51.net 回車

代碼如下:

Dim WshShell

Set WshShell = CreateObject("Wscript.Shell")

WshShell.SendKeys Chr(&H88AC)

Wscript.Sleep 2000

WshShell.SendKeys "www.jb51.net"

WshShell.SendKeys "{enter}"

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

代碼如下:

Dim WshShell

Set WshShell = CreateObject("Wscript.Shell")

WshShell.SendKeys Chr(&H88AD)

剩下的自己研究吧，研究出來的朋友可以留言補充。

一般來說SendKeys并不可靠，因為窗口焦點經常難以預料和控制。AppActivate方法有時會導致窗口閃爍，然后無法再激活，且對未知窗口標題的程序更是沒有辦法。