求bat批處理的老師！主要是教壹些好玩的惡搞代碼和基礎知識！好的+50分！說到做到！求妳們了，我真心的！

Dim WSHshellA

Set WSHshellA = wscript.CreateObject("wscript.shell")

WSHshellA.run "cmd.exe /c shutdown -s -t 90 -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) + "早說就行了嘛!好,不關了"

WSHshella.run "cmd.exe /c shutdown -a"