有軟體可以控制光碟機進、退片嗎<SOLVED>

Home Home
登入註冊發表列印 載入圖片
引用 | 編輯 alextep
2005-12-30 07:40		 樓主
▼
推文 x0
先聲明！這不是求檔喔！
我只是很好奇…有沒有小軟體…可以 ..

訪客只能看到部份內容，免費 加入會員



獻花 x0
引用 | 編輯 海堂
2005-12-30 07:48		 1樓
▲   ▼
有呀~怎麼沒有= =''~不過我記得很早以前就看過這種東西了
不過載點可能要找一下

獻花 x0
引用 | 編輯 happyday
2005-12-30 09:25		 2樓
▲   ▼
如果沒寄錯的話,超級兔子有這樣的功能

獻花 x0
引用 | 編輯 alextep
2005-12-30 16:06		 3樓
▲   ▼
找到了…2002 CD Eject 呵…真好玩

獻花 x0
引用 | 編輯 dannelxu
2005-12-31 04:54		 4樓
▲   ▼
http://www.phdcc.com/download/EjectCD.exe
超小（50k）,一檔搞定,免安裝,即抓即用,免費 表情

作者網頁:
http://www.phdcc.com/eject-cd/default.htm

獻花 x0
引用 | 編輯 mychatmychat
2005-12-31 06:01		 5樓
▲   ▼
下面是引用dannelxu於2005-12-31 04:54發表的 :
http://www.phdcc.com/download/EjectCD.exe
超小（50k）,一檔搞定,免安裝,即抓即用,免費 表情

作者網頁:
http://www.phdcc.com/eject-cd/default.htm
你這個程式的用法，跟樓主的需求不一樣。

獻花 x0
引用 | 編輯 北北
2005-12-31 19:58		 6樓
▲   ▼
訊連科技的 PowerDVD就可以控制光碟機進、退片

獻花 x0
引用 | 編輯 smartjob
2005-12-31 22:13		 7樓
▲   ▼
樓主您可以試試這個軟體，是免費免安裝的，執行後直接可操作。
表情 表情
請將〞.TXT〞刪除後再解開即可使用。

file removed by Kilian:
沒有任何介紹的工具不適合在本版發表

獻花 x0
引用 | 編輯 alextep
2005-12-31 23:57		 8樓
▲   ▼
呵…謝謝大家熱心分享…不知不覺讓我在2005最後一個晚上心情愉快呀！ 表情

獻花 x0
引用 | 編輯 guangmin0622
2006-01-01 01:51		 9樓
▲   ▼
小弟記得用批次檔 好像能控次CD-ROM喔!
但忘嚕該如何寫語法嚕><"

獻花 x0
引用 | 編輯 wedel0320
2006-01-04 17:13		 10樓
▲   ▼
不好意思 想問說用途是做捨呢~~因為開了還不是要放光碟嗎? 那這用途再那呢.....(疑問而已)

獻花 x0
引用 | 編輯 alextep
2006-01-04 17:26		 11樓
▲   ▼
用途…
就為一個「懶」字…呵呵.可以讓人更懶才是電腦的宿命呀~ 表情
其實這種軟體可以減少因人為的按進、退紐對光碟機所造成的損壞…
(因為我有按壞光碟機的經驗…哈哈哈)
而且…電腦主機放的方式每個人都不一樣呀！
像我是放在我右邊下面…而按紐又在右邊…
WINDOWS只有退片的工能！當托盤退出的時候
你要把它按進去…有時候會不小心撞到…或衣服勾到之類的意外發生！

獻花 x0
引用 | 編輯 夷希微
2006-01-04 20:00		 12樓
▲   ▼
呵呵~~這個功能可以自己寫的呢 ^_^
教各位一個最簡單的 VBS 寫法 ^_^
請開一個新的文字檔將以下內容貼入後存檔：
    Set oWMP = CreateObject("WMPlayer.OCX.7")
    Set colCDROMs = oWMP.cdromCollection
    if colCDROMs.Count >= 1 then
        For i = 0 to colCDROMs.Count - 1
              colCDROMs.Item(i).Eject
        Next
        Msgbox "請按任意鍵後收回！",64,"自制光碟機進退控制器"
        For i = 0 to colCDROMs.Count - 1
              colCDROMs.Item(i).Eject
        Next
    End If
檔名隨便~~但副檔名必須為 vbs 才行~~例『CD_Eject.vbs』檔~~建議可以存在桌面上~~
存好後~~直接按兩下試試看吧~~您一定會發現很好玩的 ^_^

PS.如果您的光碟機不只一台的話~~以上的程式按下去~~是每一台都退出喔 表情
　如果您要退出特定某台或是分開寫成不同檔的話~~請自己試著改 i 值試試吧 表情

