再只有“弹出”-给光驱添加“关闭”命令
不知为什么,在微软目前的操作系统中,光驱的命令菜单都是只有“弹出”命令,没有“关闭”命令。如果我们不想按光驱的按钮关闭弹出的托盘,就不得不依靠安装第三方软件来实现。其实,我们也可以用VBScript语句弥补这点不足。
关闭所有光驱
如果你的系统中安装了一个以上的光驱,那么打开记事本,输入以下代码:
Set wmp = CreateObject("WMPlayer.OCX.7")
Set cdrom = wmp.cdromCollection
If cdrom.Count >= 1 then '(该句用来判断你的系统中装了多少个光驱)
For z = 0 to cdrom.Count - 1
cdrom.Item(z).Eject
Next
For z = 0 to cdrom.Count - 1
cdrom.Item(z).Eject
Next
End If
注意将文件类型改为“所有文件”后,将文件保存为“关闭所有.vbe”,在桌面上为该文件建一个快捷方式,以后双击桌面上的快捷方式就可以关闭所有弹出的光驱。
关闭指定的光驱
以下语句可以让你关闭指定的光驱,例如要关闭第一个光驱,我们可以新建个一文本文件,输入以下代码:
Set wmp = CreateObject("WMPlayer.OCX.7")
Set cdrom = wmp.cdromCollection
cdrom.Item(0).Eject
同样将该文件保存为后缀为VBE的文件,命名为“close1.vbe”,以后双击该文件即可关闭你系统中的第一个光驱盘符。在以上语句里,item(0)中的“0”代表第一个光驱盘符,如果要关闭第二个光驱盘符,请将这里的“0”加1,依此类推,就可实现关闭指定的盘符了。
我们还可以将“关闭”添加到光驱的右键菜单中。方法是在注册表编辑器中依次展开[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Drive\shell ]分支,然后在右侧窗口中新建 “CloseCDROM”分支,进入该分区后,在右侧窗口双击“默认”,将其默认值修改为“关闭所有”;再点击“编辑→新建→项”,将新键重命名为“command”,把“默认”值修改为“C:\WINDOWS\System32\WScript.exe C:\关闭所有.vbe”(这里要将C:\改为“关闭所有.vbe”文件在你系统中保存的路径)。
用同样的方法可以将关闭指定光驱的命令加入光驱的右键菜单中。修改完毕后,关闭注册表就可在右键菜单中找到“关闭所有”和关闭指定盘符的命令
第一步:
打开记事本,粘贴如下代码,看不懂,不要紧,这只是个脚本而已.
程序代码Set Obj=CreateObject("WMPlayer.OCX.7")
Set CD=Obj.CDROMCollection
If CD.Count>=1 then
For i=0 to CD.Count-1
CD.Item(i).Eject
Next
For i=0 to CD.Count-1
CD.Item(i).Eject
Next
End If
然后保存此文件到 C:\CloseCDROM.vbe
第二步:
打开注册表,然后找到键:
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Drive\shell
在shell下面建立子键CloseCDROM
即:HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Drive\shell\CloseCDROM
将此子键的默认值改为:关闭(&C)
然后在CloseCDROM下面建立子键Command
即:HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Drive\shell\CloseCDROM\Command
将此子键的默认值改为:C:\WINNT\System32\WScript.exe C:\CloseCDROM.vbe
注意这里的系统路径要正确,
操作系统为 Win2000,安装在C:\,路径为:C:\WINNT\System32
操作系统为 Win XP,安装在C:\,路径为:C:\WINDOWS\System32
第三步
关闭注册表,然后到我的电脑中右键单击光驱的盘符,看看弹出的菜单中是不是多了一个菜单项了?
点击试试看吧,呵呵,首先确认你把光驱的托盘已经弹出来了,要不它会先弹出,再关闭,为什么,看看脚本便知道了
目前还没有方法能增加右键菜单只在光驱上右键显示关闭光驱,
你的方法已经是最简单的设置方法了。