关于inputbox的不解?

lhy6456210

Local $input

Do
$input=InputBox("请输入密码","由于本工具要修改xx的一些功能，所以要输入密码!","","*",200,140)
If $input="" Then
        MsgBox(0+16+4096+262144,"错误信息","输入的密码不能为空")
ElseIf $input<>@YEAR&@MDAY+518 Then
        
MsgBox(0+16+4096+262144,"错误信息","输入的密码不正确")
Else
        MsgBox(0,"","OK")
EndIf
Until $input=@YEAR&@MDAY+518

为什么我点了取消和关闭都弹出
输入的密码不能不空

正常应该是点了取消和关闭，，，GUI应该被关闭

duck904

Local $input

Do
$input=InputBox("请输入密码","由于本工具要修改xx的一些功能，所以要输入密码!","","*",200,140)
;用户点击取消
If @error = 1 Then Exit
If $input="" Then
        MsgBox(0+16+4096+262144,"错误信息","输入的密码不能为空")
ElseIf $input<>@YEAR&@MDAY+518 Then
        
MsgBox(0+16+4096+262144,"错误信息","输入的密码不正确")
Else
        MsgBox(0,"","OK")
EndIf
Until $input=@YEAR&@MDAY+518

成功: 返回用户输入的字符串.
失败: 返回空字符串并把 @error 设为以下数值之一:
@Error 0 = 返回的字符串是有效的.
1 = 用户按下了 Cancel(取消)按钮.
2 = 超时.
3 = 输入框显示失败,这通常是由参数无效引起的.
4 = InputBox 不能显示于任何显示器.
5 = 错误参数,当指定宽度而没指定高度或者指定左方而没指定顶部.

半芯竹

Do
Local $input=InputBox("请输入密码","由于本工具要修改xx的一些功能，所以要输入密码!","","*m16",200,140)
If Not @error Then 
If $input<>@YEAR&@MDAY+518 Then
MsgBox(0+16+4096+262144,"错误信息","输入的密码不正确")
Else
        MsgBox(0,"","OK")
        EndIf
Else
        Exit
        EndIf
Until $input=@YEAR&@MDAY+518

为什么老是有人问这种问题。。。

lwqdemail

Global $input




Do

$input=InputBox("请输入密码","由于本工具要修改xx的一些功能，所以要输入密码!","","*",200,140)

If $input="" Then

        MsgBox(0+16+4096+262144,"错误信息","输入的密码不能为空")

ElseIf $input<>"@YEAR&@MDAY+518" Then     ;'$input<>@YEAR&@MDAY+518 Then

        

MsgBox(0+16+4096+262144,"错误信息","输入的密码不正确")

Else

        MsgBox(0,"","OK",3)
                exit

EndIf

Until $input="@YEAR&@MDAY+518"

lwqdemail

因为是字符串型数据，所以加个双引号。是自己测试得出的答案。没有在论坛看答案。数据类型有三种：1、数值型数据，2、字符（串）型数据，3、布尔类型数据。我也是新手，见笑了。

lwqdemail

回复 4# lwqdemail

这个没有解决点取消退出的问题。三楼的可以，但差双引号。

menfan1

干脆不要“取消”按钮哈。。

jingygr

哈哈，这也学习了，太好了

jingygr

我也是经常用inputbox

半芯竹

回复 6# lwqdemail


    要又引号做什么。。在INPUTBOX中加个M，就必须得输入内容才能点确定。所以不必再去判断INPUTBOX里是否是空。。