国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

一、如何在IE右鍵菜單中添加菜單項(xiàng)
    如果使用過(guò)Netants的朋友可能都知道，NetAnts在IE中添加了右鍵菜單功能，只要在頁(yè)面的一個(gè)鏈接
或者圖片上點(diǎn)擊右鍵后在菜單中選擇 Down By Netants 就可以調(diào)用Netants下載該鏈接指向的文件。在本
文中作者將介紹如何通過(guò)VB來(lái)實(shí)現(xiàn)這樣的功能。
    要實(shí)現(xiàn)在IE右鍵菜單中添加菜單項(xiàng)的功能，要依次實(shí)現(xiàn)以下步驟：
    1、在注冊(cè)表HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt項(xiàng)下建立一個(gè)
新項(xiàng)，項(xiàng)的名稱(chēng)既出現(xiàn)在菜單中的標(biāo)題，例如你想建立的菜單項(xiàng)標(biāo)題為Add URL，則新建項(xiàng)的名稱(chēng)為
HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\Add URL
    2、將新建項(xiàng)的默認(rèn)值設(shè)定為一個(gè)URL地址，當(dāng)用戶(hù)點(diǎn)擊菜單項(xiàng)后，IE就會(huì)調(diào)用URL指向的頁(yè)面中的腳
本，在目標(biāo)頁(yè)面的腳本中通過(guò)訪問(wèn)IE提供的external對(duì)象的menuArguments屬性就可以訪問(wèn)IE中的頁(yè)面中的
各種對(duì)象，例如鏈接、圖片、表單域、被選中的文本等。詳細(xì)的幫助請(qǐng)參考MSDN中關(guān)于InternetExplore object
的幫助，熟悉了Window對(duì)象才可以比較好的了解下面的腳本。
    對(duì)于如何實(shí)現(xiàn)自身的程序訪問(wèn)menuArguments的問(wèn)題，我們可以仿效Netants的做法，首先建立一個(gè)
OLE Automation對(duì)象，然后在腳本中調(diào)用該對(duì)象，并將頁(yè)面信息傳遞對(duì)象處理。下面我們需要首先通過(guò)VB建立
一個(gè)對(duì)象：
    打開(kāi)VB，點(diǎn)擊菜單： File | New ，在新建工程窗口中選擇 ActiveX Dll 后按確定鍵建立一個(gè)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建立對(duì)象動(dòng)態(tài)
連接庫(kù)。
    接下來(lái)是注冊(cè)庫(kù)，在Windows目錄下找到Regsvr32.exe，然后將其拷貝到netsamp.dll所在目錄下，將
netsamp.dll的的圖標(biāo)拖到Regsvr32.exe上放開(kāi)，這時(shí)Regsvr32.exe就會(huì)彈出對(duì)話框提示對(duì)象注冊(cè)成功。
    打開(kāi)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
    從上面的腳本可以看到，首先訪問(wèn)external.menuArguments屬性，獲得用戶(hù)單擊鼠標(biāo)右鍵位置的對(duì)象，然
后根據(jù)對(duì)象的不同獲得它的URL，然后建立IEContextMenu.IEMenu1對(duì)象并調(diào)用該對(duì)象的AddURL方法。
    接下來(lái)是為右鍵菜單建立注冊(cè)項(xiàng)，打開(kāi)UltraEdit(或者其它文本編輯器)將下面的注冊(cè)數(shù)據(jù)輸入編輯器中
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資源管理器中雙擊該文件將注冊(cè)項(xiàng)添加到注冊(cè)表中，然后打開(kāi)
IE，右鍵點(diǎn)擊一個(gè)連接或者圖片，在彈出菜單中會(huì)出現(xiàn)一個(gè)Get URL項(xiàng)，點(diǎn)擊該項(xiàng)，就會(huì)出現(xiàn)一個(gè)消息框顯示
點(diǎn)擊的連接或者圖片的URL地址
    下面再介紹一下上面注冊(cè)項(xiàng)中Contexts項(xiàng)的作用，通過(guò)該項(xiàng)可以制定菜單項(xiàng)在右鍵點(diǎn)擊IE中的什么對(duì)象時(shí)
