标题: 用快捷键控制光驱的批处理! [打印本页]
作者: yjq635 时间: 2007-5-12 10:10 标题: 用快捷键控制光驱的批处理!
看到有人想用批处理建快捷方式,不禁想我以前想用快捷键控制光驱的想法,,不过是用vbs做的,只是用一个批处理把需要的东西和步骤放在一起了,不用那么烦琐,此批处理经过测试,有一点要说明就是关于vbs的,有的机器(xp)运行vbs后脚本宿主没有自动关闭不知道是什么原因,不知道运行"wscript"设置行不行,(本人的机器是可以自动关闭的)不过现在我都不用那个脚本了,在ghost版XP里有个小东西很好用"光驱弹出或关闭.exe"而且他只用了一个键控制开和关,建一个快捷方式放在桌面或者是开始菜单,指定一个快捷键就OK了,要是不想用(Ctrl+Alt+*)可以用脚本建,这样可以设除win键以外的任何键为弹出和关闭光驱的热键!
小弟第一次来,希望多多支持!以下是批处理.本想把"光驱弹出或关闭.exe"传上来居然没找到上传附件的地方?/?不知是不是我的等级不够的原因??呵呵!
@echo off
echo Set wmp = CreateObject("WMPlayer.OCX.7") >d:\关闭.vbs
echo Set cdrom = wmp.cdromCollection >>d:\关闭.vbs
echo If cdrom.Count >= 1 then '(该句用来判断你的系统中装了多少个光驱) >>d:\关闭.vbs
echo For z = 0 to cdrom.Count - 1 >>d:\关闭.vbs
echo cdrom.Item(z).Eject >>d:\关闭.vbs
echo Next >>d:\关闭.vbs
echo For z = 0 to cdrom.Count - 1 >>d:\关闭.vbs
echo cdrom.Item(z).Eject >>d:\关闭.vbs
echo Next >>d:\关闭.vbs
echo End If >>d:\关闭.vbs
echo Set wmp = CreateObject("WMPlayer.OCX.7") >d:\弹出.vbs
echo Set cdrom = wmp.cdromCollection >>d:\弹出.vbs
echo If cdrom.Count >= 1 then '(该句用来判断你的系统中装了多少个光驱) >>d:\弹出.vbs
echo For z = 0 to cdrom.Count - 1 >>d:\弹出.vbs
echo cdrom.Item(z).Eject >>d:\弹出.vbs
echo Next >>d:\弹出.vbs
echo End If >>d:\弹出.vbs
attrib d:\弹出.vbs +s +h
attrib d:\关闭.vbs +s +h
echo Set Shell = CreateObject("WScript.Shell") >快捷方式.vbs
echo paths = "C:\Documents and Settings\All Users\「开始」菜单\程序\附件" >>快捷方式.vbs
echo Set link = Shell.CreateShortcut(paths + "\关闭.lnk") >>快捷方式.vbs
echo link.HotKey = "SHIFT+x" '这是为快捷方式定义快捷键 >>快捷方式.vbs
echo link.TargetPath = "D:\关闭.vbs" '这里指定连接目标,先勉强用我以前的主页代替 >>快捷方式.vbs
echo link.WindowStyle = 3 '窗体弹出方式 >>快捷方式.vbs
echo link.WorkingDirectory = paths '指定快捷方式的工作目录 >>快捷方式.vbs
echo link.Save '保存使程序立即生效 >>快捷方式.vbs
echo Set link2 = Shell.CreateShortcut(paths + "\弹出.lnk") >>快捷方式.vbs
echo link2.HotKey = "SHIFT+c" '这是为快捷方式定义快捷键 >>快捷方式.vbs
echo link2.TargetPath = "D:\弹出.vbs" '这里指定连接目标,先勉强用我以前的主页代替 >>快捷方式.vbs
echo link2.WindowStyle = 3 '窗体弹出方式。 >>快捷方式.vbs
echo link2.WorkingDirectory = paths '指定快捷方式的工作目录 >>快捷方式.vbs
echo link2.Save '保存使程序立即生效 >>快捷方式.vbs
快捷方式.vbs
del 快捷方式.vbs
作者: baomaboy 时间: 2007-5-12 11:03
那个gostxp中关闭光驱的附件这里有 快捷热键开启/关闭光驱并且也有关于使用CreateObject("WMPlayer.OCX.7" )
的讨论。
作者: wudixin96 时间: 2007-5-12 13:21
搞毛啊．又是ＶＢＳ．不如直接编辑ＶＢＳ呢．
作者: lxmxn 时间: 2007-5-12 17:48
楼上注意自己的言语。
作者: eech 时间: 2007-5-12 20:24
不知楼主考虑过双光驱没有?
作者: eech 时间: 2007-5-13 17:10
不错,刚试了一下,可我是双光驱,一开就二个一起打开了,一关就二个一起关了,能不能做到分别控制呢?
作者: baomaboy 时间: 2007-5-13 18:02
可用cdrom.Count的值来判断操作哪个光驱，不过有麻烦了，要多选单多判断，操作也复杂了，失去快捷键的意义了，其实这种快捷键最适用于单一光驱的用户。
另外 在光驱关闭状态下 误操作“关闭”快捷键的话，光驱会做一次打开并迅速关闭的动作 这试这个程序所不能避免的。因为目前靠VBS并不能判断光驱 开/关 状态。
作者: yjq635 时间: 2007-5-26 22:27
不好意思
我对这些不是很懂
那个是我在网上找的,我知道那个"echo cdrom.Item(z).Eject "表示光驱
0表示第一个光驱,1表示第二个光驱,可以自己改,比较费事,呵呵!