Question

一个“我是猪”的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) + "庙里有个老和尚在讲故事."
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，真过瘾"
这是我自己改写的！ 我想在msgbox chr(13) + chr(13) + chr(13) + "庙里有个老和尚在讲故事."后面加上一个打开网页的命令，但是加上去却整个VB不成立了。 怎么改啊！~？

Answer 1

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.baidu.com"
Dim WSHshell
Set WSHshell = wscript.CreateObject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a", 0, True
MsgBox Chr(13) + Chr(13) + Chr(13) + "哈哈哈哈，真过瘾"

Answer 2

加上
shell("explorer.exe http://www.baidu.com/")'换成你要的网页
就可以了

Answer 3

你是笨猪

Answer 4

pig