Flying Spaghetti Monster

2010-10-12

機殼的好壞用越久越就明顯

http://bbs.mychat.to/reads.php?tid=494664&page=2#p3829221
有軟體可以控制光碟機進、退片嗎

http://www.shopping01.com/topicdetail.php?f=299&t=1584062&m=f&last=20006284
這個機殼會不會太扯

機殼好壞真的用越久越明顯,我的機殼在DVD那邊不是直接露出原本的面板,而是裝在裡頭然後透過機殼的面板進退片,機殼面板有兩個小彈簧然後一個按紐原本使用上是沒什麼問題,但用久了以後就開始吐鎚了,就跟01那篇一樣托盤伸出後是按不到開關的,手動推回去時因為力道問題會變成"拖盤撞面板然後再壓到開關"然後再吐出來OTZ

那我把面板往下壓讓他好好進片可以嗎?可以啊!但是面板歸位怎麼辦?彈簧彈回去的力道會觸動開關再退一次OTZ

話說這是老毛病了其實。之前就發生過了,解決的辦法是拆側板調整DVD的位置,往後縮一點點就不會這麼敏感了,但是我突然覺得很懶...(汗)

記得上一次發生時還有另一個問題,面板構件老化卡死XD

後來是發現ImgBurn軟體控制進退片都不會發生上述的問題,所以把腦筋動到軟體上了,XP內建是幫你退出而已關閉還是要靠自己來,稍微搜索後就找到數位男女的辦法了。

12樓的辦法可行,但是有個後遺症就是每次執行完都會卡一個WScript.exe要手動處理,卡太多會拖系統速度。

解決辦法是使用16樓的程式碼,但我單獨使用他的沒有效果...

所以我把16樓的程式碼(會自動關閉程式不殘留)

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

安插到12樓最後的Next跟End If中間,把Press The OK Key To Close The CD改成Press The OK Key To Close WScript。

居然真的會動!XD

現在整個人就懶懶的靠他開關DVD了...(茶)

沒有留言: