如何讓光驅自動彈出和關閉？

想要自動彈出光驅？那麼請使用下面的方法一或者方法二。

既想自動彈出光驅，又想自動關閉光驅？請使用下面的方法二。

方法一：

方法二：

'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