一个vb程序的问题

On Error Resume Next
Dim WSHshellA
Set WSHshellA = wscript.CreateObject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -s -t 30 -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) + "早说就行了嘛"
Do While (b <> "哥哥")
b = InputBox("再叫声哥哥听听!不叫一样关你机!快撒!说""哥哥"" ", "说不说", "不说", 8000, 7000)
MsgBox Chr(13) + Chr(13) + Chr(13) + b, 0, "MsgBox"
Loop
MsgBox Chr(13) + Chr(13) + Chr(13) + "恩恩!不错真乖!就饶了你吧"
Do While (c <> "听")
c = inputbox ("慢着!我隔壁某某说要你等哈,他说他要念首诗你听,你自己看着办吧!看你是""听"" ","听不听

","不听",8000,7000)
MsgBox Chr(13) + Chr(13) + Chr(13) + c, 0, "MsgBox"
Loop
MsgBox Chr(13) + Chr(13) + Chr(13) + "从前有座山."
MsgBox Chr(13) + Chr(13) + Chr(13) + "山里有个庙."
MsgBox Chr(13) + Chr(13) + Chr(13) + "庙里有老和尚."
MsgBox Chr(13) + Chr(13) + Chr(13) + "再来一次..."
MsgBox Chr(13) + Chr(13) + Chr(13) + "从前有座山!"
MsgBox Chr(13) + Chr(13) + Chr(13) + "山里有个庙!"
MsgBox Chr(13) + Chr(13) + Chr(13) + "庙里有个老和尚!"
MsgBox Chr(13) + Chr(13) + Chr(13) + "从前有座山."
MsgBox Chr(13) + Chr(13) + Chr(13) + "山里有个庙."
MsgBox Chr(13) + Chr(13) + Chr(13) + "庙里有老和尚."
MsgBox Chr(13) + Chr(13) + Chr(13) + "再来一次..."
MsgBox Chr(13) + Chr(13) + Chr(13) + "从前有座山!"
MsgBox Chr(13) + Chr(13) + Chr(13) + "山里有个庙!"
MsgBox Chr(13) + Chr(13) + Chr(13) + "庙里有个老和尚!"
MsgBox Chr(13) + Chr(13) + Chr(13) + "最后一次!"
MsgBox Chr(13) + Chr(13) + Chr(13) + "如果你很快的点过去,不看的话"
MsgBox Chr(13) + Chr(13) + Chr(13) + "我就要你踩我空间的!哼!"
MsgBox Chr(13) + Chr(13) + Chr(13) + "从前有座山!"
MsgBox Chr(13) + Chr(13) + Chr(13) + "山里有个庙."
MsgBox Chr(13) + Chr(13) + Chr(13) + "庙里有个老和尚在讲故事."
Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE www.zhaoxi.net"
Dim WSHshell
Set WSHshell = wscript.CreateObject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a", 0, True
MsgBox Chr(13) + Chr(13) + Chr(13) + "哈哈哈哈，真过瘾"

这是我在网上找的vb，是百度知道的答案来的，但不能运行。哪位高手来指点一下啊？

追问：不行啊，还出现新的错误.