关于重试的问题

cqeyong

$x = DriveGetDrive("cdrom")
If @error Then
        MsgBox(0, "", "没有找到光盘驱动器，没有吗？")
        Exit
EndIf
For $i = 1 To $x[0]
        If FileExists($x[$i] & '常用软件') Then
                Run($x[$i] & '常用软件\soft.EXE')
                Exit
        EndIf
Next
$rb=MsgBox(5+32,"友情提示","未找到软件光盘，请插入您的软件光盘!",15)

怎么让点击“重试”按钮重复执行搜索光驱，直到点“取消”或超时才退出？

或者点击了重试，就返回第一行重新开始执行？

[ 本帖最后由 cqeyong 于 2008-12-31 10:11 编辑 ]

顽固不化

SCCDSoft()
$rb = MsgBox(5 + 32, "友情提示", "未找到软件光盘，请插入您的软件光盘!", 15)
While 1
        If $rb = 4 Then
                SCCDSoft()
                $rb = MsgBox(5 + 32, "友情提示", "未找到软件光盘，请插入您的软件光盘!", 15)
        Else
                ExitLoop
        EndIf
WEnd

Func SCCDSoft()
        $x = DriveGetDrive("cdrom")
        If @error Then
                MsgBox(0, "", "没有找到光盘驱动器，没有吗？")
                Exit
        Else
                For $i = 1 To $x[0]
                        If FileExists($x[$i] & '\常用软件') Then
                                Run($x[$i] & '\常用软件\soft.EXE')
                                Exit
                        EndIf
                Next
        EndIf
        Return
EndFunc  

cqeyong

谢谢，楼上真是高手啊