中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 批處理有辦法控制光碟機進退片嗎?

作者:

标题: 批處理有辦法控制光碟機進退片嗎?

上一主题 | 下一主题

pop081
新手上路

积分 10
发帖 10
注册 2010-4-17
状态离线

『楼主』: 批處理有辦法控制光碟機進退片嗎? 使用 LLM 解释/回答一下

只看到VB腳本，但常常出錯

因此想請教各位高手，有辦法用批處理實現嗎?

2010-4-18 15:35

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

HAT
版主

积分 9023
发帖 5017
注册 2007-5-31
状态离线

『第 2 楼』: 使用 LLM 解释/回答一下


start mshta "javascript:new ActiveXObject('WMPlayer.OCX').cdromCollection.Item(0).Eject();window.close();"

2010-4-18 16:38

查看资料发短消息网志

编辑帖子回复引用回复

pop081
新手上路

积分 10
发帖 10
注册 2010-4-17
状态离线

『第 3 楼』: 使用 LLM 解释/回答一下

多謝版主

請問有辦法收回去嗎?

它只能退出而已..

2010-4-18 17:11

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

slore
铂金会员

积分 5212
发帖 2478
注册 2007-2-8
状态离线

『第 4 楼』: 使用 LLM 解释/回答一下

再执行一次

S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore

2010-4-18 17:36

查看资料发短消息网志

编辑帖子回复引用回复

pop081
新手上路

积分 10
发帖 10
注册 2010-4-17
状态离线

『第 5 楼』: 使用 LLM 解释/回答一下

還是收不回去...怎麼會這樣?

另外我的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

2010-4-18 18:02

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

slore
铂金会员

积分 5212
发帖 2478
注册 2007-2-8
状态离线

『第 6 楼』: 使用 LLM 解释/回答一下

我执行你的这个就可以打开，点确定后关闭了。

S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore

2010-4-19 00:27

查看资料发短消息网志

编辑帖子回复引用回复

pop081
新手上路