如何在IE右鍵菜單中添加功能表項目以及如何添加IE工作列按鈕

按鈕|菜單|右鍵

一、如何在IE右鍵菜單中添加功能表項目
    如果使用過Netants的朋友可能都知道，NetAnts在IE中添加了右鍵菜單功能，只要在頁面的一個連結
或者圖片上點擊右鍵後在菜單中選擇 Down By Netants 就可以調用Netants下載該連結指向的檔案。在本
文中作者將介紹如何通過VB來實現這樣的功能。
    要實現在IE右鍵菜單中添加功能表項目的功能，要依次實現以下步驟：
    1、在註冊表HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt項下建立一個
新項，項的名稱既出現在菜單中的標題，例如你想建立的功能表項目標題為Add URL，則建立項的名稱為
HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\Add URL
    2、將建立項的預設值設定為一個URL地址，當使用者點擊功能表項目後，IE就會調用URL指向的頁面中的腳
本，在目標頁面的指令碼中通過訪問IE提供的external對象的menuArguments屬性就可以訪問IE中的頁面中的
各種對象，例如連結、圖片、表單域、被選中的文本等。詳細的協助請參考MSDN中關於InternetExplore object
的協助，熟悉了Window對象才可以比較好的瞭解下面的指令碼。
    對於如何?自身的程式訪問menuArguments的問題，我們可以仿效Netants的做法，首先建立一個
OLE Automation對象，然後在指令碼中調用該對象，並將頁面資訊傳遞對象處理。下面我們需要首先通過VB建立
一個對象：
    開啟VB，點擊菜單： File | New ，在建立工程視窗中選擇 ActiveX Dll 後按確定鍵建立一個ActiveX DLL
工程。然後在工程列表視窗中將Class1的Name屬性更改為NetAPI，然後在NetAPI的代碼視窗中添加如下代碼：
Public Sub AddURL(URL As String, Info As String)
    MsgBox Info, vbOKOnly, URL
End Sub
    儲存檔案，將工程檔案儲存成NetSamp.vbp。然後在菜單中選擇 File | Make NetSamp.dll建立對象動態
串連庫。
    接下來是註冊庫，在Windows目錄下找到Regsvr32.exe，然後將其拷貝到netsamp.dll所在目錄下，將
netsamp.dll的的表徵圖拖到Regsvr32.exe上放開，這時Regsvr32.exe就會彈出對話方塊提示對象註冊成功。
    開啟UltraEdit(或者其它文字編輯器)將下面的指令碼代碼輸入編輯器中：
<script language="VBScript">

Sub OnContextMenu()
 On Error Resume Next
 set srcEvent = external.menuArguments.event
 set EventElement = external.menuArguments.document.elementFromPoint(srcEvent.clientX, srcEvent.clientY)
 set objNetSamp=CreateObject("NetSamp.NetAPI")
       
        if srcEvent.type = "MenuExtAnchor" then
  set srcAnchor = EventElement
  do until TypeName(srcAnchor)="HTMLAnchorElement"
   set srcAnchor=srcAnchor.parentElement
  Loop
  Call objNetSamp.AddUrl(srcAnchor.href,srcAnchor.innerText)
 elseif srcEvent.type="MenuExtImage" then
  if TypeName(EventElement)="HTMLAreaElement" then
   Call objNetSamp.AddUrl(EventElement.href,EventElement.Alt)
  else
   set srcImage = EventElement
   set srcAnchor = srcImage.parentElement
   do until TypeName(srcAnchor)="HTMLAnchorElement"
    set srcAnchor=srcAnchor.parentElement
    if TypeName(srcAnchor)="Nothing" then
     call objNetSamp.AddUrl(srcImage.href,srcImage.Alt)
     exit sub
    end if
   Loop
   Call objNetSamp.AddUrl(srcAnchor.href, srcImage.Alt)
  end if
 elseif srcEvent.type="MenuExtUnknown" then
  set srcAnchor = EventElement
  do until TypeName(srcAnchor)="HTMLAnchorElement"
   set srcAnchor=srcAnchor.parentElement
   if TypeName(srcAnchor)="Nothing" then
    Call objNetSamp.AddUrl(EventElement.href,EventElement.innerText)
    exit sub
   end if
  Loop
  Call objNetSamp.AddUrl(srcAnchor.href,srcAnchor.innerText)
 end if
end Sub
 
call OnContextMenu()

</script>
   
    將檔案儲存到c:\program files 下，檔案名稱為 geturl.htm
    從上面的指令碼可以看到，首先訪問external.menuArguments屬性，獲得使用者單擊滑鼠右鍵位置的對象，然
後根據對象的不同獲得它的URL，然後建立IEContextMenu.IEMenu1對象並調用該對象的AddURL方法。
    接下來是為右鍵菜單建立註冊項，開啟UltraEdit(或者其它文字編輯器)將下面的註冊資料輸入編輯器中
Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\&Get URL]
@="c:\\program files\\geturl.htm"
"Contexts"=dword:00000022

    將檔案以reg為尾碼儲存，然後在Windows資源管理員中雙擊該檔案將註冊項添加到註冊表中，然後開啟
IE，右鍵點擊一個串連或者圖片，在快顯功能表中會出現一個Get URL項，點擊該項，就會出現一個訊息框顯示
點擊的串連或者圖片的URL地址
    下面再介紹一下上面註冊項中Contexts項的作用，通過該項可以制定功能表項目在右鍵點擊IE中的什麼對象時
出現，它可以為以下值的“或”組合：
 對象  值
 預設   0x1
 圖片   0x2
 控制項   0x4
 表單域   0x8
 選擇文本  0x10
 錨點   0x20
    例如上面我們希望功能表項目在使用者點擊圖片或者超連結時出現，那麼我們就將值設定為dword:00000022，既在
