想要自动弹出光驱和关闭光驱？

想要自动弹出光驱和关闭光驱？ 这两个软件是一个高手做好的，不过我试过确实好用在这里分享给大家。 关闭光驱有的杀软可能会报潜在的威胁，不放心的话，您也可以自己下载下来，然后用鼠标右击它，选择"编辑"看看源代码。代码其实蛮简单的， 为方便大家学习交流，我将源码展示如下，您也可以自己复制粘贴到记事本中，然后另存为 *.vbs 文件来执行，这样就免去下载了，呵呵。 'CD-ROM 弹出/关闭脚本 by Eric Sheh ' '支持多光驱(关闭不适用于笔记本计算机光驱和吸入式光驱) 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 迅雷下载