亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb

首頁 > 編程 > VBScript > 正文

vbscript sendkeys實例代碼大全

2020-06-26 18:13:26
字體:
來源:轉載
供稿:網友
SendKeys 模擬鍵盤操作,將一個或多個按鍵指令發送到指定Windows窗口來控制應用程序運行,下面有很多的vbs結合sendkyes的實例代碼,方便大家學習
 

其使用格式為:object.SendKeys string  

“object”:表示WshShell對象  
“string”:表示要發送的按鍵指令字符串,需要放在英文雙引號中。  

1.基本鍵  

  一般來說,要發送的按鍵指令都可以直接用該按鍵字符本身來表示,例如要發送字母“x”,使用“WshShell.SendKeys "x"”即可。當然,也可直接發送多個按鍵指令,只需要將按鍵字符按順序排列在一起即可,例如,要發送按鍵“happy”,可以使用“WshShell.SendKeys "happy"”。  

2.特殊功能鍵  

  對于需要與Shift、Ctrl、Alt三個控制鍵組合的按鍵,SendKeys使用特殊字符來表示:  

Shift---------WshShell.SendKeys "+"  
Ctrl---------WshShell.SendKeys "^"  
Alt---------WshShell.SendKeys "%"  

由于“+”、“^”這些字符用來表示特殊的控制按鍵了,如何表示這些按鍵呢?  

只要用大括號括住這些字符即可。例如:  

要發送加號“+”,可使用“WshShell.SendKeys "{+}"”  

另外對于一些不會生成字符的控制功能按鍵,也同樣需要使用大括號括起來按鍵的名稱,例如要發送回車鍵,需要用“WshShell.SendKeys "{ENTER}"”表示,發送向下的方向鍵用“WshShell.SendKeys "{DOWN}"”表示。  

Space---------WshShell.SendKeys " "  
Enter---------WshShell.SendKeys "{ENTER}"  
←---------WshShell.SendKeys "{RIGHT}"  
↑---------WshShell.SendKeys "{UP}"  
F1---------WshShell.SendKeys "{F1}"  

Tips:如果需要發送多個重復的單字母按鍵,不必重復輸入該字母,SendKeys允許使用簡化格式進行描述,使用格式為“{按鍵 數字}”。例如要發送10個字母“x”,則輸入“WshShell.SendKeys "{x 10}"”即可。  

實例:  
----------------------------------------------------  
按下F5刷新桌面  

Dim WshShell,Path,i  
Set WshShell = WScript.CreateObject("WScript.Shell")  
WshShell.SendKeys "{F5}"  
----------------------------------------------------  
電腦的自動重啟  

set WshShell = CreateObject("WScript.Shell")  
WshShell.SendKeys "^{ESC}u"  
WshShell.SendKeys "R"  
----------------------------------------------------  
啟動任務管理器  

set WshShell = CreateObject("WScript.Shell")  
WshShell.SendKeys "^+{ESC}"  
----------------------------------------------------  
QQ消息群發  

Dim WshShell  
Set WshShell= WScript.createObject("WScript.Shell")  
WshShell.AppActivate "bomb"  
for i=1 to 60  
WScript.Sleep 800  
WshShell.SendKeys "Number0"  
WshShell.SendKeys i  
WshShell.SendKeys "%s"  
next  
----------------------------------------------------  
自動到百度搜索歌曲:white flag  

Dim WshShell,Path,i  
Set WshShell = WScript.CreateObject("WScript.Shell")  
WshShell.Run("IEXPLORE.EXE")  
WScript.Sleep 2000  
WshShell.AppActivate "about:blank-Microsoft Internet Explorer"  
WshShell.SendKeys "+{TAB}"  
WshShell.SendKeys "http://mp3.baidu.com"  
WScript.Sleep 800  
WshShell.SendKeys "{ENTER}"  
WScript.Sleep 3000  
WshShell.SendKeys "white flag"  
WScript.Sleep 800  
WshShell.SendKeys "{ENTER}"  
----------------------------------------------------  
在記事本中輸入Happy Birthday!并保存為birth.txt  

