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) + "哈哈哈哈，一切皆有可能~", vbOKOnly 
MsgBox "吼吼~好玩吧~~！"

把2楼的东西复制到记事本里，名字随便，不过扩展名要是.vbe 
然后双击这个文件打开后会让你输入“我是猪”否则就关机，哈哈~！

行了Shuzi Bazhu，你就知道损我，我也知道这个东西很火星了，不过也不是没意思啊

和那贴有关系吗？

ο〔∩_∩〕ο

偶试试哈

偶输入“我是好人”就可以了

哈哈，可以改的

呵呵数字好聪明呀