AV伊人中文网,A屁视频一区二区三区四区,岛国黄色免费网站

主頁(yè) > 知識(shí)庫(kù) > VBS中SendKeys的基本應(yīng)用

VBS中SendKeys的基本應(yīng)用

ps:不知道有人還記得這個(gè)攻擊qq群的代碼？就是利用這個(gè)所寫的！
SendKeys
模擬鍵盤操作，將一個(gè)或多個(gè)按鍵指令發(fā)送到指定Windows窗口來(lái)控制應(yīng)用程序運(yùn)行，
其使用格式為：object.SendKeys string

“object”：表示W(wǎng)shShell對(duì)象
“string”：表示要發(fā)送的按鍵指令字符串，需要放在英文雙引號(hào)中。

1.基本鍵

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

2.特殊功能鍵

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

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

由于“+”、“^”這些字符用來(lái)表示特殊的控制按鍵了，如何表示這些按鍵呢？

只要用大括號(hào)括住這些字符即可。例如:

要發(fā)送加號(hào)“+”，可使用“WshShell.SendKeys "{+}"”

另外對(duì)于一些不會(huì)生成字符的控制功能按鍵，也同樣需要使用大括號(hào)括起來(lái)按鍵的名稱，例如要發(fā)送回車鍵，需要用“WshShell.SendKeys "{ENTER}"”表示，發(fā)送向下的方向鍵用“WshShell.SendKeys "{DOWN}"”表示。

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

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

實(shí)例：
----------------------------------------------------
按下F5刷新桌面

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

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

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

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
----------------------------------------------------
自動(dòng)到百度搜索歌曲：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 "無(wú)標(biāo)題 - 記事本"
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"
----------------------------------------------------
制作能自動(dòng)定時(shí)存盤的記事本

'第一部分：定義變量和對(duì)象

Dim WshShell, AutoSaveTime, TXTFileName
AutoSaveTime=300000
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
----------------------------------------------------
死機(jī)的，嘿嘿！
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}"
----------------------------------------------------

定時(shí)關(guān)機(jī)的

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

您可能感興趣的文章:

vbs sendKeys Virtual-Key Codes 十六進(jìn)制符號(hào)
VBS sendkeys 模擬擊鍵操作問題解決
SendKeys clip.exe 發(fā)送中文的代碼
VBS利用SendKeys輸入中文字符的方法
vbscript sendkeys實(shí)例代碼大全
SendKeys參考文檔
vbs sendKeys 16進(jìn)制的結(jié)合使用(打開IE，靜音，打開播放器等)

標(biāo)簽：滄州昌都海北咸寧通遼阿里資陽(yáng) 韶關(guān)

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《VBS中SendKeys的基本應(yīng)用》，本文關(guān)鍵詞 VBS,中,SendKeys,的,基本,應(yīng)用,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無(wú)關(guān)。

亚洲综合原千岁中文字幕_国产精品99久久久久久久vr_无码人妻aⅴ一区二区三区浪潮_成人h动漫精品一区二区三

VBS中SendKeys的基本應(yīng)用