中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟
中国DOS联盟论坛
现在时间是 2026-08-12 11:04
47,811 主题排行 / 349,897 发帖 / 今日 0 篇 / 48,256 会员排行
DOS批处理 & 脚本技术(批处理室) » 批處理有辦法控制光碟機進退片嗎?
可打印版本  1,050 / 7
第1楼 pop081 发表于 2010-04-18 15:35
新手上路 发帖 10 积分 10
批處理有辦法控制光碟機進退片嗎?
只看到VB腳本,但常常出錯

因此想請教各位高手,有辦法用批處理實現嗎?
第2楼 HAT 发表于 2010-04-18 16:38
版主 发帖 5,017 积分 9,023
第3楼 pop081 发表于 2010-04-18 17:11
新手上路 发帖 10 积分 10
多謝版主

請問有辦法收回去嗎?

它只能退出而已..
第4楼 slore 发表于 2010-04-18 17:36
铂金会员 发帖 2,478 积分 5,212
再执行一次
第5楼 pop081 发表于 2010-04-18 18:02
新手上路 发帖 10 积分 10
還是收不回去...怎麼會這樣?

另外我的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楼 slore 发表于 2010-04-19 00:27
铂金会员 发帖 2,478 积分 5,212
我执行你的这个就可以打开,点确定后关闭了。
第7楼 pop081 发表于 2010-04-19 08:07
新手上路 发帖 10 积分 10
多試幾次,肯定會報錯
第8楼 liu3157551 发表于 2010-04-19 09:35
中级用户 发帖 164 积分 259
用个小程序算了。效果一样
[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023