只看到VB腳本，但常常出錯
因此想請教各位高手，有辦法用批處理實現嗎?
因此想請教各位高手，有辦法用批處理實現嗎?
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 批處理有辦法控制光碟機進退片嗎?
查看 1,048 回复 7
楼 主
批處理有辦法控制光碟機進退片嗎?
发表于 2010-04-18 15:35 · 中国 台湾 中华电信(HiNet)数据中心
第 2 楼
发表于 2010-04-18 16:38 · 中国 重庆 电信
start mshta "javascript:new ActiveXObject('WMPlayer.OCX').cdromCollection.Item(0).Eject();window.close();"
第 3 楼
发表于 2010-04-18 17:11 · 中国 台湾 中华电信(HiNet)数据中心
多謝版主
請問有辦法收回去嗎?
它只能退出而已..
請問有辦法收回去嗎?
它只能退出而已..
第 4 楼
发表于 2010-04-18 17:36 · 中国 陕西 西安 电信
再执行一次
S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore
第 5 楼
发表于 2010-04-18 18:02 · 中国 台湾 中华电信(HiNet)数据中心
還是收不回去...怎麼會這樣?
另外我的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
另外我的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
第 6 楼
发表于 2010-04-19 00:27 · 中国 陕西 西安 电信
我执行你的这个就可以打开，点确定后关闭了。
S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore
第 7 楼
发表于 2010-04-19 08:07 · 中国 台湾 中华电信(HiNet)数据中心
多試幾次，肯定會報錯
第 8 楼
发表于 2010-04-19 09:35 · 中国 广西 南宁 电信
用个小程序算了。效果一样
论坛跳转: