on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 2 -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) + "哈哈，其实我也信！！"
大家建个txt文件 然后粘贴 重命名 把txt格式改成vbe 在打开试试