2010-03-25 82 views

回答

0

你可以試試這個VBScript中

Const CDROM = 4 
Set objFS=CreateObject("Scripting.FileSystemObject") 
Set shell = CreateObject("Shell.Application") 
For Each drives in objFS.Drives 
    If drives.DriveType = CDROM Then 
    cd=drives.DriveLetter & ":\"  
    'Eject   
    End If 
Next 
Do 
shell.Namespace(17).ParseName(cd).InvokeVerb("E&ject") 
WScript.Sleep 1000 'in ms 
Loop While 1=1 

另存爲eject.vbs來看,它作爲

c:\test> cscript //nologo eject.vbs 
+0

這不是我的筆記本電腦 – symfony 2010-03-25 11:04:48

+0

工作在右鍵菜單這可怕的代碼將「點擊」彈出項目,如果你的操作系統不是英文,它會失敗!也可以用「內部」名稱來調用動詞,不確定這些名字是否也是語言特定的。 – Anders 2010-03-28 16:59:35

+0

如果它像你說的那麼「可怕」,你爲什麼不提供解決方案。至少我在幫助,但你只知道如何批評。 – ghostdog74 2010-03-28 23:47:13

相關問題