关于inputbox的不解?
Local $inputDo
$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应该被关闭
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
为什么老是有人问这种问题。。。 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" 因为是字符串型数据,所以加个双引号。是自己测试得出的答案。没有在论坛看答案。数据类型有三种:1、数值型数据,2、字符(串)型数据,3、布尔类型数据。我也是新手,见笑了。 回复 4# lwqdemail
这个没有解决点取消退出的问题。三楼的可以,但差双引号。 干脆不要“取消”按钮哈。。 哈哈,这也学习了,太好了 我也是经常用inputbox 回复 6# lwqdemail
要又引号做什么。。在INPUTBOX中加个M,就必须得输入内容才能点确定。所以不必再去判断INPUTBOX里是否是空。。
页:
[1]