举报
$a = DriveGetDrive("CDROM") For $i = 1 To $a[0] $b = DriveStatus($a[$i]) If $b = 'READY' Then ;MsgBox(0, 0, '驱动器 ' & $a[$i] & " 里有光盘") CDTray($a[$i], 'open') EndIf Next
查看全部评分
$a = DriveGetDrive("CDROM") For $i = 1 To $a[0] $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
$a = DriveGetDrive("CDROM") For $i = 1 To $a[0] $b = DriveStatus($a[$i]) If $b = 'READY' Then ;MsgBox(0, 0, '驱动器 ' & $a[$i] & " 里有光盘") If CDTray($a[$i], 'open') Then MsgBox(64, '注意', '光盘已出仓,请取出光盘!') EndIf Next
本版积分规则 发表回复 回帖后跳转到最后一页
|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度
GMT+8, 2025-5-9 07:48 , Processed in 0.115561 second(s), 20 queries .
Powered by Discuz! X3.5 Licensed
© 2001-2025 Discuz! Team.