标题: 批處理有辦法控制光碟機進退片嗎? [打印本页]
作者: pop081 时间: 2010-4-18 15:35 标题: 批處理有辦法控制光碟機進退片嗎?
只看到VB腳本，但常常出錯
因此想請教各位高手，有辦法用批處理實現嗎?
作者: HAT 时间: 2010-4-18 16:38
start mshta "javascript:new ActiveXObject('WMPlayer.OCX').cdromCollection.Item(0).Eject();window.close();"
作者: pop081 时间: 2010-4-18 17:11
多謝版主
請問有辦法收回去嗎?
它只能退出而已..
作者: slore 时间: 2010-4-18 17:36
再执行一次
作者: pop081 时间: 2010-4-18 18:02
還是收不回去...怎麼會這樣?
另外我的vbs也是常常出錯，可以再麻煩高手把vbs貼上來嗎?
我的代碼:
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
用个小程序算了。效果一样