看到有人想用批处理建快捷方式,不禁想我以前想用快捷键控制光驱的想法,,不过是用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
小弟第一次来,希望多多支持!以下是批处理.本想把"光驱弹出或关闭.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
