|
eech
高级用户
积分 906
发帖 346
注册 2006-7-10
状态 离线
|
『楼 主』:
求关闭光驱的批处理.不知有没有
mshta "javascript:new ActiveXObject('WMPlayer.OCX').cdromCollection.Item(0).Eject();window.close();"
这是联盟的一位大虾写的弹出光驱的批处理.配上快捷键.超爽.但不足的是没有关闭光驱的批处理.
请教各位大虾.在不用软件的前提下.
有没有关闭光驱的批处理
|
|
 2006-12-10 08:28 |
|
|
lxmxn
版主
积分 11386
发帖 4938
注册 2006-7-23
状态 离线
|
『第
2 楼』:
下面是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 ]
|
|
|
2006-12-10 08:49 |
|
|
eech
高级用户
积分 906
发帖 346
注册 2006-7-10
状态 离线
|
『第
3 楼』:
哇塞.真是偶像.刚在霏凡问了.一个级别很高的朋友.对我说没有关闭批处理.这下他可没话说了
|
|
|
2006-12-10 09:11 |
|
|
electronixtar
铂金会员
积分 7493
发帖 2672
注册 2005-9-2
状态 离线
|
『第
4 楼』:
霏凡是什么啊？
|
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'>" |
|
|
2006-12-10 09:32 |
|
|
vkill
金牌会员
积分 4103
发帖 1744
注册 2006-1-20
来自 甘肃.临泽
状态 离线
|
『第
5 楼』:
| Quote: | Originally posted by electronixtar at 2006-12-10 09:32:
霏凡是什么啊？ |
|
论坛
|
|
|
2006-12-10 10:45 |
|
|
eech
高级用户
积分 906
发帖 346
注册 2006-7-10
状态 离线
|
『第
6 楼』:
如何将这个VBS转BAT
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 ]
|
|
|
2006-12-10 12:00 |
|
|
lxmxn
版主
积分 11386
发帖 4938
注册 2006-7-23
状态 离线
|
 『第
7 楼』:
@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 ]
|
|
|
2006-12-10 12:09 |
|
|
youxi01
高级用户
积分 846
发帖 247
注册 2006-10-27
来自 湖南==》广东
状态 离线
|
『第
8 楼』:
::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，有一定的“欺骗成分”
|
|
|
2006-12-10 12:13 |
|
|
eech
高级用户
积分 906
发帖 346
注册 2006-7-10
状态 离线
|
|
|
2006-12-10 12:15 |
|
|
redtek
金牌会员
积分 2902
发帖 1147
注册 2006-9-21
状态 离线
|
『第
10 楼』:
２楼、３楼代码都可行，经过实验：）
但是，２楼代码需要将倒数第２行的“cscritp.exe” 改为 “cscript.exe”，
因为那个词拼写失误（估计是急着给你回贴怕楼主等时间长了），哈哈……
[ Last edited by redtek on 2006-12-9 at 11:22 PM ]
|
Redtek，一个永远在网上流浪的人……
_.,-*~'`^`'~*-,.__.,-*~'`^`'~*-,._,_.,-*~'`^`'~*-,._,_.,-*~'`^`'~*-,._ |
|
|
2006-12-10 12:20 |
|
|
eech
高级用户
积分 906
发帖 346
注册 2006-7-10
状态 离线
|
『第
11 楼』:
谢谢5楼的朋友.你说的对.但二楼的大虾文件会生成一个临时文件.虽能自动删除.但要不生成就更完美了
|
|
|
2006-12-10 12:24 |
|
|
lxmxn
版主
积分 11386
发帖 4938
注册 2006-7-23
状态 离线
|
『第
12 楼』:
2楼中的代码已经更正。多谢 Redtek 兄提醒啊。汗一下自己。
|
|
|
2006-12-10 12:38 |
|
|
3742668
荣誉版主
积分 2013
发帖 718
注册 2006-2-18
状态 离线
|
|
|
2006-12-10 12:41 |
|
|
lxmxn
版主
积分 11386
发帖 4938
注册 2006-7-23
状态 离线
|
『第
14 楼』:
| Quote: | | 记得在下面用一句taskkill结束mshta进程。 |
|
经过测试，不用taskkill结束进程，也会自动关闭窗口的，任务管理器里面也没有mshta.exe进程。
|
|
|
2006-12-10 12:45 |
|
|
3742668
荣誉版主
积分 2013
发帖 718
注册 2006-2-18
状态 离线
|
『第
15 楼』:
| Quote: | 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 ]
|
|
|
2006-12-10 13:06 |
|
