要自动弹出光驱?那么请使用下面的方法一或者方法二。

既想自动弹出光驱,又想自动关闭光驱?请使用下面的方法二。

 

方法一:

请前往 http://cid-3222d068881c5251.skydrive.live.com/redir.aspx?resid=3222D068881C5251!199 下载 EJECT.EXE,这个程序可以自动弹出光驱,提取自 DOS 程序。如果您不放心,可以下载后杀毒看看~

 

方法二:

请前往 http://cid-3222d068881c5251.skydrive.live.com/redir.aspx?resid=3222D068881C5251!199 下载 eject_cdrom.vbs。这个是个脚本,是我搜索资料学习后自己编写和调试的,有的杀软可能会报潜在的威胁,不放心的话,您也可以自己下载下来,然后用鼠标右击它,选择”编辑”看看源代码。代码其实蛮简单的,为方便大家学习交流,我将源码展示如下,您也可以自己复制粘贴到记事本中,然后另存为 *.vbs 文件来执行,这样就免去下载了,呵呵。

 

\’CD-ROM 弹出/关闭脚本 by Eric Sheh

\’http://www.cnblogs.com/mvperic

\’支持多光驱(关闭不适用于笔记本计算机光驱和吸入式光驱)

 

Set WMP = CreateObject(“WMPlayer.ocx”)

Set CD = WMP.CDRomCollection

 

If CD.Count >= 1 Then

    For i = 0 To CD.Count – 1

         CD.Item(i).Eject

    Next

End If

 

For i = 0 To CD.Count – 1

      If vbYes = MsgBox(“是否关闭光驱 “& CD.Item(i).DriveSpecifier & ” ?” ,vbYesNo Or vbQuestion, APP_TITLE) Then

      CD.Item(i).Eject

      Else

      If CD.Item(i).DriveSpecifier=”” Then

          Exit For

      End If

      End If

Next

 

祝大家新春快乐~大展鸿兔!

版权声明:本文为mvperic原创文章,遵循 CC 4.0 BY-SA 版权协议,转载请附上原文出处链接和本声明。
本文链接:https://www.cnblogs.com/mvperic/archive/2011/02/07/1949765.html