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

代碼如下:

Dim WshShell

Set WshShell = CreateObject("Wscript.Shell")

下面的每一行都是一個(gè)不錯(cuò)的命令，請(qǐng)說出運(yùn)行下列每個(gè)語句的效果。不要一次運(yùn)行全部，逐個(gè)看效果。

'打開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)

結(jié)合使用打開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,雙擊運(yùn)行即可。

代碼如下:

Dim WshShell

Set WshShell = CreateObject("Wscript.Shell")

WshShell.SendKeys Chr(&H88AD)

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

一般來說SendKeys并不可靠，因?yàn)榇翱诮裹c(diǎn)經(jīng)常難以預(yù)料和控制。AppActivate方法有時(shí)會(huì)導(dǎo)致窗口閃爍，然后無法再激活，且對(duì)未知窗口標(biāo)題的程序更是沒有辦法。