VBS基礎(chǔ)篇 vbscript Sendkeys模擬鍵盤操作

如果需要發(fā)送多個(gè)重復(fù)的單字母按鍵，不必重復(fù)輸入該字母，SendKeys允許使用簡(jiǎn)化格式進(jìn)行描述，使用格式為“{按鍵 數(shù)字}”。例如要發(fā)送10個(gè)字母“x”，則輸入“WshShell.SendKeys "{x 10}"”即可

接下來(lái)看一下實(shí)例：

　　按下F5刷新桌面

Dim WshShell,Path,i
Set WshShell = Wscrpt.CreateObject("Wscrpt.Shell")
WshShell.SendKeys "{F5}"

電腦的自動(dòng)重啟

Dim WshShell
Set WshShell = CreateObject("Wscrpt.Shell")
WshShell.SendKeys "^{ESC}u"
WshShell.SendKeys "R"

啟動(dòng)任務(wù)管理器

Dim WshShell
Set WshShell = CreateObject("Wscrpt.Shell")
WshShell.SendKeys "^+{ESC}" 

自動(dòng)關(guān)機(jī)

Dim WshShell
Set WshShell=Wscrpt.CreateObject("Wscrpt.Shell")
Wscrpt.Sleep 2000
WshShell.Run "shutdown -r -t 120"
wscrpt.sleep 6000
WshShell.Run "shutdown -a" 

在記事本中輸入Happy Birthday!并保存為birth.txt

Dim WshShell
Set WshShell=Wscrpt.CreateObject("Wscrpt.Shell")
WshShell.Run "notepad"
Wscrpt.Sleep 1500
WshShell.AppActivate "Ξ? - ?±"
WshShell.SendKeys "Happy Birthdy!!!"
Wscrpt.Sleep 500
WshShell.SendKeys "%FS"
Wscrpt.Sleep 500
WshShell.SendKeys "birth.txt"
Wscrpt.Sleep 500
WshShell.SendKeys "%S"
Wscrpt.Sleep 500
WshShell.SendKeys "%FX" 

簡(jiǎn)單地說(shuō)，SendKey 這個(gè)命令就是模擬鍵盤操作，將一個(gè)或多個(gè)按鍵指令發(fā)送到指定Windows窗口來(lái)控制應(yīng)用程序運(yùn)行，其使用格式為：

    WshShell.SendKeys String    “string”表示要發(fā)送的按鍵指令字符串，需要放在英文雙引號(hào)中。

1、基本鍵

一般來(lái)說(shuō)，要發(fā)送的按鍵指令都可以直接用該按鍵字符本身來(lái)表示，例如要發(fā)送字母"x"，使用 WshShell.SendKeys "x" 即可。也可直接發(fā)送多個(gè)按鍵指令，只需要將按鍵字符按順序排列在一起即可。例如，要發(fā)送按鍵"cfan"，可以使用 WshShell.SendKeys "cfan"

2、特殊功能鍵

對(duì)于需要與Shift、Ctrl、Alt三個(gè)控制鍵組合的按鍵SendKeys使用特殊字符來(lái)表示:
特殊控制鍵 特殊字符
Shift     +
Ctrl      ^
Alt      %

3、組合按鍵

如要發(fā)送的組合按鍵是同時(shí)按下Ctrl+E，需要用 WshShell.SendKeys "^e" 表示，如果要發(fā)送的組合按鍵是按住Ctrl鍵的同時(shí)按下E與C兩個(gè)鍵，這時(shí)應(yīng)使用小括號(hào)把字母括起來(lái)，書寫格式為 WshShell.SendKeys "^(ec)" 這里要注意它與 WshShell.SendKeys "^ec" 的區(qū)別，后者表示組合按鍵是同時(shí)按住Ctrl和E鍵，然后松開Ctrl鍵，單獨(dú)按下"C"字母鍵。

由于 "+"、"^" 這些字符用來(lái)表示特殊的控制按鍵了，如何表示這些按鍵呢?只要用大括號(hào)括住這些字符即可。例如，要發(fā)送加號(hào) "+"，可使用WshShell.SendKeys "{+}" 。另外對(duì)于一些不會(huì)生成字符的控制功能按鍵，也同樣需要使用大括號(hào)括起來(lái)按鍵號(hào)名稱，例如要發(fā)送回車鍵，需要用WshShell.SendKeys "{ENTER}" 表示，發(fā)送向下的方向鍵用 WshShell.SendKeys "{DOWN}" 表示。

4、多個(gè)重復(fù)的按鍵

如果需要發(fā)送多個(gè)重復(fù)的單字母按鍵，不必重復(fù)輸入該字母，SendKdys允許使用簡(jiǎn)化格式進(jìn)行描述，使用格式為"{按鍵 數(shù)字}"。例如要發(fā)送10個(gè)字母 "x"，則輸入 WshShell.SendKeys "{x 10}" 即可。

 讓VBS腳本自動(dòng)在記事本中輸入一行文字"Hello， welcome to jb51.net"。

Dim WshShell
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 200
WshShell.AppActivate " 無(wú)標(biāo)題 - 記事本 "
WshShell.SendKeys "hello， welcome to jb51.net"

