dim WSHshellA
設置WSHshellA = wscript . createobject(" wscript . shell ")
wsh shell a . run " cmd . exe/cshutdown-r-t 60-c " "說我是豬，不然我壹分鐘後關妳手機。如果妳不相信我，試試……”“，0，真。
暗淡的
do while(a & lt；& gt《我是豬》)
A = inputbox("說我是豬，別關，快傳，說" "我是豬" "，"說不說"，"不說"，80007000)
msgbox chr(13)+chr(13)+chr(13)+a，0，" MsgBox "
環
msgbox CHR(13)+CHR(13)+CHR(13)+“要是早點告訴妳就好了。”
昏暗的WSHshell
設置wsh shell = wscript . createobject(" wscript . shell ")
wsh shell . run " cmd . exe/c shut down-a "，0，true
msgbox CHR(13)+CHR(13)+CHR(13)+“哈哈哈哈，真過癮。”