[教學] 如何在IE中添加右鍵選單項及任務欄按鈕

[christ0312]

因有版友詢問要如何在IE右鍵選單中添加例如"使用影音傳送帶下載連結"之選項,所以我將
該教學原文PO上來讓各位版友參考,以下是教學原文：

如何在IE中添加右鍵菜單項及任務欄按鈕
作者︰TechnoFantasy 中國軟體開發中心

一、如何在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.applevb.com/z.zip", "", "http://www.applevb.com/"
點擊command1，然後NetAnts就會營運並且將http://www.applevb.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色調色板

[freezeman]

剛剛我用我的電腦測試一下,真的可以耶^^
看完後學到一點東西啦~~
幫你加積分了...