中国DOS联盟

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

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

游客 注册 登录 会员 网志 搜索 命令提示符 Bash 上传 统计
中国DOS联盟论坛
现在时间是 2026-06-14 18:57
欢迎新会员 luminwei　 RSS
共 47,998 篇主题 / 350,065 篇帖子 / 今日 2 篇 / 48,211 位会员
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 如何将这个VBS转BAT
1 2 下一页 › 推荐给朋友 分享到 X 分享到 微博 分享到 Telegram 分享到 QQ空间 复制链接 二维码
楼 主 求关闭光驱的批处理.不知有没有 发表于 2006-12-10 08:28　·　 中国 安徽 芜湖 电信
eech
高级用户
★★★
积分 906
发帖 346
注册 2006-07-10 09:58
UID 58334
性别 男
状态 离线
mshta "javascript:new ActiveXObject('WMPlayer.OCX').cdromCollection.Item(0).Eject();window.close();"

这是联盟的一位大虾写的弹出光驱的批处理.配上快捷键.超爽.但不足的是没有关闭光驱的批处理.
请教各位大虾.在不用软件的前提下.
有没有关闭光驱的批处理
第 2 楼 发表于 2006-12-10 08:49　·　 中国 湖北 武汉 电信
lxmxn
版主
★★★★★
积分 11,386
发帖 4,938
注册 2006-07-23 17:10
UID 59080
状态 离线

　　下面是VBS的，可以转换成批处理。


With CreateObject("WMPlayer.OCX.7").cdromCollection

.Item(0).eject

WScript.echo "光驱已经打开"&vbcrlf&"单击确定关闭光驱"

.Item(0).eject

End With


[ Last edited by lxmxn on 2006-12-10 at 08:50 AM ]
第 3 楼 发表于 2006-12-10 09:11　·　 中国 安徽 芜湖 电信
eech
高级用户
★★★
积分 906
发帖 346
注册 2006-07-10 09:58
UID 58334
性别 男
状态 离线
哇塞.真是偶像.刚在霏凡问了.一个级别很高的朋友.对我说没有关闭批处理.这下他可没话说了
第 4 楼 发表于 2006-12-10 09:32　·　 中国 四川 成都 教育网
electronixtar
铂金会员
★★★★
积分 7,493
发帖 2,672
注册 2005-09-02 00:00
UID 42173
性别 男
状态 离线
霏凡是什么啊？

C:\>BLOG http://initiative.yo2.cn/
C:\>hh.exe ntcmds.chm::/ntcmds.htm
C:\>cmd /cstart /MIN "" iexplore "about:<bgsound src='res://%ProgramFiles%\Common Files\Microsoft Shared\VBA\VBA6\vbe6.dll/10/5432'>"
第 5 楼 发表于 2006-12-10 10:45　·　 中国 甘肃 平凉 电信
vkill
金牌会员
★★★★
积分 4,103
发帖 1,744
注册 2006-01-20 13:00
UID 49241
性别 男
来自 甘肃.临泽
状态 离线
Originally posted by electronixtar at 2006-12-10 09:32:
霏凡是什么啊？

论坛
第 6 楼 如何将这个VBS转BAT 发表于 2006-12-10 12:00　·　 中国 安徽 芜湖 电信
eech
高级用户
★★★
积分 906
发帖 346
注册 2006-07-10 09:58
UID 58334
性别 男
状态 离线
With CreateObject("WMPlayer.OCX.7").cdromCollection
.Item(0).eject
WScript.echo "光驱已经打开"&vbcrlf&"单击确定关闭光驱"
.Item(0).eject
End With

哪位大虾行行好.教我如何转这个VBS文件转成批处理

[ Last edited by eech on 2006-12-10 at 12:01 PM ]
第 7 楼 发表于 2006-12-10 12:09　·　 中国 湖北 武汉 电信
lxmxn
版主
★★★★★
积分 11,386
发帖 4,938
注册 2006-07-23 17:10
UID 59080
状态 离线



@echo off

echo With CreateObject("WMPlayer.OCX.7").cdromCollection>tem.vbs

echo .Item(0).eject>>tem.vbs

echo msgbox "光驱已经打开"^&vbcrlf^&"单击确定关闭光驱">>tem.vbs

echo .Item(0).eject>>tem.vbs

echo End With>>tem.vbs

cscript.exe //H:wscript //nologo tem.vbs

del tem.vbs


