一、如何在IE右鍵選單中新增選單項
如果使用過Netants的朋友可能都知道，NetAnts在IE中添加了右鍵選單功能，只要在頁面的一個連結或圖片上點擊右鍵後在選單中選擇Down By Netants 就可以呼叫Netants下載該連結指向的檔案。在本文中作者將介紹如何透過VB來實現這樣的功能。
若要實現在IE右鍵選單中新增選單項目的功能，請依序實現以下步驟：
1.在登錄HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerMenuExt項下建立一個新項，項的名稱既出現在選單中的標題，例如你想建立的選單項目標題為Add URL，則新項目的名稱為
HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerMenuExtAdd 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_USERSoftwareMicrosoftInternet ExplorerMenuExt&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.downcodes.com/ "
點選command1，然後NetAnts就會運作並且將7、在登錄檔的HKEY_LOCAL_MACHINESOFTWAREMicrosoftInternet ExplorerExtensions<Your GUID>
下建立一個新的String類型的值，名稱為Clsid，將該值設定為{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}
8.在登錄的HKEY_LOCAL_MACHINESOFTWAREMicrosoftInternet ExplorerExtensions<Your GUID>
下建立一個新的String類型的值，名稱為Exec，定義點擊按鈕後運行的檔案的全路徑名稱，例如:
c:program filessamplesnet.exe
例如NetAnts的按鈕登錄項目的內容就是像下面這樣：
Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINESOFTWAREMicrosoftInternet ExplorerExtensions{57E91B47-FSOFTWAREMicrosoftInternet ExplorerExtensions{57E91B47-F40A-11D1-B11D1 -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_MACHINESOFTWAREMicrosoftInternet ExplorerExtensions<Your GUID>下也可以新增一個名稱為
MenuCustomize的字串類型值，將該值設定為"Help"將使選單項目出現在「幫助」功能表列中，否則出現在「工具」列中。
當然，我們不會滿足於只是添加一個按鈕，執行一個程序，我們希望能夠獲得當用戶點擊按鈕時能夠操控當前頁面，在註冊表的HKEY_LOCAL_MACHINESOFTWAREMicrosoftInternet ExplorerExtensions<Your GUID>
下建立一個新的String類型的值，名稱設定為一個htm文件的全路徑名，同前面介紹的添加滑鼠右鍵選單一樣，在點擊按鈕後IE會呼叫該文件，在文件中透過設定VBScript訪問external物件的menuArguments屬性就可以獲得瀏覽器中的頁面。例如我們將HKEY_LOCAL_MACHINESOFTWAREMicrosoftInternet ExplorerExtensions<Your GUID>VBScript
的值設定為c:program filessamp.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色調色板。
http://www.cnblogs.com/goody9807/archive/2006/12/04/581359.html