如何让光驱自动弹出和关闭？

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

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

方法一：

方法二：

'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

Next

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

本文转自 hbycscc 51CTO博客，原文链接:http://blog.51cto.com/mvperic/489380