點擊圖片 或者 錨點時出現菜單。一個錨點是頁面中描述一個超連結的對象。如果不設定Contexts項，則功能表項目
會在點擊任何對象時出現在右鍵菜單中。
    通過上面的程式介紹我們可以看到IE滑鼠右鍵菜單的工作過程。前面講了，Netants就是使用這樣的方法通過
在指令碼中建立對象來實現調用NetAnts的，那麼我們如果安裝了NetAnts，就可以在程式中通過調用NetAnts對象來
調用NetAnts。
    建立一個新工程，點擊菜單 Projects | References 項，選擇其中的 AntAPI 1.0 Type Library 項，如果沒有
點擊Browser按鈕，在檔案清單框中選擇網路螞蟻目錄下的NetAPI.dll後按開啟鍵。在Form1中添加一個CommandButton
按鈕，在Command1_Click事件中添加如下代碼：
    Dim ant As New ANTAPILib.AntAPIObj
   
    ant.AddUrl "http://www.knowsky.com/z.zip", "", "http://www.knowsky.com/"
    點擊command1，然後NetAnts就會運行並且將http://www.knowsky.com/z.zip添加到任務中。

二、如何新增工作欄按鈕
    基本上來說，新增工作欄按鈕只需要修改註冊表就可以實現。通過修改註冊表來實現添加按鈕的步驟如下：

1、建立一個GUID。
2、開啟登錄編輯程式，轉到HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Extensions部分，
在其下添加一個新的項，名稱為 <Your GUID> ，Your GUID為你剛建立的GUID。
3、在註冊表的 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Extensions\<Your GUID>
下建立一個新的String類型的值，名稱為HotIcon，該值定義當按鈕具有熱點時的表徵圖，它的一般類型為：
包含表徵圖的檔案全路徑名,表徵圖索引，例如：
C:\PROGRA~1\KINGSOFT\XDICT\ieplugin.DLL,208
4、在註冊表的 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Extensions\<Your GUID>
下建立一個新的String類型的值，名稱為Icon，該值定義當按鈕的表徵圖，它的一般類型為：
表徵圖檔案全路徑名,表徵圖索引
5、在註冊表的 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Extensions\<Your GUID>
下建立一個新的String類型的值，名稱為ButtonText，該值定義按鈕的ToolTip文本。
6、在註冊表的 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Extensions\<Your GUID>
下建立一個新的String類型的值，名稱為Default Visible，該值定義按鈕是否可見，如果是，則該值設定
為"Yes"，否則設定為"No"。
7、在註冊表的 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Extensions\<Your GUID>
下建立一個新的String類型的值，名稱為Clsid，將該值設定為{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}
8、在註冊表的 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Extensions\<Your GUID>
下建立一個新的String類型的值，名稱為Exec，該值定義點擊按鈕後啟動並執行檔案的全路徑名稱，例如:
c:\program files\samples\net.exe

例如NetAnts的按鈕登錄機碼的內容就是象下面這樣：

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Extensions\{57E91B47-F40A-11D1-B792-444553540000}]
"CLSID"="{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}"
"Default Visible"="Yes"
"HotIcon"="C:\\PROGRA~1\\NETANTS\\NetAnts.exe,1001"
"Icon"="C:\\PROGRA~1\\NETANTS\\NetAnts.exe,1000"
"Exec"="C:\\PROGRA~1\\NETANTS\\NetAnts.exe"
"ButtonText"="NetAnts"
"MenuText"="&NetAnts"
"MenuStatusBar"="Launch NetAnts"

    當點擊NetAnts按鈕時就會運行Netants。上面的登錄機碼中下面的兩項：MenuText項添加一個功能表項目到菜單
的“工具”欄中，MenuStatusBar項定義當游標移動到添加的功能表列上後顯示在狀態列中提示文本。此外在註冊表的
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Extensions\<Your GUID>下還可以添加一個名稱為
MenuCustomize的字串類型值，將該值設定為"Help"將使功能表項目出現在“協助”功能表列中，否則出現在“工具”欄中。

    當然，我們不會滿足於只是添加一個按鈕，執行一個程式，我們希望能夠獲得當使用者點擊按鈕時能夠操控當前
頁面，在註冊表的 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Extensions\<Your GUID>
下建立一個新的String類型的值，名稱設定為一個htm檔案的全路徑名，同前面介紹的添加滑鼠右鍵菜單一樣，在點擊
按鈕後IE會調用該檔案，在檔案中通過設定VBScript訪問external對象的menuArguments屬性就可以獲得瀏覽器中的
頁面。例如我們將HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Extensions\<Your GUID>\VBScript
的值設定為c:\program files\samp.htm，然後在c:\program files下建立一個名為Samp.htm的檔案，在檔案中輸入以下
指令碼內容：
    <script language="VBScript">

    Set objNetSamp=CreateObject("IEContextMenu.IEMenu1")
    userURL=external.menuArguments.location.href
    Call objNetSamp.AddUrl(userURL,"")

    </script>
    開啟IE瀏覽器，點擊建立按鈕，就會彈出對話方塊顯示當前頁面的URL。注意該項同前面設定的Exec項不能夠同時使用。
    最後，對於按鈕表徵圖，IE需要兩種尺寸的表徵圖：20x20和16x16的，前者用於正常狀態下的顯示，後者用於在全螢幕
下的顯示，所以上面HotIcon和Icon指向的表徵圖資源應該是三個表徵圖的組合，這三個表徵圖的規格如下：
    16x16 16-色 icon (必須)
    20x20 16-色 icon (可選)
    20x20 256-色 icon (必須)
    在設計表徵圖時，256色表徵圖應該使用Windows半色調調色盤，而16色表徵圖使用Windows 16色調色盤。