论坛 › 已解决问题区 › 如何检测光盘有没有光盘，有就提示弹出，i没有就无提示？

fyhwaijxnt78 发表于 2009-9-4 00:10:19

如何检测光盘有没有光盘，有就提示弹出，i没有就无提示？

本帖最后由 fyhwaijxnt78 于 2009-9-5 08:31 编辑

如何检测光盘有没有光盘，有就自动弹出，没有就无提示？

afan 发表于 2009-9-4 00:22:32

本帖最后由 afan 于 2009-9-4 00:26 编辑

$a = DriveGetDrive("CDROM")
For $i = 1 To $a
        $b = DriveStatus($a[$i])
        If $b = 'READY' Then
                ;MsgBox(0, 0, '驱动器 ' & $a[$i] & " 里有光盘")
                CDTray($a[$i], 'open')
        EndIf
Next

fyhwaijxnt78 发表于 2009-9-5 08:30:53

$a = DriveGetDrive("CDROM")
For $i = 1 To $a
        $b = DriveStatus($a[$i])
        If $b = 'READY' Then
                ;MsgBox(0, 0, '驱动器 ' & $a[$i] & " 里有光盘")
                CDTray($a[$i], 'open')
        EndIf
Next
afan 发表于 2009-9-4 00:22 http://www.autoitx.com/images/common/back.gif

谢谢，正是我需要的！

afan 发表于 2009-9-9 19:50:30

$a = DriveGetDrive("CDROM")
For $i = 1 To $a
        $b = DriveStatus($a[$i])
        If $b = 'READY' Then
                ;MsgBox(0, 0, '驱动器 ' & $a[$i] & " 里有光盘")
                If CDTray($a[$i], 'open') Then MsgBox(64, '注意', '光盘已出仓，请取出光盘！')
        EndIf
Next这样就行了。早改好了，忘了发帖~

jszsj 发表于 2009-12-19 15:34:53

学习啦，呵呵，感谢

查看完整版本: 如何检测光盘有没有光盘，有就提示弹出，i没有就无提示？