您需要 登录 才可以下载或查看,没有账号?加入
举报
Dim $a = InputBox("请输入密码", "请输入密码,有 3 次机会输入", "", " m", 180, 120), $p = '123';密码为123 If $a <> $p And $a <> '' Then For $cw = 1 To 3 If $cw = 3 Then Exit (MsgBox(16, '警告', '已经输入了3次错误的密码,程序退出!')) $a = InputBox("请输入密码", "密码错误,还有 " & 3 - $cw & " 次机会", "", " m", 180, 120) If $a <> $p And $a <> '' Then ContinueLoop ElseIf $a = '' Then Exit Else ExitLoop EndIf Next ElseIf $a = '' Then Exit EndIf MsgBox(64, '通过', 'ok, 密码正确~ 程序开始~')
查看全部评分
方法有很多,举个例子: afan 发表于 2009-11-24 20:52
本版积分规则 发表回复 回帖后跳转到最后一页
|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度
GMT+8, 2025-11-21 07:54 , Processed in 0.096344 second(s), 23 queries .
Powered by Discuz! X3.5 Licensed
© 2001-2025 Discuz! Team.