一、如何在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添加到任務中。
