CDTray函数问题
CDTray ("g:", "open" )为什么用这个有时能打开光驱不时不能??请高人们指点指点..........:face (35):
[ 本帖最后由 水之心 于 2009-2-8 10:10 编辑 ] CDTray("g:", "open")
这样还不行? 光驱的指示灯闪了几下但终究来还是不愿出来~~~~WHY?????
:face (30): :face (32): :face (13): 光驱坏了:face (13): 但是有时可以的啊!!在“我的是电脑”里面右击“弹出”也可以打开光驱,按光驱的的键也以弹出!
做个试验,
CDTray ("g:", "open" )
sleep(10000)
CDTray ("g:", "closed" )
这个试了很多次都可以实现光驱弹出后10秒关闭。这会不会是我的电脑系统本身就有问题?
:face (2): :face (9): :face (18): 原帖由 水之心 于 2009-2-5 17:03 发表 http://www.autoitx.com/images/common/back.gif
但是有时可以的啊!!在“我的是电脑”里面右击“弹出”也可以打开光驱,按光驱的的键也以弹出!
做个试验,
CDTray ("g:", "open" )
sleep(10000)
CDTray ("g:", "closed" )
这个试了很多次都可以实现光驱 ...
试验成功了,说明该函数无问题。
有些光驱里的橡胶条时间久了会老化,光驱出仓很困难。特别是三星的光驱更是如此。 我觉得问题不是出在光驱上!看下面的代码
$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
在我的机器运行这段代码后,如果用托盘的菜单的“打开光驱”,光盘的指示灯只是亮了几下,很多时候光驱都龟缩在里面,只有少数几次可以打开,但如果用热键的话,光驱百分百乘乘地出来!问题何在??? 雷锋精神传天下!谢谢分享!
页:
[1]