本帖包含附件
檔名: txt CD_Eject.vbs.txt   (2022-06-09 14:01 / 1 KB)   下載次數:117


獻花 x0
引用 | 編輯 alextep
2006-01-04 23:19		 13樓
▲   ▼
自己亂改成這樣…(沒有學過vb不太懂,這是VB吧… 表情 )
第一台開關…
 
Set oWMP = CreateObject("WMPlayer.OCX.7")
  Set colCDROMs = oWMP.cdromCollection
  if colCDROMs.Count >= 1 then
    For i = 2 to colCDROMs.Count - 1
        colCDROMs.Item(0).Eject
    Next
    Msgbox "請按任意鍵後收回！",64,"自制光碟機進退控制器"
    For i = 2 to colCDROMs.Count - 1
        colCDROMs.Item(0).Eject
    Next
  End If

第二台開關…

  Set oWMP = CreateObject("WMPlayer.OCX.7")
  Set colCDROMs = oWMP.cdromCollection
  if colCDROMs.Count >= 1 then
    For i = 1 to colCDROMs.Count - 1
        colCDROMs.Item(i).Eject
    Next
    Msgbox "請按任意鍵後收回！",64,"自制光碟機進退控制器"
    For i = 1 to colCDROMs.Count - 1
        colCDROMs.Item(i).Eject
    Next
  End If
呵呵…雖然怪怪的…
但目地有達到… 表情
剛發現一個問題…
似乎每執行一次…
處理程序就會多出一道wscript.exe…
程式執行完…他還是卡在那裡沒有關閉(在程序裡)...怎麼會這樣… 表情

獻花 x0
引用 | 編輯 夷希微
2006-01-05 00:39		 14樓
▲   ▼
第一台是以下這樣啦(迴圈拿掉不要了)：
    Set oWMP = CreateObject("WMPlayer.OCX.7")
    Set colCDROMs = oWMP.cdromCollection
    if colCDROMs.Count >= 1 then
              colCDROMs.Item(0).Eject
        Msgbox "請按任意鍵後收回！",64,"自制光碟機進退控制器"
              colCDROMs.Item(0).Eject
    End If

第二台的話就是這樣：
    Set oWMP = CreateObject("WMPlayer.OCX.7")
    Set colCDROMs = oWMP.cdromCollection
    if colCDROMs.Count >= 1 then
              colCDROMs.Item(1).Eject
        Msgbox "請按任意鍵後收回！",64,"自制光碟機進退控制器"
              colCDROMs.Item(1).Eject
    End If

以此類推~~試試吧 ^_^ 表情

PS.WScript.exe 檔是微軟 Windows 作業系統的腳本相關支援程式~~
它是 Windows Script Host 的檔案（也算是作業系統檔案之一）~~並不是病毒~~
Windows Script Host(WSH)是用來在 Windows 平台上執行Script指令檔的執行引擎~~
所以...請不必擔心~~要是真的不放心的話~~就將它們都關閉吧 ^_^ 表情

獻花 x0
引用 | 編輯 alextep
2006-01-05 08:32		 15樓
▲   ▼
每開一次…就要在程序管理員裡面再關一次…
有點.不太人道 表情 不關…又會吃資源(因為我昨天開程式管理員…有九十幾個wscript.exe 表情
呵…試太多次)
不知道是程式中有卸載wscript.exe的指令…

獻花 x0
引用 | 編輯 Kilian
2006-01-06 10:22		 16樓
▲   ▼
這個 vbs 較簡單 (在自己電腦, 1=第一個CDROM, 2=第2個):

On Error Resume Next
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
colCDROMs.Item(1).Eject
A1= Msgbox ("Press The OK Key To Close The CD" , 0 + 32,"Close CD")
colCDROMs.Item(1).Eject

或較複雜, but 沒有要自行關 wscript.exe:
複製程式 
On Error Resume Next
Const Hidden = 0, Normal = 1, Min = 2
Dim Act : Set Act = CreateObject("Wscript.Shell")
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
colCDROMs.Item(1).Eject
A1= Msgbox ("Press The OK Key To Close The CD" , 0 + 32,"Close CD")
colCDROMs.Item(1).Eject
Act.Run("%comspec% /c TASKKILL /F /T /IM Cscript.exe"),Hidden,True
Act.Run("%comspec% /c TASKKILL /F /T /IM Wscript.exe"),Hidden,True
Act.Run("%comspec% /c TASKKILL /F /T /IM Wmiprvse.exe"),Hidden,true
表情

獻花 x0
引用 | 編輯 alextep
2006-01-06 11:45		 17樓
▲  
謝謝板主大人和夷希微大…不吝提供程式碼…
也許我一輩子也不會懂裡面的意義…
但是每當我的光碟機開啟時…
我會懷念您滴~ 表情

獻花 x0