熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> Java編程 >> Javascript >> 正文

妙用VBScript自制IE工具欄按鈕

2013-11-23 17:55:07  來源: Javascript 
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
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.