如何讓光驅自動彈出和關閉?
想要自動彈出光驅?那么請使用下面的方法一或者方法二。
既想自動彈出光驅,又想自動關閉光驅?請使用下面的方法二。
方法一:
請前往 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.rzrgm.cn/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
祝大家新春快樂~大展鴻兔!
佘華煜 (Eric Sheh),微軟 MVP,致力于為微軟 Windows 和 Office 用戶及 IT 專業人士提供更好的幫助與支持。 關注我的 新浪微博,加入 我要做電腦達人 微群,收聽每日 Office 效率提升秘籍~

浙公網安備 33010602011771號