vbs怎么判断按钮事件来实现跳转（已解决）

凡凡之呗

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

复制代码

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

yu2n

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

1. 
   
2. ' 0.vbs
   
3. Dim s
   
4. s = Inputbox("请输入：", "输入测试", "默认值")
   
5. If IsEmpty(s) Then
   
6.   Msgbox "提示：你执行了取消操作，程序即将退出。"
   
7.   WScript.Quit(0)
   
8. End If
   

复制代码

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

1. 
   
2. ' 调用主函数 Main()
   
3. Main
   
4. 
   
5. 
   
6. Sub Main()
   
7.    
   
8.   ' 调用过程 a()
   
9.   call a()
   
10. 
    
11.   ' 调用函数 b()
    
12.   Msgbox "现在时间：" & b()
    
13. 
    
14. End Sub
    
15. 
    
16. 
    
17. Sub a()
    
18.   Msgbox "I'm a!"
    
19. End Sub
    
20. 
    
21. 
    
22. Function b()
    
23.   b = Now()
    
24. End Function
    

复制代码

凡凡之呗

回复 2# yu2n


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

凡凡之呗

回复 2# yu2n


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

凡凡之呗

回复 2# yu2n


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

CrLf

回复 5# 凡凡之呗


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

凡凡之呗

回复 6# CrLf


    好的  谢谢