vb整人小程序

vb整人小程序

把以下代码复制 把TXT文档 改成 .vbe 或 .vbs 都行 这个是个是不关机的 要关机就在最后加（a,0,"MsgBox" loop msgbox " 打字" ） 字都可以自己改on error resume nextdim WSHshellAset WSHshellA = wscript.createobject("wscript.shell")WSHshellA.run "cmd.exe /c shutdown -r -t 50 -c ""系统正在准备关机！"" ",0 ,true dim ado while(a <> "我是傻子")a = inputbox ("说我是傻子,不说就关你的机,快说！！ ","牛不牛","我是傻子",8000,7000)msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"loopmsgbox chr(13) + chr(13) + chr(13) + "早点说就OK了！"dim WSHshellset 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 作品。。 "