[问题求助] vbs怎么判断按钮事件来实现跳转（已解决）

凡凡之呗

dim a,cs
const pass="fan123_"
cs=0
do while cs<3
a=inputbox("请输入密码:","三次机会")
if a=pass then
         msgbox "密码认证成功"
         msgbox "告诉你一个秘密，密码为fan123_"
         exit do 'exit do 只能位于true后面，否则不会重复
else 
         msgbox "密码认证失败,请重试"
         cs=cs+1
end if
'cs=cs+1 也可以放在这里
loop
复制代码

我想实现这样的功能
当出现inputbox编辑框  而用户直接按取消按钮时，直接退出  而我不知道怎么办（msgbox可以判断按钮事件来实现不同的功能，它有返回值！）
求帮助  或者我想问一下
vbs怎么实现像cmd中 goto 那样的跳转

凡凡之呗

回复 6# CrLf


    好的  谢谢

CrLf

回复 5# 凡凡之呗


    WScript.Quit(n) 是设置退出码为 n，其实 WScript.Quit() 就相当于 WScript.Quit(0) 了，要是更随意一点，用 WScript.Quit 都行

凡凡之呗

回复 2# yu2n


    WScript.Quit(0)
我试验了一下  把0改为1等数字也能实现啊 那个0 是随便吗 还有第一行  那个'0.vbs是注视没错。与那个零也没关系对吧

凡凡之呗

回复 2# yu2n


    好吧  我错了   再次感谢大神   初学vbs  有些地方真是不懂  谢谢

凡凡之呗

回复 2# yu2n


    第一种方法 如果当用户输入了一定内容  这个时候又去按取消键 那肯定不行   我试试第二种方法吧  谢谢咯

yu2n

1.  获取 Inputbox() 取消按钮操作

' 0.vbs
Dim s
s = Inputbox("请输入：", "输入测试", "默认值")
If IsEmpty(s) Then
  Msgbox "提示：你执行了取消操作，程序即将退出。"
  WScript.Quit(0)
End If
复制代码

2. VBS中使用过程(SUB)与函数(Function)实现调用

' 调用主函数 Main()
Main


Sub Main()
   
  ' 调用过程 a()
  call a()

  ' 调用函数 b()
  Msgbox "现在时间：" & b()

End Sub


Sub a()
  Msgbox "I'm a!"
End Sub


Function b()
  b = Now()
End Function
复制代码