gm860419 发表于 2012-10-20 11:47:59

inputbox 高手给看下 怎么解决啊【已解决】

本帖最后由 gm860419 于 2012-10-20 14:21 编辑

Dim $a, $b
Do
        $a = InputBox ("登录窗口", "请输入用户名", "", "")
        $b = InputBox ("密码", "输入您的密码.", "", "*")
        If @error =1 Then Exit
        If $a = "" Then
                MsgBox(0 + 16 + 4096 + 262144, "错误信息", "输入的用户名不能为空")
        ElseIf $a <> "admin" Then
                MsgBox(0 + 16 + 4096 + 262144, '错误信息', '用户名不正确，请重新输入')
        Else
                If $b = "" Then
                        MsgBox(0 + 16 + 4096 + 262144, "错误信息", "输入的密码不能为空")
                ElseIf $b <> "123" Then
                        MsgBox(0 + 16 + 4096 + 262144, '错误信息', '密码不正确，请重新输入')
                Else
                        MsgBox(64, "恭喜", "成功")
                EndIf
        EndIf
Until $a = "admin" And $b = "123"


怎么点击取消，就窗口关闭，不显示密码窗口！

wsfda 发表于 2012-10-20 12:31:32

有点不太明白，
请问楼主是要点击 Cancel 后和点击 XX后一样的效果吗

user3000 发表于 2012-10-20 12:38:19

回复 1# gm860419

两个 INPUTBOX (第3和第4句)之间插入一条语句
If @error =1 Then Exit

menfan1 发表于 2012-10-20 13:20:49

;If @error =1 Then Exit

gm860419 发表于 2012-10-20 14:20:40

回复gm860419

两个 INPUTBOX (第3和第4句)之间插入一条语句
If @error =1 Then Exit
user3000 发表于 2012-10-20 12:38 http://www.autoitx.com/images/common/back.gif


谢谢大侠

yufei8051 发表于 2012-11-7 09:01:04

这个也记号上。好好学习，认真搜索，感谢高手源码！

FMP 发表于 2015-3-10 08:10:49

學習了
感謝高手提供

netegg 发表于 2015-3-10 09:51:17

回复 3# user3000
不对呀，楼主逻辑有问题，这和输入不输入没关系呀，和@error也没关系，input的返回值就行了
页: [1]
查看完整版本: inputbox 高手给看下 怎么解决啊【已解决】