可自動(dòng)定時(shí)存盤的記事本

我們最常用的記事本沒(méi)有Word、WPS那樣的自動(dòng)定時(shí)存盤功能，其實(shí)利用VBS腳本再加上SendKeys命令，就能彌補(bǔ)這個(gè)遺憾。打開記事本，輸入以下內(nèi)容:

將其保存為記事本.vbs，以后要使用記事本時(shí)，都通過(guò)雙擊這個(gè)腳本文件來(lái)打開。

程序詳解：

這個(gè)腳本的基本思路是定時(shí)向記事本發(fā)送Ctrl+S這個(gè)存盤組合鍵。

第一部分:定義了腳本中需要用到的變量和對(duì)象。"AutoSaveTime"變量用來(lái)設(shè)置自動(dòng)存盤間隔，單位為毫秒，這里設(shè)置為5分鐘。"TXTFileName"變量通過(guò)輸入框取得你要?jiǎng)?chuàng)建的文本文件名稱。

第二部分:運(yùn)行記事本，對(duì)于Windows本身提供的程序，比如計(jì)算器等，可直接在"WshShell.Run"后輸入程序名稱，如"calc"對(duì)于非系統(tǒng)程序，則可輸入完全路徑，但要注意使用8。3格式輸入，比如" "D:\Progra~1\Tencent\QQ。exe" "

第三部分:這里用SendKeys命令執(zhí)行了這樣的操作流程(請(qǐng)注意每個(gè)操作之間延時(shí)命令的使用):
在記事本中按Ctrl+S組合鍵→彈出保存文件的窗口→輸入文件名→按Alt+S組合鍵進(jìn)行保存(默認(rèn)保存在"我的文檔"目錄)。

第四部分:定時(shí)存盤的關(guān)鍵，通過(guò)"While......Wend"這個(gè)當(dāng)條件為"真"時(shí)循環(huán)命令，實(shí)現(xiàn)自動(dòng)存盤代碼" WshShell.SendKeys "^s" "和定時(shí)代碼" WScript.Sleep AutoSaveTime "的重復(fù)執(zhí)行。因?yàn)椴荒茏屵@個(gè)定時(shí)存盤循環(huán)一直執(zhí)行，退出記事本后，必須自動(dòng)退出腳本并結(jié)束循環(huán)，所以設(shè)計(jì)了一個(gè)循環(huán)判斷條件" WshShell.AppActivate TXTFileName=True "，當(dāng)記事本運(yùn)行中時(shí)，可以激活記事本窗口，這個(gè)條件運(yùn)行結(jié)果為"True"，定時(shí)存盤循環(huán)一直執(zhí)行，退出記事本后，腳本無(wú)法激活記事本窗口，就會(huì)路出循環(huán)，執(zhí)行"Wend"后面的"WScript.Quit"退出腳本。

'第一部分：定義變量和對(duì)象
Dim WshShell， AutoSaveTime， TXTFileName
AutoSaveTime=1000*60*5
Set WshShell=WScript.CreateObject("WScript.Shell")
TXTFileName=InputBox("請(qǐng)輸入你要?jiǎng)?chuàng)建的文件名(不能用中文和純數(shù)字)：")

'第二部分：打開并激活記事本
WshShell.Run "notepad"
WScript.Sleep 200
WshShell.AppActivate "無(wú)標(biāo)題 - 記事本"

'第三部分：用輸入的文件名存盤
WshShell.SendKeys "^s"
WScript.Sleep 300
WshShell.SendKeys TXTFileName
WScript.Sleep 300
WshShell.SendKeys "%s"
WScript.Sleep AutoSaveTime

'第四部分：自動(dòng)定時(shí)存盤
While WshShell.AppActivate (TXTFileName)=True
WshShell.SendKeys "^s"
WScript.Sleep AutoSaveTime
Wend
WScript.Quit

 附：VBS中Sendkey鍵盤對(duì)應(yīng)的碼表

Key   Code
------------------------------
Shift     +
Ctrl     ^
Alt     %
BACKSPACE    {BACKSPACE}， {BS}， or {BKSP}
BREAK     {BREAK}
CAPS LOCK    {CAPSLOCK}
DEL or DELETE {DELETE} or {DEL}
DOWN ARROW    {DOWN}
END      {END}
ENTER     {ENTER}or ~
ESC      {ESC}
HELP      {HELP}
HOME      {HOME}
INS or INSERT {INSERT} or {INS}
LEFT ARROW     {LEFT}
NUM LOCK     {NUMLOCK}
PAGE DOWN     {PGDN}
PAGE UP     {PGUP}
PRINT SCREEN    {PRTSC}
RIGHT ARROW    {RIGHT}
SCROLL LOCK    {SCROLLLOCK}
TAB     {TAB}
UP ARROW    {UP}
F1 {F1}
F2 {F2}
F3 {F3}
F4 {F4}
F5 {F5}
F6 {F6}
F7 {F7}
F8 {F8}
F9 {F9}
F10 {F10}
F11 {F11}
F12 {F12}
F13 {F13}
F14 {F14}
F15 {F15}
F16 {F16}