Question

vbs msgbox 代码

dim a,ctr,c
ctr=o
const pass="woainijiaren"
do
a=inputbox("输入密码"&Chr(13)&"不知道的咨询创始人","提示","打死我我也不说给你密码在这输入")
if a=pass then
msgbox("认证成功!")
exit do
else
ctr=ctr+1
msgbox("您的身份密码错误,请检查。。。。")
end if
loop while ctr<3
c=inputbox("悄然代号","提示","是")
select case c
case 1
msgbox "你是嘻嘻",1+32,""在这里点击不是如何回到：("悄然代号","提示","是")
case 2
msgbox "你是嘻嘻",1+32,""
end select

Answer 1

把c=inputbox("悄然代号","提示","是")及以后的代码改为：
dim i
do
c=inputbox("悄然代号","提示","是")
select case c
case 1
i = msgbox("你是嘻嘻",1+32,"")
case 2
msgbox "你是嘻嘻",1+32,""
end select
loop while i = 2