給光驅添加“關閉”命令

給光驅添加“關閉”命令

不知為什么，在微軟目前的操作系統中，光驅的命令菜單都是只有“彈出”命令，沒有“關閉”命令。如果我們不想按光驅的按鈕關閉彈出的托盤，就不得不依靠安裝第三方軟件來實現。其實，我們也可以用VBScript語句彌補這點不足。

　　關閉所有光驅

　　如果你的系統中安裝了一個以上的光驅，那么打開記事本，輸入以下代碼：

　　Setwmp=CreateObject(WMPlayer.OCX.7)

　　Setcdrom=wmp.cdromCollection

　　Ifcdrom.Count=1then'(該句用來判斷你的系統中裝了多少個光驅)

　　Forz=0tocdrom.Count-1

　　cdrom.Item(z).Eject

　　Next

　　Forz=0tocdrom.Count-1

　　cdrom.Item(z).Eject

　　Next

　　EndI

　　注意將文件類型改為“所有文件”后，將文件保存為“關閉所有.vbe”,在桌面上為該文件建一個快捷方式，以后雙擊桌面上的快捷方式就可以關閉所有彈出的光驅。

　　關閉指定的光驅

　　以下語句可以讓你關閉指定的光驅，例如要關閉第一個光驅，我們可以新建個一文本文件，輸入以下代碼：

　　Setwmp=CreateObject(WMPlayer.OCX.7)

　　Setcdrom=wmp.cdromCollection

　　cdrom.Item(0).Eject

　　同樣將該文件保存為后綴為VBE的文件，命名為“close1.vbe”,以后雙擊該文件即可關閉你系統中的第一個光驅盤符。在以上語句里，item(0)中的“0”代表第一個光驅盤符，如果要關閉第二個光驅盤符，請將這里的“0”加1，依此類推，就可實現關閉指定的盤符了。

　　我們還可以將“關閉”添加到光驅的右鍵菜單中。方法是在注冊表編輯器中依次展開[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Drive\shell]分支，然后在右側窗口中新建“CloseCDROM”分支，進入該分區后，在右側窗口雙擊“默認”，將其默認值修改為“關閉所有”；再點擊“編輯→新建→項”，將新鍵重命名為“command”,把“默認”值修改為“C:\WINDOWS\System32\WScript.exeC:\關閉所有.vbe”(這里要將C:\改為“關閉所有.vbe”文件在你系統中保存的路徑)。

　　用同樣的方法可以將關閉指定光驅的命令加入光驅的右鍵菜單中。修改完畢后，關閉注冊表就可在右鍵菜單中找到“關閉所有”和關閉指定盤符的命令。
 

服務器租用/服務器托管中國五強！虛擬主機域名注冊頂級提供商！15年品質保障！--億恩科技[ENKJ.COM]