用快捷键控制光驱的批处理! - 中国DOS联盟论坛

看到有人想用批处理建快捷方式,不禁想我以前想用快捷键控制光驱的想法,,不过是用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

第1楼　yjq635	发表于 2007-05-12 10:10
初级用户　发帖 42　积分 109
用快捷键控制光驱的批处理! 看到有人想用批处理建快捷方式,不禁想我以前想用快捷键控制光驱的想法,,不过是用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

第2楼　baomaboy	发表于 2007-05-12 11:03
银牌会员　发帖 554　积分 1,513
那个gostxp中关闭光驱的附件这里有快捷热键开启/关闭光驱并且也有关于使用CreateObject("WMPlayer.OCX.7" ) 的讨论。

第3楼　wudixin96	发表于 2007-05-12 13:21
银牌会员　发帖 931　积分 1,928
搞毛啊．又是ＶＢＳ．不如直接编辑ＶＢＳ呢．

第4楼　lxmxn	发表于 2007-05-12 17:48
版主　发帖 4,938　积分 11,386
楼上注意自己的言语。

第5楼　eech	发表于 2007-05-12 20:24
高级用户　发帖 346　积分 906
不知楼主考虑过双光驱没有?

第6楼　eech	发表于 2007-05-13 17:10
高级用户　发帖 346　积分 906
不错,刚试了一下,可我是双光驱,一开就二个一起打开了,一关就二个一起关了,能不能做到分别控制呢?

第7楼　baomaboy	发表于 2007-05-13 18:02
银牌会员　发帖 554　积分 1,513
可用cdrom.Count的值来判断操作哪个光驱，不过有麻烦了，要多选单多判断，操作也复杂了，失去快捷键的意义了，其实这种快捷键最适用于单一光驱的用户。另外在光驱关闭状态下误操作“关闭”快捷键的话，光驱会做一次打开并迅速关闭的动作这试这个程序所不能避免的。因为目前靠VBS并不能判断光驱开/关状态。

第8楼　yjq635	发表于 2007-05-26 22:27
初级用户　发帖 42　积分 109
不好意思我对这些不是很懂那个是我在网上找的,我知道那个"echo cdrom.Item(z).Eject "表示光驱 0表示第一个光驱,1表示第二个光驱,可以自己改,比较费事,呵呵!