DO...Until 循环问题，请求帮助[已解决]

heroxianf

Local $sPasswd

Do

$sPasswd = InputBox("测试", @CRLF & "测试文件" & @CRLF & @CRLF & @CRLF & @CRLF & "输入登陆密码:", "", "*")

Until $sPasswd = "110"

按照上边的代码倒是可以停留在密码输入界面等到输入正确，但是点击右上角关闭或者退出按钮还是无线循环，也试着获取返回值但是失败了，请指点一下。

afan

Until $sPasswd = "110" Or @Error

heroxianf

回复 2# afan

谢谢A大，   原来还可以这么实用@Error。但是我点击退出后边代码会执行，就没有达到点击退出就直接退出那种。

Local $sPasswd

Do

$sPasswd = InputBox("测试", @CRLF & "测试文件" & @CRLF & @CRLF & @CRLF & @CRLF & "输入登陆密码:", "", "*")

Until $sPasswd = "110" or @error

MsgBox(0, 0, "如果点击退出后边代码不应该执行。")

txen548

試下如下代碼

Local $answer
Do
        $answer =inputbox("口令","你叫什么名字？","","*10")
        If @error Then Exit
                Until $answer = 'me'

heroxianf

回复 4# txen548


谢谢坛友这么晚了还给出的帮助，问题解决了。这嵌套看来还要加强学习。

txen548

這都是論壇上收集的一些代碼，不用客氣。

heroxianf

回复 6# txen548

但还是有点不明白点击退出为什么是   @error  呢？   不应该是返回的三个键值么，-1、-2之类的？

txen548

主要代碼在第4行，這裡下了一個判斷，如果錯誤就退出程序。