Re: [共享] WinEject 光碟退片進片工具
※ 引述《TalkToHim (去跟他說)》之銘言：
: 大家好
: 最近想到能否無痛進片
: (手指按進片鈕會痛 >"<)
: 我搜尋到
: NirCmd v2.15
: http://www.nirsoft.net/utils/nircmd.html
: 這軟體
: 想請問大家
: 是否XP有內建指令可達成?
: 或者有人有推薦其他工具嗎?(除引用的這篇以外)
VBS可以嗎?
以下---間的內容存成*.VBS
--------------------------
Const CDROM = 4
On Error Resume Next
Set fs = CreateObject("Scripting.FileSystemObject")
strDriveLetter = ""
For intDriveLetter = Asc("A") To Asc("Z")
Err.Clear
If fs.GetDrive(Chr(intDriveLetter)).DriveType = CDROM Then
If Err.Number = 0 Then
strDriveLetter = Chr(intDriveLetter)
Exit For
End If
End If
Next
MsgBox "按下任意鍵開啟光碟機",VBOKONLY + 48,"CD-ROM Drive Tool"
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
For d = 0 to colCDROMs.Count - 1
colCDROMs.Item(d).Eject
Next 'null
A1= MsgBox ("按下任意鍵關閉光碟機", 0 + 64, "CD-ROM Drive Tool")
For d = 0 to colCDROMs.Count - 1
colCDROMs.Item(d).Eject
Next 'null
WScript.Quit
--------------------------
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 122.124.160.2
→
09/15 05:51, , 1F
09/15 05:51, 1F
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 3 之 5 篇)：
EZsoft 近期熱門文章
PTT數位生活區 即時熱門文章
