水之心 发表于 2009-2-4 18:31:59

CDTray函数问题

CDTray ("g:", "open" )
为什么用这个有时能打开光驱不时不能??请高人们指点指点..........:face (35):

[ 本帖最后由 水之心 于 2009-2-8 10:10 编辑 ]

78391493 发表于 2009-2-5 00:24:23

CDTray("g:", "open")
这样还不行?

水之心 发表于 2009-2-5 10:02:25

光驱的指示灯闪了几下但终究来还是不愿出来~~~~WHY?????

:face (30): :face (32): :face (13):

78391493 发表于 2009-2-5 16:30:12

光驱坏了:face (13):

水之心 发表于 2009-2-5 17:03:45

但是有时可以的啊!!在“我的是电脑”里面右击“弹出”也可以打开光驱,按光驱的的键也以弹出!

做个试验,
CDTray ("g:", "open" )
sleep(10000)
CDTray ("g:", "closed" )
这个试了很多次都可以实现光驱弹出后10秒关闭。这会不会是我的电脑系统本身就有问题?
:face (2): :face (9): :face (18):

顽固不化 发表于 2009-2-5 20:11:59

原帖由 水之心 于 2009-2-5 17:03 发表 http://www.autoitx.com/images/common/back.gif
但是有时可以的啊!!在“我的是电脑”里面右击“弹出”也可以打开光驱,按光驱的的键也以弹出!

做个试验,
CDTray ("g:", "open" )
sleep(10000)
CDTray ("g:", "closed" )
这个试了很多次都可以实现光驱 ...

试验成功了,说明该函数无问题。
有些光驱里的橡胶条时间久了会老化,光驱出仓很困难。特别是三星的光驱更是如此。

水之心 发表于 2009-2-5 21:21:09

我觉得问题不是出在光驱上!看下面的代码
$var =DriveGetDrive ( "CDROM" )
$dapa=$var

Opt("TrayMenuMode", 1)
Opt("trayOnEventMode", 1)

$nb2 = TrayCreateItem("打开光驱 Alt+O")
TrayItemSetOnEvent($nb2, "open")

$xiton=RegRead('HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion',"ProductName")

$objWMIService = ObjGet("winmgmts:\\.\root\CIMV2:Win32_SystemEnclosure")
$colItems = $objWMIService.instances_
For $colItem In $colItems
$Types = $colItem.ChassisTypes(0)
Next

if $Types=3 then        
$nb3 = TrayCreateItem("关闭光驱 Alt+C")
TrayItemSetOnEvent($nb2, "close")
endif


TrayCreateItem("")

$nb4= TrayCreateItem("退出程序 Alt+Q")
TrayItemSetOnEvent($nb4, "_Exit")

HotKeySet("!q", "_Exit")
HotKeySet("!o", "open")
HotKeySet("!c", "close")

while 1
sleep(1000)
wend

Func open()
        CDTray ($dapa, "open" )
EndFunc

Func _Exit()
        Exit
EndFunc

Func close()
        CDTray ($dapa, "close" )
EndFunc


在我的机器运行这段代码后,如果用托盘的菜单的“打开光驱”,光盘的指示灯只是亮了几下,很多时候光驱都龟缩在里面,只有少数几次可以打开,但如果用热键的话,光驱百分百乘乘地出来!问题何在???

hollandmfq 发表于 2014-5-17 19:21:19

雷锋精神传天下!谢谢分享!
页: [1]
查看完整版本: CDTray函数问题