模擬鍵盤操作，將一個或多個按鍵指令發送到指定Windows窗口來控制應用程序運行
其使用格式為：object.SendKeys(string)
object：表示WshShell對象
string：表示要發送的按鍵指令字符串，需要放在英文雙引號中
基本鍵
每個按鍵由一個或多個字符表示。
為了指定單一鍵盤字符，必須按字符本身的鍵。例如，為了表示字母 A，可以用 "A"
為了表示多個字符，就必須在字符后面直接加上另一個字符。例如，要表示 A、B 及 C，可用 "ABC" 作為 string。
特殊功能鍵
對于需要與Shift、Ctrl、Alt三個控制鍵組合的按鍵，SendKeys使用特殊字符來表示：
Shift ---------WshShell.SendKeys "+"
Ctrl---------WshShell.SendKeys "^"
Alt---------WshShell.SendKeys "%"
由于“+”、“^”這些字符用來表示特殊的控制按鍵了，如何表示這些按鍵呢？ 只要用大括號括住這些字符即可。例如: 要發送加號“+”，可使用“WshShell.SendKeys "{+}"”
另外對于一些不會生成字符的控制功能按鍵，也同樣需要使用大括號括起來按鍵的名稱。
例如要發送回車鍵，需要用“ WshShell.SendKeys "{ENTER}" ”表示；
發送向下的方向鍵用“ Wshell.SendKeys "{DOWN}" ”表示
Space---------WshShell.SendKeys " "
Enter---------WshShell.SendKeys "{ENTER}"
←---------WshShell.SendKeys "{RIGHT}"
↑---------WshShell.SendKeys "{UP}"
F1---------WshShell.SendKeys "{F1}"
|
按鍵 |
代碼 |
|
BACKSPACE |
{BACKSPACE}, |
|
BREAK |
{BREAK} |
|
CAPS |
LOCK |
|
DEL |
or |
|
DOWN |
ARROW |
|
END |
{END} |
|
ENTER |
{ENTER}或 |
|
ESC |
{ESC} |
|
HELP |
{HELP} |
|
HOME |
{HOME} |
|
INS |
or |
|
LEFT |
ARROW |
|
NUM |
LOCK |
|
PAGE |
DOWN |
|
PAGE |
UP |
|
|
SCREEN |
|
RIGHT |
ARROW |
|
SCROLL |
LOCK |
|
TAB |
{TAB} |
|
UP |
ARROW |
|
F1 |
{F1} |
|
F2 |
{F2} |
|
F3 |
{F3} |
|
F4 |
{F4} |
|
F5 |
{F5} |
|
F6 |
{F6} |
|
F7 |
{F7} |
|
F8 |
{F8} |
|
F9 |
{F9} |
|
F10 |
{F10} |
如果需要發送多個重復的單字母按鍵，不必重復輸入該字母，SendKeys允許使用簡化格式進行描述，使用格式為“{按鍵 數字}”。例如要發送10個字母“x”，則輸入“WshShell.SendKeys "{x 10}"”即可
接下來看一下實例：
按下F5刷新桌面
|
1
2
3
|
Dim WshShell,Path,iSet WshShell = Wscrpt.CreateObject("Wscrpt.Shell")WshShell.SendKeys "{F5}" |
電腦的自動重啟
|
1
2
3
4
|
Dim WshShellSet WshShell = CreateObject("Wscrpt.Shell")WshShell.SendKeys "^{ESC}u"WshShell.SendKeys "R" |
啟動任務管理器
|
1
2
3
|
Dim WshShellSet WshShell = CreateObject("Wscrpt.Shell")WshShell.SendKeys "^+{ESC}" |
自動關機
|
1
2
3
4
5
6
|
Dim WshShellSet WshShell=Wscrpt.CreateObject("Wscrpt.Shell")Wscrpt.Sleep 2000WshShell.Run "shutdown -r -t 120"wscrpt.sleep 6000WshShell.Run "shutdown -a" |
在記事本中輸入Happy Birthday!并保存為birth.txt
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
Dim WshShellSet WshShell=Wscrpt.CreateObject("Wscrpt.Shell")WshShell.Run "notepad"Wscrpt.Sleep 1500WshShell.AppActivate "Ξ? - ?±"WshShell.SendKeys "Happy Birthdy!!!"Wscrpt.Sleep 500WshShell.SendKeys "%FS"Wscrpt.Sleep 500WshShell.SendKeys "birth.txt"Wscrpt.Sleep 500WshShell.SendKeys "%S"Wscrpt.Sleep 500WshShell.SendKeys "%FX" |
簡單地說，SendKey 這個命令就是模擬鍵盤操作，將一個或多個按鍵指令發送到指定Windows窗口來控制應用程序運行，其使用格式為：
WshShell.SendKeys String “string”表示要發送的按鍵指令字符串，需要放在英文雙引號中。
1、基本鍵
一般來說，要發送的按鍵指令都可以直接用該按鍵字符本身來表示，例如要發送字母"x"，使用 WshShell.SendKeys "x" 即可。也可直接發送多個按鍵指令，只需要將按鍵字符按順序排列在一起即可。例如，要發送按鍵"cfan"，可以使用 WshShell.SendKeys "cfan"
2、特殊功能鍵
對于需要與Shift、Ctrl、Alt三個控制鍵組合的按鍵SendKeys使用特殊字符來表示:
特殊控制鍵 特殊字符
Shift +
Ctrl ^
Alt %
3、組合按鍵
如要發送的組合按鍵是同時按下Ctrl+E，需要用 WshShell.SendKeys "^e" 表示，如果要發送的組合按鍵是按住Ctrl鍵的同時按下E與C兩個鍵，這時應使用小括號把字母括起來，書寫格式為 WshShell.SendKeys "^(ec)" 這里要注意它與 WshShell.SendKeys "^ec" 的區別，后者表示組合按鍵是同時按住Ctrl和E鍵，然后松開Ctrl鍵，單獨按下"C"字母鍵。
由于 "+"、"^" 這些字符用來表示特殊的控制按鍵了，如何表示這些按鍵呢?只要用大括號括住這些字符即可。例如，要發送加號 "+"，可使用WshShell.SendKeys "{+}" 。另外對于一些不會生成字符的控制功能按鍵，也同樣需要使用大括號括起來按鍵號名稱，例如要發送回車鍵，需要用WshShell.SendKeys "{ENTER}" 表示，發送向下的方向鍵用 WshShell.SendKeys "{DOWN}" 表示。
4、多個重復的按鍵
如果需要發送多個重復的單字母按鍵，不必重復輸入該字母，SendKdys允許使用簡化格式進行描述，使用格式為"{按鍵 數字}"。例如要發送10個字母 "x"，則輸入 WshShell.SendKeys "{x 10}" 即可。
讓VBS腳本自動在記事本中輸入一行文字"Hello， welcome to jb51.net"。
|
1
2
3
4
5
6
|
Dim WshShellSet WshShell=WScript.CreateObject("WScript.Shell")WshShell.Run "notepad"WScript.Sleep 200WshShell.AppActivate " 無標題 - 記事本 "WshShell.SendKeys "hello， welcome to jb51.net" |
可自動定時存盤的記事本
我們最常用的記事本沒有Word、WPS那樣的自動定時存盤功能，其實利用VBS腳本再加上SendKeys命令，就能彌補這個遺憾。打開記事本，輸入以下內容:
將其保存為記事本.vbs，以后要使用記事本時，都通過雙擊這個腳本文件來打開。
程序詳解：
這個腳本的基本思路是定時向記事本發送Ctrl+S這個存盤組合鍵。
第一部分:定義了腳本中需要用到的變量和對象。"AutoSaveTime"變量用來設置自動存盤間隔，單位為毫秒，這里設置為5分鐘。"TXTFileName"變量通過輸入框取得你要創建的文本文件名稱。
第二部分:運行記事本，對于Windows本身提供的程序，比如計算器等，可直接在"WshShell.Run"后輸入程序名稱，如"calc"對于非系統程序，則可輸入完全路徑，但要注意使用8。3格式輸入，比如" "D:\Progra~1\Tencent\QQ。exe" "
第三部分:這里用SendKeys命令執行了這樣的操作流程(請注意每個操作之間延時命令的使用):
在記事本中按Ctrl+S組合鍵→彈出保存文件的窗口→輸入文件名→按Alt+S組合鍵進行保存(默認保存在"我的文檔"目錄)。
第四部分:定時存盤的關鍵，通過"While......Wend"這個當條件為"真"時循環命令，實現自動存盤代碼" WshShell.SendKeys "^s" "和定時代碼" WScript.Sleep AutoSaveTime "的重復執行。因為不能讓這個定時存盤循環一直執行，退出記事本后，必須自動退出腳本并結束循環，所以設計了一個循環判斷條件" WshShell.AppActivate TXTFileName=True "，當記事本運行中時，可以激活記事本窗口，這個條件運行結果為"True"，定時存盤循環一直執行，退出記事本后，腳本無法激活記事本窗口，就會路出循環，執行"Wend"后面的"WScript.Quit"退出腳本。
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
'第一部分：定義變量和對象Dim WshShell， AutoSaveTime， TXTFileNameAutoSaveTime=1000*60*5Set WshShell=WScript.CreateObject("WScript.Shell")TXTFileName=InputBox("請輸入你要創建的文件名(不能用中文和純數字)：")'第二部分：打開并激活記事本WshShell.Run "notepad"WScript.Sleep 200WshShell.AppActivate "無標題 - 記事本"'第三部分：用輸入的文件名存盤WshShell.SendKeys "^s"WScript.Sleep 300WshShell.SendKeys TXTFileNameWScript.Sleep 300WshShell.SendKeys "%s"WScript.Sleep AutoSaveTime'第四部分：自動定時存盤While WshShell.AppActivate (TXTFileName)=TrueWshShell.SendKeys "^s"WScript.Sleep AutoSaveTimeWendWScript.Quit |
附：VBS中Sendkey鍵盤對應的碼表
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}
