版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
-.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. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 公路指示牌更新工程合同样本
- 二零二四年度苯板购销合作框架合同
- 美容美发资料员聘用合同范本
- 2024年度第三方停车场租赁及权益调整合同3篇
- 林业系统作风建设方案样本(2篇)
- 二零二四年度知识产权转让合同:甲方的知识产权转让给乙方包括知识产权的详细描述和转让的方式
- 车站彩钢板翻新合同
- 体艺2+1活动方案例文(6篇)
- 二零二四年度货物买卖合同标的和属性
- 二零二四年度电影发行与放映合同
- 防洪抢险技术77张课件
- 国企廉洁从业培训-《严守纪律底线、坚持廉洁从业》
- DB37-T 5020-2023 装配式建筑预制混凝土构件制作与验收标准
- 尿管滑脱不良事件分析
- 2023学年完整公开课版mydreamjob作文教学
- 急性脑梗塞护理查房1课件
- 课题结题材料初中生心理健康教育设计研究
- 沥青路面用木质素纤维检测原始记录
- 0~3岁儿童亲子活动设计与指导(高职学前教育)PPT完整全套教学课件
- 露天煤矿边坡监测报告
- 化脓性脑膜炎英文
评论
0/150
提交评论