wujianfu 发表于 2010-4-24 18:06:29

弹出光驱并稍后自动关闭

运行程序后弹出光驱并等待5秒后自动关闭光驱。代码如下：#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_icon=G:\素材大全\图标资源\系统图标\74(1).ico
#AutoIt3Wrapper_Res_Comment=弹出光驱
#AutoIt3Wrapper_Res_Description=弹出光驱
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=阿福所有 侵权不究
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****

Dim $var=DriveGetDrive("CDROM")
CDTray($var,"open")
TrayTip("通知","光驱已弹出，稍后自动关闭！",1)
Sleep(5000)
CDTray($var,"closed")

59406 发表于 2010-4-25 00:05:46

本帖最后由 59406 于 2010-4-25 00:13 编辑

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

lxz 发表于 2010-4-26 08:29:40

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

3mile 发表于 2010-4-26 11:01:00

我也来加点内容，无光盘不弹出$var = DriveGetDrive( "CDROM" )
If @error Then
        MsgBox(0,"提示","本机没有光驱")
        Exit
Else
        For $i = 1 to $var
                If DriveGetType( $var[$i])="CDROM" Then FileFindFirstFile("*.*")
                If @error=1 Then; 检查搜索是否成功
      CDTray($var[$i],"open")
      TrayTip("通知","光驱已弹出,5秒后自动关闭！",1)
      Sleep(5000)
      CDTray($var[$i],"closed")
                EndIf
        Next
EndIf

lxz 发表于 2010-4-26 14:07:27

本帖最后由 lxz 于 2010-4-26 14:32 编辑

$var = DriveGetDrive( "CDROM" )
If @error Then
      MsgBox(0,"提示","本机没有光驱")
      Exit
Else
      For $i = 1 to $var
                $status = DriveStatus($var[$i])
                If $status = "Ready" Then
                CDTray($var[$i],"open")
                TrayTip("通知","光驱已弹出,5秒后自动关闭！",1)
                Sleep(5000)
                CDTray($var[$i],"closed")
                EndIf
      Next
EndIf有光盘弹出光驱,无光盘不弹出.

wujianfu 发表于 2010-4-26 15:30:03

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

skyshade 发表于 2010-4-29 00:47:12

向高手 学习了~

adminauto 发表于 2010-7-16 20:17:44

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

queyao 发表于 2010-7-17 23:44:29

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

vason1019 发表于 2012-3-21 09:59:55

加判断是否有驱完美
页: [1]
查看完整版本: 弹出光驱并稍后自动关闭