帮我看看这哪里出错了
$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
在我的机器运行这段代码后，如果用托盘的菜单的“打开光驱”，光盘的指示灯只是亮了几下，光驱龟缩在里面，只有少数几次可以打开，但如果用热键的话，光驱百分百乘乘地出来! 哪位高手知道问题何在？？？:face (37): 无法运行。 奇怪~~~我的机器可以啊~~我用的是3.3.0.0.1
页:
[1]