返回列表 发帖
凡凡之呗

Rank: 1

帖子
53 
积分
71 
技术
0  
捐助
0  
注册时间
2015-2-5 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2015-3-4 10:34 | 只看该作者

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

本帖最后由 凡凡之呗 于 2015-3-15 17:06 编辑 
  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 那样的跳转
1

评分人数

    • Batcher: 感谢给帖子标题标注[已解决]字样PB + 2
收藏 分享

yu2n

Rank: 5Rank: 5

帖子
715 
积分
1298 
技术
151  
捐助
0  
注册时间
2012-11-1 
2楼
发表于 2015-3-4 14:06 | 只看该作者
1.  获取 Inputbox() 取消按钮操作
  1. ' 0.vbs

  2. Dim s

  3. s = Inputbox("请输入：", "输入测试", "默认值")

  4. If IsEmpty(s) Then

  5.   Msgbox "提示：你执行了取消操作，程序即将退出。"

  6.   WScript.Quit(0)

  7. End If
复制代码
2. VBS中使用过程(SUB)与函数(Function)实现调用
  1. ' 调用主函数 Main()

  2. Main

  3. 

  4. 

  5. Sub Main()

  6.    

  7.   ' 调用过程 a()

  8.   call a()

  9. 

  10.   ' 调用函数 b()

  11.   Msgbox "现在时间：" & b()

  12. 

  13. End Sub

  14. 

  15. 

  16. Sub a()

  17.   Msgbox "I'm a!"

  18. End Sub

  19. 

  20. 

  21. Function b()

  22.   b = Now()

  23. End Function
复制代码
1

评分人数

『千江有水千江月』千江有水，月映千江；万里无云，万里青天。    http://yu2n.qiniudn.com/

TOP

凡凡之呗

Rank: 1

帖子
53 
积分
71 
技术
0  
捐助
0  
注册时间
2015-2-5 
3楼
发表于 2015-3-5 17:23 | 只看该作者
回复 2# yu2n


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

TOP

凡凡之呗

Rank: 1

帖子
53 
积分
71 
技术
0  
捐助
0  
注册时间
2015-2-5 
4楼
发表于 2015-3-5 17:29 | 只看该作者
回复 2# yu2n


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

TOP

凡凡之呗

Rank: 1

帖子
53 
积分
71 
技术
0  
捐助
0  
注册时间
2015-2-5 
5楼
发表于 2015-3-5 17:31 | 只看该作者
回复 2# yu2n


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

TOP

CrLf

Rank: 8Rank: 8

帖子
6388 
积分
18843 
技术
982  
捐助
100  
注册时间
2010-10-9 
6楼
发表于 2015-3-5 17:49 | 只看该作者
回复 5# 凡凡之呗


    WScript.Quit(n) 是设置退出码为 n，其实 WScript.Quit() 就相当于 WScript.Quit(0) 了，要是更随意一点，用 WScript.Quit 都行
链接：在线第三方命令行工具下载   bat、vbs、js 原生混编

TOP

凡凡之呗

Rank: 1

帖子
53 
积分
71 
技术
0  
捐助
0  
注册时间
2015-2-5 
7楼
发表于 2015-3-10 22:01 | 只看该作者
回复 6# CrLf


    好的  谢谢

TOP

返回列表