出現(xiàn)，它可以為以下值的“或”組合：
 對(duì)象  值
 缺省   0x1
 圖片   0x2
 控件   0x4
 表單域   0x8
 選擇文本  0x10
 錨點(diǎn)   0x20
    例如上面我們希望菜單項(xiàng)在用戶(hù)點(diǎn)擊圖片或者超鏈接時(shí)出現(xiàn)，那么我們就將值設(shè)置為dword:00000022，既在
點(diǎn)擊圖片 或者 錨點(diǎn)時(shí)出現(xiàn)菜單。一個(gè)錨點(diǎn)是頁(yè)面中描述一個(gè)超鏈接的對(duì)象。如果不設(shè)置Contexts項(xiàng)，則菜單項(xiàng)
會(huì)在點(diǎn)擊任何對(duì)象時(shí)出現(xiàn)在右鍵菜單中。
    通過(guò)上面的程序介紹我們可以看到IE鼠標(biāo)右鍵菜單的工作過(guò)程。前面講了，Netants就是使用這樣的方法通過(guò)
在腳本中建立對(duì)象來(lái)實(shí)現(xiàn)調(diào)用NetAnts的，那么我們?nèi)绻惭b了NetAnts，就可以在程序中通過(guò)調(diào)用NetAnts對(duì)象來(lái)
調(diào)用NetAnts。
    建立一個(gè)新工程，點(diǎn)擊菜單 Projects | References 項(xiàng)，選擇其中的 AntAPI 1.0 Type Library 項(xiàng)，如果沒(méi)有
點(diǎn)擊Browser按鈕，在文件列表框中選擇網(wǎng)絡(luò)螞蟻目錄下的NetAPI.dll后按打開(kāi)鍵。在Form1中添加一個(gè)CommandButton
按鈕，在Command1_Click事件中添加如下代碼：
    Dim ant As New ANTAPILib.AntAPIObj
   
    ant.AddUrl "    點(diǎn)擊command1，然后NetAnts就會(huì)運(yùn)行并且將http://www.applevb.com/z.zip添加到任務(wù)中。

二、如何添加任務(wù)欄按鈕
    基本上來(lái)說(shuō)，添加任務(wù)欄按鈕只需要修改注冊(cè)表就可以實(shí)現(xiàn)。通過(guò)修改注冊(cè)表來(lái)實(shí)現(xiàn)添加按鈕的步驟如下：

1、建立一個(gè)GUID。
2、打開(kāi)注冊(cè)表編輯器，轉(zhuǎn)到HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Extensions部分，
在其下添加一個(gè)新的項(xiàng)，名稱(chēng)為 <Your GUID> ，Your GUID為你剛建立的GUID。
3、在注冊(cè)表的 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Extensions\<Your GUID>
下建立一個(gè)新的String類(lèi)型的值，名稱(chēng)為HotIcon，該值定義當(dāng)按鈕具有熱點(diǎn)時(shí)的圖標(biāo)，它的一般類(lèi)型為：
包含圖標(biāo)的文件全路徑名,圖標(biāo)索引，例如：
C:\PROGRA~1\KINGSOFT\XDICT\ieplugin.DLL,208
4、在注冊(cè)表的 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Extensions\<Your GUID>
下建立一個(gè)新的String類(lèi)型的值，名稱(chēng)為Icon，該值定義當(dāng)按鈕的圖標(biāo)，它的一般類(lèi)型為：
圖標(biāo)文件全路徑名,圖標(biāo)索引
5、在注冊(cè)表的 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Extensions\<Your GUID>
下建立一個(gè)新的String類(lèi)型的值，名稱(chēng)為ButtonText，該值定義按鈕的ToolTip文本。
6、在注冊(cè)表的 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Extensions\<Your GUID>
下建立一個(gè)新的String類(lèi)型的值，名稱(chēng)為Default Visible，該值定義按鈕是否可見(jiàn)，如果是，則該值設(shè)定
為"Yes"，否則設(shè)定為"No"。
7、在注冊(cè)表的 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Extensions\<Your GUID>
下建立一個(gè)新的String類(lèi)型的值，名稱(chēng)為Clsid，將該值設(shè)定為{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}
8、在注冊(cè)表的 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Extensions\<Your GUID>
下建立一個(gè)新的String類(lèi)型的值，名稱(chēng)為Exec，該值定義點(diǎn)擊按鈕后運(yùn)行的文件的全路徑名稱(chēng)，例如:
c:\program files\samples\net.exe

