弹出光驱并稍后自动关闭

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[1],"open")
TrayTip("通知","光驱已弹出，稍后自动关闭！",1)
Sleep(5000)
CDTray($var[1],"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[0]
        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[0]
                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[0]
                $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

加判断是否有驱完美

		自动登录	找回密码
密码			加入

[原创] 弹出光驱并稍后自动关闭

本帖子中包含更多资源