vb整人小程序

把以下代码复制 把TXT文档 改成 .vbe 或 .vbs 都行 这个是个是不关机的 要关机就在最后加
（a,0,"MsgBox"
loop
msgbox " 打字" ） 字都可以自己改

on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 50 -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) + "早点说就OK了！"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈.哈哈 "
msgbox chr(13) + chr(13) + chr(13) + " kpl 作品。。 "