vbs中SendKey怎么用

這篇文章給大家分享的是有關(guān)vbs中SendKey怎么用的內(nèi)容。小編覺得挺實(shí)用的，因此分享給大家做個(gè)參考，一起跟隨小編過來看看吧。

其使用格式為:
object.SendKeys string
"object":表示W(wǎng)shShell對(duì)象
"string":表示要發(fā)送的按鍵指令字符串,需要放在英文雙引號(hào)中.
1.基本鍵
一般來說,要發(fā)送的按鍵指令都可以直接用該按鍵字符本身來表示,例如要發(fā)送字母"x",使用
WshShell.SendKeys "x" 即可.
也可直接發(fā)送多個(gè)按鍵指令,只需要將按鍵字符按順序排列在一起即可.例如,要發(fā)送按鍵"cfan",可以使用" WshShell.SendKeys "cfan" ".
2.特殊功能鍵
對(duì)于需要與Shift、Ctrl、Alt三個(gè)控制鍵組合的按鍵SendKeys使用特殊字符來表示:
特殊控制鍵 特殊字符
Shift +
Ctrl ^
Alt %
如要發(fā)送的組合按鍵是同時(shí)按下Ctrl+E,需要用" WshShell.SendKeys "^e" "表示,
如果要發(fā)送的組合按鍵是按住Ctrl鍵的同時(shí)按下E與C兩個(gè)鍵,這時(shí)應(yīng)使用小括號(hào)把字母括起來,書寫格式為" WshShell.SendKeys "^(ec)" ".這里要注意它與" WshShell.SendKeys "^ec" "的區(qū)別,后者表示組合按鍵是同時(shí)按住Ctrl和E鍵,然后松開Ctrl鍵,單獨(dú)按下"C"字母鍵
由于"+"、"^"這些字符用來表示特殊的控制按鍵了,如何表示這些按鍵呢?只要用大括號(hào)括住這些字符即可.例如,要發(fā)送加號(hào)"+",可使用" WshShell.SendKeys "{+}" ".另外對(duì)于一些不會(huì)生成字符的控制功能按鍵,也同樣需要使用大括號(hào)括起來按鍵號(hào)名稱,例如要發(fā)送回車鍵,需要用" WshShell.SendKeys "{ENTER}" "表示,發(fā)送向下的方向鍵用" WshShell.SendKeys "{DOWN}" "表示.
小提示
如果需要發(fā)送多個(gè)重復(fù)的單字母按鍵,不必重復(fù)輸入該字母,SendKdys允許使用簡化格式進(jìn)行描述,使用格式為"{按鍵 數(shù)字}".例如要發(fā)送10個(gè)字母"x",則輸入" WshShell.SendKeys "{x 10}" "即可.
3.翻譯上手實(shí)例
" WshShell.SendKeys "^{ESC}u" "這句翻譯為:按下Ctrl+Esc組合鍵(相當(dāng)于按Win鍵)打開"開始"菜單,按著按U鍵打開"關(guān)機(jī)"菜單.
---Just Do It---------------------------------
讓VBS腳本自動(dòng)在詞本中輸入一行文字"Hello, welcome to cfan".
Dim WshShell
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 200
WshShell.AppActivate " 無標(biāo)題 - 記事本 "
WshShell.SendKeys "hello, welcome to cfan"
我們最常用的記事本沒有Word、WPS那樣的自動(dòng)定時(shí)存盤功能,其實(shí)利用VBS腳本再加上SendKeys命令,就能彌補(bǔ)這個(gè)遺憾.打開記事本,輸入以下內(nèi)容(以容易描述和分析,把代碼分為四個(gè)部分):
'第一部分：定義變量和對(duì)象
Dim WshShell, AutoSaveTime, TXTFileName
AutoSaveTime=300000
Set WshShell=WScript.CreateObject("WScript.Shell")
TXTFileName=InputBox("請輸入你要?jiǎng)?chuàng)建的文件名(不能用中文和純數(shù)字)：")
'第二部分：打開并激活記事本
WshShell.Run "notepad"
WScript.Sleep 200
WshShell.AppActivate "無標(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,以后要使用記事本時(shí),都通過雙擊這個(gè)腳本文件來打開.
程序翻譯
這個(gè)腳本的基本思路是定時(shí)向記事本發(fā)送Ctrl+S這個(gè)存盤組合鍵.
第一部分:定義了腳本中需要用到的變量和對(duì)象."AutoSaveTime"變量用來設(shè)置自動(dòng)存盤間隔,單位為毫秒,這里設(shè)置為5分鐘."TXTFileName"變量通過輸入框取得你要?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í)行了這樣的操作流程(請注意每個(gè)操作之間延時(shí)命令的使用):
在記事本中按Ctrl+S組合鍵→彈出保存文件的窗口→輸入文件名→按Alt+S組合鍵進(jìn)行保存(默認(rèn)保存在"我的文檔"目錄).
第四部分:定時(shí)存盤的關(guān)鍵,通過"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í)行,退出記事本后,腳本無法激活記事本窗口,就會(huì)路出循環(huán),執(zhí)行"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}

感謝各位的閱讀！關(guān)于“vbs中SendKey怎么用”這篇文章就分享到這里了，希望以上內(nèi)容可以對(duì)大家有一定的幫助，讓大家可以學(xué)到更多知識(shí)，如果覺得文章不錯(cuò)，可以把它分享出去讓更多的人看到吧！