例如NetAnts的按鈕注冊(cè)表項(xiàng)的內(nèi)容就是象下面這樣：

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"

    當(dāng)點(diǎn)擊NetAnts按鈕時(shí)就會(huì)運(yùn)行Netants。上面的注冊(cè)表項(xiàng)中下面的兩項(xiàng)：MenuText項(xiàng)添加一個(gè)菜單項(xiàng)到菜單
的“工具”欄中，MenuStatusBar項(xiàng)定義當(dāng)光標(biāo)移動(dòng)到添加的菜單欄上后顯示在狀態(tài)欄中提示文本。此外在注冊(cè)表的
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Extensions\<Your GUID>下還可以添加一個(gè)名稱(chēng)為
MenuCustomize的字符串類(lèi)型值，將該值設(shè)定為"Help"將使菜單項(xiàng)出現(xiàn)在“幫助”菜單欄中，否則出現(xiàn)在“工具”欄中。

    當(dāng)然，我們不會(huì)滿(mǎn)足于只是添加一個(gè)按鈕，執(zhí)行一個(gè)程序，我們希望能夠獲得當(dāng)用戶(hù)點(diǎn)擊按鈕時(shí)能夠操控當(dāng)前
頁(yè)面，在注冊(cè)表的 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Extensions\<Your GUID>
下建立一個(gè)新的String類(lèi)型的值，名稱(chēng)設(shè)定為一個(gè)htm文件的全路徑名，同前面介紹的添加鼠標(biāo)右鍵菜單一樣，在點(diǎn)擊
按鈕后IE會(huì)調(diào)用該文件，在文件中通過(guò)設(shè)定VBScript訪問(wèn)external對(duì)象的menuArguments屬性就可以獲得瀏覽器中的
頁(yè)面。例如我們將HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Extensions\<Your GUID>\VBScript
的值設(shè)定為c:\program files\samp.htm，然后在c:\program files下建立一個(gè)名為Samp.htm的文件，在文件中輸入以下
腳本內(nèi)容：
    <script language="VBScript">

    Set objNetSamp=CreateObject("IEContextMenu.IEMenu1")
    userURL=external.menuArguments.location.href
    Call objNetSamp.AddUrl(userURL,"")

    </script>
    打開(kāi)IE瀏覽器，點(diǎn)擊新建按鈕，就會(huì)彈出對(duì)話框顯示當(dāng)前頁(yè)面的URL。注意該項(xiàng)同前面設(shè)定的Exec項(xiàng)不能夠同時(shí)使用。
    最后，對(duì)于按鈕圖標(biāo)，IE需要兩種尺寸的圖標(biāo)：20x20和16x16的，前者用于正常狀態(tài)下的顯示，后者用于在全屏幕
下的顯示，所以上面HotIcon和Icon指向的圖標(biāo)資源應(yīng)該是三個(gè)圖標(biāo)的組合，這三個(gè)圖標(biāo)的規(guī)格如下：
    16x16 16-色 icon (必須)
    20x20 16-色 icon (可選)
    20x20 256-色 icon (必須)
    在設(shè)計(jì)圖標(biāo)時(shí)，256色圖標(biāo)應(yīng)該使用Windows半色調(diào)調(diào)色板，而16色圖標(biāo)使用Windows 16色調(diào)色板。

本站僅提供存儲(chǔ)服務(wù)，所有內(nèi)容均由用戶(hù)發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)點(diǎn)擊舉報(bào)。