弹出光驱并稍后自动关闭

wujianfu

运行程序后弹出光驱并等待5秒后自动关闭光驱。代码如下：

1. #Region ;**** 参数创建于 ACNWrapper_GUI ****
   
2. #AutoIt3Wrapper_icon=G:\素材大全\图标资源\系统图标\74(1).ico
   
3. #AutoIt3Wrapper_Res_Comment=弹出光驱
   
4. #AutoIt3Wrapper_Res_Description=弹出光驱
   
5. #AutoIt3Wrapper_Res_Fileversion=1.0.0.0
   
6. #AutoIt3Wrapper_Res_LegalCopyright=阿福所有 侵权不究
   
7. #EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
   
8. 
   
9. Dim $var=DriveGetDrive("CDROM")
   
10. CDTray($var[1],"open")
    
11. TrayTip("通知","光驱已弹出，稍后自动关闭！",1)
    
12. Sleep(5000)
    
13. CDTray($var[1],"closed")
    

复制代码

59406

如果加个判断光驱有无驱 自动弹出，五秒后自动弹出就完美了，

lxz

1. $var = DriveGetDrive( "CDROM" )
   
2. If @error Then
   
3. MsgBox(0,"提示","本机没有光驱")
   
4. Exit
   
5. Else
   
6. For $i = 1 to $var[0]
   
7.         If DriveGetType( $var[$i])="CDROM" then
   
8.         CDTray($var[$i],"open")
   
9.         TrayTip("通知","光驱已弹出,5秒后自动关闭！",1)
   
10.         Sleep(5000)
    
11.         CDTray($var[$i],"closed")
    
12.         EndIf
    
13. Next
    
14. EndIf
    

复制代码

3mile

我也来加点内容，无光盘不弹出

1. $var = DriveGetDrive( "CDROM" )
   
2. If @error Then
   
3.         MsgBox(0,"提示","本机没有光驱")
   
4.         Exit
   
5. Else
   
6.         For $i = 1 to $var[0]
   
7.                 If DriveGetType( $var[$i])="CDROM" Then FileFindFirstFile("*.*")
   
8.                 If @error=1 Then; 检查搜索是否成功
   
9.         CDTray($var[$i],"open")
   
10.         TrayTip("通知","光驱已弹出,5秒后自动关闭！",1)
    
11.         Sleep(5000)
    
12.         CDTray($var[$i],"closed")
    
13.                 EndIf
    
14.         Next
    
15. EndIf

复制代码

lxz

1. $var = DriveGetDrive( "CDROM" )
   
2. If @error Then
   
3.         MsgBox(0,"提示","本机没有光驱")
   
4.         Exit
   
5. Else
   
6.         For $i = 1 to $var[0]
   
7.                 $status = DriveStatus($var[$i])
   
8.                 If $status = "Ready" Then
   
9.                 CDTray($var[$i],"open")
   
10.                 TrayTip("通知","光驱已弹出,5秒后自动关闭！",1)
    
11.                 Sleep(5000)
    
12.                 CDTray($var[$i],"closed")
    
13.                 EndIf
    
14.         Next
    
15. EndIf

复制代码

有光盘弹出光驱,无光盘不弹出.

wujianfu

各位补充的很不错，不过我的本意是弹出光驱，然后等待将碟片放进光驱后自动关闭。

skyshade

向高手 学习了~

adminauto

如果是两个光驱，效果怎么样？弹出哪一个？全部弹出？没试过。

queyao

怎么判断光驱的当前状态：弹出？关闭？还是无盘？

vason1019

加判断是否有驱完美