Dim WshShell  
Set WshShell=WScript.CreateObject("WScript.Shell")  
WshShell.Run "notepad"  
WScript.Sleep 1500  
WshShell.AppActivate "無標題 - 記事本"  
WshShell.SendKeys "H"  
WScript.Sleep 500  
WshShell.SendKeys "a"  
WScript.Sleep 500  
WshShell.SendKeys "p"  
WScript.Sleep 500  
WshShell.SendKeys "p"  
WScript.Sleep 500  
WshShell.SendKeys "y"  
WScript.Sleep 500  
WshShell.SendKeys " "  
WScript.Sleep 500  
WshShell.SendKeys "B"  
WScript.Sleep 500  
WshShell.SendKeys "i"  
WScript.Sleep 500  
WshShell.SendKeys "r"  
WScript.Sleep 500  
WshShell.SendKeys "t"  
WScript.Sleep 500  
WshShell.SendKeys "h"  
WScript.Sleep 500  
WshShell.SendKeys "d"  
WScript.Sleep 500  
WshShell.SendKeys "a"  
WScript.Sleep 500  
WshShell.SendKeys "y"  
WScript.Sleep 500  
WshShell.SendKeys "!"  
WScript.Sleep 500  
WshShell.SendKeys "%FS"  
WScript.Sleep 500  
WshShell.SendKeys "b"  
WScript.Sleep 500  
WshShell.SendKeys "i"  
WScript.Sleep 500  
WshShell.SendKeys "r"  
WScript.Sleep 500  
WshShell.SendKeys "t"  
WScript.Sleep 500  
WshShell.SendKeys "h"  
WScript.Sleep 500  
WshShell.SendKeys "%S"  
WScript.Sleep 500  
WshShell.SendKeys "%FX"  
----------------------------------------------------  
制作能自動定時存盤的記事本  

'第一部分:定義變量和對象  

Dim WshShell, AutoSaveTime, TXTFileName  
AutoSaveTime=300000  
Set WshShell=WScript.CreateObject("WScript.Shell")  
TXTFileName=InputBox("請輸入你要創建的文件名(不能用中文和純數字):")  

'第二部分:打開并激活記事本  

WshShell.Run "notepad"  
WScript.Sleep 200  
WshShell.AppActivate "無標題 - 記事本"  

'第三部分:用輸入的文件名存盤  

WshShell.SendKeys "^s"  
WScript.Sleep 300  
WshShell.SendKeys TXTFileName  
WScript.Sleep 300  
WshShell.SendKeys "%s"  
WScript.Sleep AutoSaveTime  
'第四部分:自動定時存盤  
While WshShell.AppActivate (TXTFileName)=True  
WshShell.SendKeys "^s"  
WScript.Sleep AutoSaveTime  
Wend  
WScript.Quit  
----------------------------------------------------  
死機的,嘿嘿! 
DIM WSHSHELL  
SET WSHSHELL=WSCRIPT.CREATEOBJECT("WSCRIPT.SHELL")  
'WSHSHELL.RUN " "  
'WSCRIPT.SLEEP 1000  
WSHSHELL.SENDKEYS "{ENTER}"  
'WSCRIPT.SLEEP 1000  
WSHSHELL.SENDKEYS "{ENTER}"  
'WSCRIPT.SLEEP 1000  
WSHSHELL.SENDKEYS "{ENTER}"  
'WSCRIPT.SLEEP 1000  
WSHSHELL.SENDKEYS "{ENTER}"  
'WSCRIPT.SLEEP 1000  
WSHSHELL.SENDKEYS "{ENTER}"  
----------------------------------------------------  

定時關機的 

