我的代碼:
set oWMP = createObject("WMPlayer.OCX")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.count >= 1 then
for i = 0 to colCDROMs.count - 1
colCDROMs.Item(i).Eject
next
Msgbox "按「確定」將托盤收回!",64,"光碟機進退片"
for i = 0 to colCDROMs.count - 1
colCDROMs.Item(i).Eject
next
end if作者: slore 时间: 2010-4-19 00:27 我执行你的这个就可以打开,点确定后关闭了。作者: pop081 时间: 2010-4-19 08:07 多試幾次,肯定會報錯作者: liu3157551 时间: 2010-4-19 09:35 用个小程序算了。效果一样