论坛 › 已解决问题区 › 关于重试的问题

cqeyong 发表于 2008-12-30 23:38:00

关于重试的问题

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

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

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

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

顽固不化 发表于 2008-12-31 08:54:28

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
                        If FileExists($x[$i] & '\常用软件') Then
                                Run($x[$i] & '\常用软件\soft.EXE')
                                Exit
                        EndIf
                Next
        EndIf
        Return
EndFunc

cqeyong 发表于 2008-12-31 10:10:34

谢谢，楼上真是高手啊

查看完整版本: 关于重试的问题