看到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)
結(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,雙擊運行即可。
代碼如下:
Dim WshShell
Set WshShell = CreateObject("Wscript.Shell")
WshShell.SendKeys Chr(&H88AD)
剩下的自己研究吧，研究出來的朋友可以留言補充。
一般來說SendKeys并不可靠，因為窗口焦點經(jīng)常難以預(yù)料和控制。AppActivate方法有時會導(dǎo)致窗口閃爍，然后無法再激活，且對未知窗口標題的程序更是沒有辦法。
公眾號
事業(yè)單位
當(dāng)前位置：
公考類
招聘類
各類考試