[ Last edited by lxmxn on 2006-12-10 at 12:41 PM ]
本帖最近评分记录 （共 1 条） 点击查看详情
评分人分数时间
redtek +3 2006-12-10 12:13
第 8 楼 发表于 2006-12-10 12:13　·　 中国 广东 清远 联通
youxi01
高级用户
★★
积分 846
发帖 247
注册 2006-10-27 12:03
UID 68504
性别 男
来自 湖南==》广东
状态 离线
::On Error Resume Next
echo '>nul &cls&@echo off &wscript //E:vbs "%~f0"
::With CreateObject("WMPlayer.OCX.7").cdromCollection
::.Item(0).eject
::WScript.echo "光驱已经打开"&vbcrlf&"单击确定关闭光驱"
::.Item(0).eject
::End With

保存为：test.bat，有一定的“欺骗成分”
本帖最近评分记录 （共 1 条） 点击查看详情
评分人分数时间
redtek +3 2006-12-10 12:16
第 9 楼 发表于 2006-12-10 12:15　·　 中国 安徽 芜湖 电信
eech
高级用户
★★★
积分 906
发帖 346
注册 2006-07-10 09:58
UID 58334
性别 男
状态 离线
二楼的朋友.试了不行啊.
第 10 楼 发表于 2006-12-10 12:20　·　 中国 北京 朝阳区 联通
redtek
金牌会员
★★★★
积分 2,902
发帖 1,147
注册 2006-09-21 12:00
UID 63324
性别 男
状态 离线
２楼、３楼代码都可行，经过实验：）

但是，２楼代码需要将倒数第２行的“cscritp.exe”　改为　“cscript.exe”，
因为那个词拼写失误（估计是急着给你回贴怕楼主等时间长了），哈哈……

[ Last edited by redtek on 2006-12-9 at 11:22 PM ]
　　　　Redtek，一个永远在网上流浪的人……

_.,-*~'`^`'~*-,.__.,-*~'`^`'~*-,._,_.,-*~'`^`'~*-,._,_.,-*~'`^`'~*-,._
第 11 楼 发表于 2006-12-10 12:24　·　 中国 安徽 芜湖 电信
eech
高级用户
★★★
积分 906
发帖 346
注册 2006-07-10 09:58
UID 58334
性别 男
状态 离线
谢谢5楼的朋友.你说的对.但二楼的大虾文件会生成一个临时文件.虽能自动删除.但要不生成就更完美了
第 12 楼 发表于 2006-12-10 12:38　·　 中国 湖北 武汉 电信
lxmxn
版主
★★★★★
积分 11,386
发帖 4,938
注册 2006-07-23 17:10
UID 59080
状态 离线

　　2楼中的代码已经更正。多谢 Redtek 兄提醒啊。汗一下自己。
第 13 楼 发表于 2006-12-10 12:41　·　 中国 湖北 荆门 电信
3742668
荣誉版主
★★★
积分 2,013
发帖 718
注册 2006-02-18 07:07
UID 50550
状态 离线
mshta "javascript:with (new ActiveXObject('WMPlayer.OCX').cdromCollection.Item(0)){Eject();if(confirm("是否进仓?")) Eject();}window.close();"

正在从vbs转到js，给个同样功能的吧。记得在下面用一句taskkill结束mshta进程。
本帖最近评分记录 （共 1 条） 点击查看详情
评分人分数时间
youxi01 +4 2006-12-10 12:45
第 14 楼 发表于 2006-12-10 12:45　·　 中国 湖北 武汉 电信
lxmxn
版主
★★★★★
积分 11,386
发帖 4,938
注册 2006-07-23 17:10
UID 59080
状态 离线


记得在下面用一句taskkill结束mshta进程。

　　经过测试，不用taskkill结束进程，也会自动关闭窗口的，任务管理器里面也没有mshta.exe进程。
第 15 楼 发表于 2006-12-10 13:06　·　 中国 湖北 荆门 电信
3742668
荣誉版主
★★★
积分 2,013
发帖 718
注册 2006-02-18 07:07
UID 50550
状态 离线
Originally posted by lxmxn at 2006-12-10 12:45:


　　经过测试，不用taskkill结束进程，也会自动关闭窗口的，任务管理器里面也没有mshta.exe进程。

你什么版本的什么操作系统？
我实验过很多次，也问过不少朋友，从脚本创建WMPlayer.OCX对象后都存在无法释放的情况。
我的测试环境都是xp sp2联想oem版。

————————————俺是分割线——————————————

*********************************
版务记录
*********************************
操作: 合并主题
原因: 讨论主题重复
原fid: 25520
执行: 3742668
备注: 1.建议发贴前看看置顶版规
2.一个主题不要多次发贴。
**********************************

[ Last edited by 3742668 on 2006-12-10 at 01:11 PM ]
1 2 下一页 ›
可打印版本 | 订阅主题 | 收藏主题
论坛跳转:
[ 联系联盟系统管理团队 - 中国DOS联盟 ]

Sponsored by ifanr Inc | © 2001–2023