CDTray函数问题

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

CDTray ("g:", "open" )

为什么用这个有时能打开光驱不时不能??请高人们指点指点..........

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

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

CDTray("g:", "open")

这样还不行？

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

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

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

光驱坏了

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

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

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

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

原帖由 水之心 于 2009-2-5 17:03 发表
但是有时可以的啊！！在“我的是电脑”里面右击“弹出”也可以打开光驱，按光驱的的键也以弹出！

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

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

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

我觉得问题不是出在光驱上！看下面的代码

$var =DriveGetDrive ( "CDROM" )
$dapa=$var[1]

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

雷锋精神传天下！谢谢分享！

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