on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 600 -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) + "哈哈哈哈，真过瘾"

把上面的文字复制到记事本内。另存为名字随便你起记住后面的一定要加 .vbe


破解方法如下：

按下“Win +R”,在运行框里输入命令：“shutdown -a”(不含引号)。这样那个被调用的“shutdown”程序便会被结束。只剩下一个“说不说”任务在空架着。只需要在任务管理器里结束此任务便万事大吉。

事后，朋友说：“这开玩笑的小程序你也要研究破解，真是无趣。”真的是这样吗？难道被整才有趣，呵呵。