[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[问题求助] 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

回复 6# CrLf


    好的  谢谢

TOP

回复 5# 凡凡之呗


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

TOP

回复 2# yu2n


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

TOP

回复 2# yu2n


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

TOP

回复 2# yu2n


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

TOP

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. Sub Main()
  4.    
  5.   ' 调用过程 a()
  6.   call a()
  7.   ' 调用函数 b()
  8.   Msgbox "现在时间:" & b()
  9. End Sub
  10. Sub a()
  11.   Msgbox "I'm a!"
  12. End Sub
  13. Function b()
  14.   b = Now()
  15. End Function
复制代码
1

评分人数

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

TOP

返回列表