如何在IE右鍵菜單中添加功能表項目

來源:互聯網
上載者:User
菜單|右鍵

如果使用過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添加到任務中。



相關文章

Beyond APAC's No.1 Cloud

19.6% IaaS Market Share in Asia Pacific - Gartner IT Service report, 2018

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。