将光驱自动弹出和收回的命令

弹出：在光驱用鼠标右键的可以。
收回:下载超级兔子 在超级魔法设置－－菜单－－添加菜单里添加关闭光驱。
超级兔子主页
http://www.pctutu.com/

如果你的系统中安装了一个以上的光驱，那么打开记事本，输入以下代码：

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”代表第一个光驱盘符，如果要关闭第二个光驱盘符，请将这里的“