妙用VBScript自制IE工具欄按鈕

IE工具欄上的各種按鈕可不是Microsoft的專利普通用戶一樣能夠對其進行自定義添加想設置的按鈕至於添加的方法很多資料上都介紹過具體的實現方式不外乎兩種一是使用冗長且復雜的VC或VB代碼程序這對普通用戶來說要求是過高了一點通常搞得人滿頭霧水而不達目的二是用手工的方法來完成但是這種方法因為要大幅度地修改系統注冊表系統極不安全一不小心就會弄巧成拙讓你重新安裝系統！
　　我這裡介紹一個折衷的方法用VBScript自制IE工具欄按鈕它既不需要冗長復雜的程序代碼又不需要繁瑣地去修改系統注冊表但一樣能達到自制IE工具欄按鈕的目的
　　無論是用VB或VC還是用手工的方法添加按鈕說到底就是要去修改系統注冊表VBScript也不例外但是它的代碼簡單易懂安全易學既然要改注冊表那就要知道操作目標在注冊表中的的路徑IE的自制工具欄按鈕在注冊表中的的路徑為
　　[HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Extensions]
　　在該分支下的每一個主鍵即表示一個自制的工具欄按鈕如
　　{CDFDEdFECFAFE}表示RealPlayer
　　{EBFADB}表示NetAnts
　　仿照以上這些主鍵我們可以自己制造一個{}（不過要注意的是這一個鍵值一定要是唯一的要不可能破壞其它的工具欄按鈕）
　　在這每一個主鍵之下通常有以下幾個鍵值（均為字符串型）
　　ButtonText自定義按鈕上顯示的文本
　　CLSID IE工具條的類標識碼恆為{FBAEEDFFFABD}
　　Default Visible控制自定義按鈕是否可見一般為Yes
　　Exec自定義按鈕執行的目標可以為執行程序或超文本鏈接
　　HotIcon鼠標移到按鈕上時顯示的圖標
　　Icon按鈕正常顯示的圖標
　　MenuText在IE的工具菜單中顯示的菜單項
　　MenuStatusBar在狀態條上顯示的注釋文本
　　知道了這些必備知識再來用VBScript自制IE工具欄按鈕就不難了下面我就以添加我的電腦按鈕為例來說明用VBScript實現自制IE工具欄按鈕的方法
　　AddButtonvbs(將下述代碼保存為AddButtonvbs文件)
　　定義一個能與操作系統溝通的對象
　　Dim WSHShell
　　Set WSHShell=WScriptCreateObject(WScriptShell)
　　定義與按鈕相關的各種參數
　　KeyName_=ButtonText
　　KeyData_=我的電腦
　　KeyName_=CLSID
　　KeyData_={FBAEEDFFFABD}
　　KeyName_=Default Visible
　　KeyData_=Yes
　　KeyName_=Exec
　　KeyData_=C:\Windows\Explorerexe
　　KeyName_=HotIcon
　　借用RealPlayer的圖標
　　KeyData_=C:\Program Files\Real\RealPlayer\eb_actico
　　KeyName_=Icon
　　借用RealPlayer的圖標
　　KeyData_=C:\Program Files\Real\RealPlayer\eb_inactico
　　KeyName_=MenuText
　　KeyData_=我的電腦
　　KeyName_=MenuStatusBar
　　KeyData_=打開我的電腦
　　定義與操作注冊表相關的參數
　　RegPath=HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Extensions\{}\
　　DataType=REG_SZ
　　定義一個在注冊表中添加各項參數的功能函數
　　Function ValueAdd(KeyNameKeyData)
　　WSHShellRegWrite RegPath&KeyNameKeyDataDataType
　　End Function
　　調用Add()過程添加各項參數到注冊表
　　Call ValueAdd(KeyName_KeyData_)
　　Call ValueAdd(KeyName_KeyData_)
　　Call ValueAdd(KeyName_KeyData_)
　　Call ValueAdd(KeyName_KeyData_)
　　Call ValueAdd(KeyName_KeyData_)
　　Call ValueAdd(KeyName_KeyData_)
　　Call ValueAdd(KeyName_KeyData_)
　　Call ValueAdd(KeyName_KeyData_)
　　彈出確認信息框並作出相應的處理
　　Dim confirm
　　confirm=MsgBox(自制按鈕已成功添加需要重新啟動系統才能生效要重新啟動嗎?請確認!)
　　If confirm= Then
　　MsgBox(自制按鈕已成功設置請重新啟動系統!)
　　Else
　　WScrip tQuit()
　　End If
From:http://tw.wingwit.com/Article/program/Java/Javascript/201311/25361.html