作者SilentWorld (June)
看板EZsoft
标题Re: [共享] WinEject 光碟退片进片工具
时间Mon Sep 15 05:21:05 2008
※ 引述《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
1F：→ TalkToHim:#15xdVSsd 也有人提供vbs 不过还是感谢 09/15 05:51