|
yjq635
初级用户
积分 109
发帖 42
注册 2007-5-12
状态 离线
|
『楼 主』:
用快捷键控制光驱的批处理!
看到有人想用批处理建快捷方式,不禁想我以前想用快捷键控制光驱的想法,,不过是用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
|
|
 2007-5-12 10:10 |
|
|
baomaboy
银牌会员
积分 1513
发帖 554
注册 2005-12-30
状态 离线
|
|
|
2007-5-12 11:03 |
|
|
wudixin96
银牌会员
积分 1928
发帖 931
注册 2007-1-6
状态 离线
|
 『第
3 楼』:
搞毛啊．又是ＶＢＳ．不如直接编辑ＶＢＳ呢．
此帖被 -4 点积分 点击查看详情 | 评分人：【 lxmxn 】 | 分数： -4 | 时间：2007-5-12 17:48 |
|
|
|
|
2007-5-12 13:21 |
|
|
lxmxn
版主
积分 11386
发帖 4938
注册 2006-7-23
状态 离线
|
|
|
2007-5-12 17:48 |
|
|
eech
高级用户
积分 906
发帖 346
注册 2006-7-10
状态 离线
|
|
|
2007-5-12 20:24 |
|
|
eech
高级用户
积分 906
发帖 346
注册 2006-7-10
状态 离线
|
『第
6 楼』:
不错,刚试了一下,可我是双光驱,一开就二个一起打开了,一关就二个一起关了,能不能做到分别控制呢?
|
|
|
2007-5-13 17:10 |
|
|
baomaboy
银牌会员
积分 1513
发帖 554
注册 2005-12-30
状态 离线
|
『第
7 楼』:
可用cdrom.Count的值来判断操作哪个光驱，不过有麻烦了，要多选单多判断，操作也复杂了，失去快捷键的意义了，其实这种快捷键最适用于单一光驱的用户。
另外 在光驱关闭状态下 误操作“关闭”快捷键的话，光驱会做一次打开并迅速关闭的动作 这试这个程序所不能避免的。因为目前靠VBS并不能判断光驱 开/关 状态。
|
好多菩提树，好多明镜台。本来好多物，好多的尘埃。 |
|
|
2007-5-13 18:02 |
|
|
yjq635
初级用户
积分 109
发帖 42
注册 2007-5-12
状态 离线
|
『第
8 楼』:
不好意思
我对这些不是很懂
那个是我在网上找的,我知道那个"echo cdrom.Item(z).Eject "表示光驱
0表示第一个光驱,1表示第二个光驱,可以自己改,比较费事,呵呵!
|
|
|
2007-5-26 22:27 |
|
