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 "你是猪",0,"MsgBox" loop msgbox "早说就行了嘛" dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "cmd.exe /c shutdown -a",0 ,true msgbox "2333333真过瘾"