Dim WshShell 
Set WshShell=WScript.CreateObject("WScript.Shell") 
WScript.Sleep 2000 
WshShell.Run "shutdown -r -t 120" 
wscript.sleep 6000 
WshShell.Run "shutdown -a 
發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb
97国产精品视频人人做人人爱| 精品偷拍一区二区三区在线看| 国产精品高清免费在线观看| 中文字幕最新精品| 亚洲丝袜在线视频| 午夜精品久久久久久久久久久久久| 国产成人精品视频在线观看| 精品国产精品自拍| 国产欧美亚洲精品| 久久成年人视频| 国产午夜精品一区二区三区| 在线视频欧美日韩| xvideos成人免费中文版| 欧美精品在线免费| 欧美成人中文字幕| 一区二区国产精品视频| 91亚洲精华国产精华| 亚洲国模精品私拍| 久久精品一本久久99精品| 中文字幕视频一区二区在线有码| 91社影院在线观看| 久久综合伊人77777蜜臀| 91最新在线免费观看| 亚洲欧美日韩天堂一区二区| 日韩电影免费观看在线| 久久99久久99精品中文字幕| 亚洲最新中文字幕| 国产精品老女人精品视频| 亚洲**2019国产| 久久香蕉国产线看观看网| 4444欧美成人kkkk| 中文字幕无线精品亚洲乱码一区| 亚洲图片欧美午夜| 亚洲国产欧美一区二区丝袜黑人| 国产ts人妖一区二区三区| 亚洲欧美日韩精品久久| 日韩欧美高清视频| 亚洲精品720p| 日韩人体视频一二区| 97成人精品区在线播放| 国产精品露脸av在线| www.国产精品一二区| 国产一区二区三区四区福利| 国产精品成人va在线观看| 国产日韩欧美综合| 欧美日韩一区二区免费视频| 人九九综合九九宗合| 26uuu日韩精品一区二区| 久久婷婷国产麻豆91天堂| 亚洲夜晚福利在线观看| 亚洲石原莉奈一区二区在线观看| 色先锋久久影院av| 国产脚交av在线一区二区| 亚洲视频在线观看免费| 日产日韩在线亚洲欧美| 国产精品久久综合av爱欲tv| 日韩免费av一区二区| 欧美色欧美亚洲高清在线视频| 亚洲3p在线观看| 国产精品9999| 国产精品第三页| 欧美日韩国产一区二区三区| 亚洲视屏在线播放| 久久久久久中文字幕| 欧美成人一区二区三区电影| 深夜福利国产精品| 亚洲男人7777| 中文字幕日韩精品在线| 国语自产偷拍精品视频偷| 日韩成人黄色av| 欧美日韩亚洲激情| 日韩中文字幕不卡视频| 亚洲美女av在线播放| 精品一区二区三区四区| 欧美视频免费在线| 国产精品av免费在线观看| 永久免费看mv网站入口亚洲| 亚洲国产欧美一区二区丝袜黑人| 亚洲精品不卡在线| 北条麻妃久久精品| 欧美电影免费观看高清| 日本三级韩国三级久久| 欧美成人黑人xx视频免费观看| 91免费看国产| 亚洲精品国产精品久久清纯直播| 欧美日韩日本国产| 国产91av在线| 久久青草精品视频免费观看| 亚洲一级免费视频| 欧美第一黄网免费网站| 国产黑人绿帽在线第一区| 精品精品国产国产自在线| 久久激情视频免费观看| 欧美日韩精品中文字幕| 久久久亚洲福利精品午夜| 中文字幕日韩欧美在线视频| 国产精品永久免费| 亚洲美女视频网站| 91精品国产自产在线观看永久| 亚洲精品永久免费精品| 最新国产成人av网站网址麻豆| 欧美高清一级大片| 成人在线精品视频| 色婷婷av一区二区三区久久| 精品高清美女精品国产区| 日韩中文字幕网站| 亚洲激情在线观看| 欧美午夜精品久久久久久浪潮| 成人美女免费网站视频| 久久这里只有精品视频首页| 欧美精品生活片| 精品二区三区线观看| 91精品成人久久| 欧美做受高潮电影o| 久久香蕉国产线看观看av| 日韩av一区二区在线| 久久精品国产99国产精品澳门| 欧美成人一区二区三区电影| 欧美日韩免费一区| 欧美性xxxx在线播放| 国产精品ⅴa在线观看h| 日韩国产精品亚洲а∨天堂免| 国产精品自产拍在线观看中文| 日韩欧美一区视频| 欧美精品videosex性欧美| 国产精品色午夜在线观看| 国产成人一区二区| 国产精品久久久久久久久久新婚| 日本不卡免费高清视频| 亚洲a∨日韩av高清在线观看| 精品露脸国产偷人在视频| 国产精品久久久久9999| 成人黄色免费在线观看| 亚洲性日韩精品一区二区| 日韩av免费在线看| 精品久久久久久亚洲精品| 国产自产女人91一区在线观看| 久99久在线视频| 国产精品日韩欧美| 久久男人av资源网站| 午夜精品久久久久久久白皮肤| 一本久久综合亚洲鲁鲁| 国产性猛交xxxx免费看久久| 国产69精品久久久久99| 亚洲国产精品美女| 亚洲另类欧美自拍| 国产精品专区h在线观看| 国产aⅴ夜夜欢一区二区三区| 国产视频久久久久| 国产91亚洲精品| 欧美日韩中文字幕日韩欧美| 久久久久久国产精品| 亚洲国产成人久久| 国产精品久久久久77777| 亚洲区在线播放| 国产在线观看精品一区二区三区| 亚洲免费伊人电影在线观看av| 日韩av电影国产| 亚洲精品中文字| 国产精品高清免费在线观看| www日韩中文字幕在线看| 91免费的视频在线播放| 国产成人福利网站| 日韩美女在线看|