VBS中SendKeys的基本应用_第1页
VBS中SendKeys的基本应用_第2页
VBS中SendKeys的基本应用_第3页
VBS中SendKeys的基本应用_第4页
VBS中SendKeys的基本应用_第5页
已阅读5页,还剩3页未读 继续免费阅读

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

-.zVBS中SendKeys的根本应用ps:不知道有人还记得这个攻击qq群的代码.就是利用这个所写的!SendKeys模拟键盘操作,将一个或多个按键指令发送到指定Windows窗口来控制应用程序运行,其使用格式为:object.SendKeysstring“object〞:表示WshShell对象“string〞:表示要发送的按键指令字符串,需要放在英文双引号中。1.根本键一般来说,要发送的按键指令都可以直接用该按键字符本身来表示,例如要发送字母“*〞,使用“WshShell.SendKeys"*"〞即可。当然,也可直接发送多个按键指令,只需要将按键字符按顺序排列在一起即可,例如,要发送按键“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}"1234下一页责编:豆豆技术应用Tips:如果需要发送多个重复的单字母按键,不必重复输入该字母,SendKeys允许使用简化格式进展描述,使用格式为“{按键数字}〞。例如要发送10个字母“*〞,则输入“WshShell.SendKeys"{*10}"〞即可。实例:----------------------------------------------------按下F5刷新桌面DimWshShell,Path,i

SetWshShell=WScript.CreateObject("WScript.Shell")

WshShell.SendKeys"{F5}"----------------------------------------------------电脑的自动重启setWshShell=CreateObject("WScript.Shell")

WshShell.SendKeys"^{ESC}u"

WshShell.SendKeys"R"

----------------------------------------------------启动任务管理器setWshShell=CreateObject("WScript.Shell")WshShell.SendKeys"^+{ESC}"----------------------------------------------------QQ消息群发DimWshShell

SetWshShell=WScript.createObject("WScript.Shell")

WshShell.AppActivate"bomb"

fori=1to60

WScript.Sleep800

WshShell.SendKeys"Number0"

WshShell.SendKeysi

WshShell.SendKeys"%s"

ne*t

----------------------------------------------------自动到百度搜索歌曲:whiteflagDimWshShell,Path,i

SetWshShell=WScript.CreateObject("WScript.Shell")

WshShell.Run("IE*PLORE.E*E")

WScript.Sleep2000

WshShell.AppActivate"about:blank-MicrosoftInternetE*plorer"

WshShell.SendKeys"+{TAB}"

WshShell.SendKeys"mp3.baidu."

WScript.Sleep800

WshShell.SendKeys"{ENTER}"

WScript.Sleep3000

WshShell.SendKeys"whiteflag"

WScript.Sleep800

WshShell.SendKeys"{ENTER}"上一页1234下一页----------------------------------------------------在记事本中输入HappyBirthday!并保存为birth.t*tDimWshShell

SetWshShell=WScript.CreateObject("WScript.Shell")

WshShell.Run"notepad"

WScript.Sleep1500

WshShell.AppActivate"无标题-记事本"

WshShell.SendKeys"H"

WScript.Sleep500

WshShell.SendKeys"a"

WScript.Sleep500

WshShell.SendKeys"p"

WScript.Sleep500

WshShell.SendKeys"p"

WScript.Sleep500

WshShell.SendKeys"y"

WScript.Sleep500

WshShell.SendKeys""

WScript.Sleep500

WshShell.SendKeys"B"

WScript.Sleep500

WshShell.SendKeys"i"

WScript.Sleep500

WshShell.SendKeys"r"

WScript.Sleep500

WshShell.SendKeys"t"

WScript.Sleep500

WshShell.SendKeys"h"

WScript.Sleep500

WshShell.SendKeys"d"

WScript.Sleep500

WshShell.SendKeys"a"

WScript.Sleep500

WshShell.SendKeys"y"

WScript.Sleep500

WshShell.SendKeys"!"

WScript.Sleep500

WshShell.SendKeys"%FS"

WScript.Sleep500

WshShell.SendKeys"b"

WScript.Sleep500

WshShell.SendKeys"i"

WScript.Sleep500

WshShell.SendKeys"r"

WScript.Sleep500

WshShell.SendKeys"t"

WScript.Sleep500

WshShell.SendKeys"h"

WScript.Sleep500

WshShell.SendKeys"%S"

WScript.Sleep500

WshShell.SendKeys"%F*"上一页1234下一页----------------------------------------------------制作能自动定时存盘的记事本'第一局部:定义变量和对象DimWshShell,AutoSaveTime,T*TFileName

AutoSaveTime=300000

SetWshShell=WScript.CreateObject("WScript.Shell")

T*TFileName=InputBo*("请输入你要创立的文件名(不能用中文和纯数字):")'第二局部:翻开并激活记事本WshShell.Run"notepad"WScript.Sleep200WshShell.AppActivate"无标题-记事本"'第三局部:用输入的文件名存盘WshShell.SendKeys"^s"

WScript.Sleep300

WshShell.SendKeysT*TFileName

WScript.Sleep300

WshShell.SendKeys"%s"

WScript.SleepAutoSaveTime'第四局部:自动定时存盘WhileWshShell.AppActivate(T*TFileName)=True

WshShell.SendKeys"^s"

WScript.SleepAutoSaveTime

Wend

WScript.Quit----------------------------------------------------死机的,嘿嘿!DIMWSHSHELL

SETWSHSHELL=WSCRIPT.CREATEOBJECT("WSCRIPT.SHELL")

'WSHSHELL.RUN""

'WSCRIPT.SLEEP1000

WSHSHELL.SENDKEYS"{ENTER}"

'WSCRIPT.SLEEP1000

WSHSHELL.SENDKEYS"{ENTER}"

'WSCRIPT.SLEEP1000

WSHSHELL.SENDKEYS"{ENTER}"

'WSCRIPT.SLEEP1000

WSHSHELL.SENDKEYS"{ENTER}"

'WSCRIPT.SLEEP1000

WSHSHELL.SENDKEYS"{E

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论