----------------------------------------------------------------------
on error resume next
dim WSHshellA
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -s -t 15 -c ""快說“我是豬”，不說我是豬就十五秒鐘關妳機，不信，試試···"" ",0 ,true
dim a
a = inputbox ("說我是豬,就不關機，快撒，說 ""我是豬"" ","說不說","不說",8000,7000)
if a<>"我是豬" then
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
sleep(100)
WSHshellA.run "cmd.exe /c shutdown -s -t 0 -c ""讓妳不說，現在晚了""",0 ,true
else
msgbox chr(13) + chr(13) + chr(13) + "早說就行了嘛"
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，真過癮"
end if
----------------------------------------------------------------------
把以上的（不包括線）復制到記事本，然後保存後綴為.vbs就做好了，使用方法就是鼠標左鍵雙擊。