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真过瘾"

我也来发一个 保存为*.vbs（VBScript文件） Windows下运行即可