一、如何在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色調色板。
在IE右鍵添加菜單項和任務欄按鈕
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.