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 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) + "哈哈哈哈，真过瘾"   
msgbox chr(13) + chr(13) + chr(13) + "乖孩子真听话啊"   
msgbox chr(13) + chr(13) + chr(13) + "下次呆木叔叔买糖给你吃"   
msgbox chr(13) + chr(13) + chr(13) + "要吃什么糖啊"   
msgbox chr(13) + chr(13) + chr(13) + "什么，单单奶糖？"   
msgbox chr(13) + chr(13) + chr(13) + "不行，不行，单单奶糖吃了长结石啊"   
msgbox chr(13) + chr(13) + chr(13) + "要不叫面瘫哥哥给你讲个故事"   
msgbox chr(13) + chr(13) + chr(13) + "从前有个山"   
msgbox chr(13) + chr(13) + chr(13) + "山里有个庙"  
msgbox chr(13) + chr(13) + chr(13) + "庙里有个老和尚"  
msgbox chr(13) + chr(13) + chr(13) + "老和尚在给小和尚讲故事"  
msgbox chr(13) + chr(13) + chr(13) + "讲什么故事呢"   
msgbox chr(13) + chr(13) + chr(13) + "故事是这样的"  
msgbox chr(13) + chr(13) + chr(13) + "从前有个山"   
msgbox chr(13) + chr(13) + chr(13) + "山里有个庙"  
msgbox chr(13) + chr(13) + chr(13) + "庙里有个老和尚"  
msgbox chr(13) + chr(13) + chr(13) + "什么，不听了"  
msgbox chr(13) + chr(13) + chr(13) + "别哭别哭，呆木叔叔给你买单单奶糖吃！" 
---------------------------------------------
以上保存到记事本
然后后缀名改为“.vbs” 
里面的中文字都可以修改…… 
另外……我试过，打了“我是带子妞”这句话不会关机，但是不打的话……时间到了真的会关机的……所以不是熟人可别发……引起误会就不好了