NetAnts 那种右击超链接出现“Download by NetAnts”是怎么实现的？[200分]

Question

（1）NetAnts 那种右击超链接出现“Download by NetAnts”是怎么实现的？是改注册表吗？具体实现是如何的？（2）我看到它好象是使用了一个HTML页面，那它是怎么得到用户点击的那个超链接的内容的？

Answer 1

HKEY_CURRENT_USER\Software\Microsoft\Internet  Explorer\MenuExt  
HOWTO: Adding to the Standard Context Menus of the WebBrowser Control Q177241

Answer 2

谢谢 masterz()！第一个问题解决！=========================================================下面来讨论第二个问题：
根据我看 masterz() 提供的文档，它只是说会在一个隐藏窗口中运行一段指定的 JavaScript 脚本，那么那个菜单被点击之后 NetAnts 又是怎样被启动的呢？NetAnts 又是如何得到用户点击的超链接的内容的？

Answer 3

you can refer to the following page
http://www.applevb.com/art/ie_menu.txt
一、如何在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>
下建立一个

Answer 4

收藏+奇怪
masterz怎么用中文回答了，还有怎么能够回复这么长的帖子

Answer 5

http://www.codeproject.com/shell/shellextguide1.asp
http://www.codeproject.com/shell/shellextguide7.asp
http://www.codeproject.com/shell/commandprompt.asp--------------------------------------------------------------------------------
在右键菜单中添加item可以用一个com，楼上所说的方法都是那样，也可以直接修改注册表，如下注册文件：
REGEDIT4[HKEY_CLASSES_ROOT\.dll]
@="dllfile"[HKEY_CLASSES_ROOT\dllfile\shell\Register Component\command]
@="regsvr32 \"%L\""将上面代码拷贝到一个文本文件中，save as a.reg，运行a.reg即可在右键菜单添加一项，以后再右键点击一个dll文件的时候将看到Register component菜单，点击该菜单将执行动态库注册。
http://www.csdn.net/expert/topic/1015/1015222.xml?temp=.2947657
给系统菜单添加一个菜单项需要进行下述三个步骤：--------------------------------------------------------------------------------
首先，使用Resource Symbols对话（在View菜单中选择Resource Symbols．．．可以显示该对话）定义菜单项ID，该ID应大于0x0F而小于0xF000；
其次，调用CWnd::GetSystemMenu获取系统菜单的指针并调用CWnd:: Appendmenu将菜单项添加到菜单中。下例给系统菜单添加两个新的
int CMainFrame:: OnCreate (LPCREATESTRUCT lpCreateStruct)
{
 …
 //Make sure system menu item is in the right range.
 ASSERT (IDM_MYSYSITEM &0xFFF0)==IDM_MYSYSITEM)
 ASSERT (IDM-MYSYSITEM < 0xf000)
 //Get pointer to system menu.
 CMenu* pSysmenu=GetSystemmenu (FALSE)
 ASSERT_VALID (pSysMenu)
 //Add a separator and our menu item to system menu.
 CString StrMenuItem (_T ("New menu item"))
 pSysMenu->Appendmenu (MF_SEPARATOR)
 pSysMenu->AppendMenu (MF_STRING, IDM_MYSYSITEM, strMenuitem)
 …
}
现在，选择系统菜单项时用户应进行检测。使用ClassWizard处理WM_SYSCOMMAND消息并检测用户菜单的nID参数：
void CMainFrame:: OnSysCommand (UINT nID,LPARAM lParam)
{
 //Determine if our system menu item was selected.
 if ( (nID & 0xFFF0)==IDM_MYSYSITEM)
 {
 //TODO-process system menu item
 }
 else
 CMDIFrameWnd ::OnSysCommand (nID, lParam)
}
最后，一个设计良好的UI应用程序应当在系统菜单项加亮时在状态条显示一个帮助信息，这可以通过增加一个包含系统菜单基ID的串表的入口来实现。--------------------------------------------------------------------------------
1.启动注册表编辑器
2 展开HKEY_CLASSES_ROOT
3 展开Unknow子项
4 单击shell项后右击
5 从显示菜单中选择New, 然后选择key
6 输入要显示的程序名称后，单击OK确定
7 右击新建子键后单击New
8 再次选择Key，输入Command, 回车确定
9 单击新建Command子键，双击(Default)
10 输入可执行文件全路径名称及 %1
   如C:\program files\mypro\mypro.exe %1--------------------------------------------------------------------------------
Windows Registry Editor Version 5.00[HKEY_CLASSES_ROOT\Folder\shell\从这里进入DOS]
@="从这里进入DOS"
[HKEY_CLASSES_ROOT\Folder\shell\从这里进入DOS\command]
@="cmd.exe /k cd \"%1\""[HKEY_CLASSES_ROOT\*\Shell\用记事本打开]
@="用记事本打开"
[HKEY_CLASSES_ROOT\*\Shell\用记事本打开\command]
@="notepad.exe \"%1\""

Answer 6

都是星级高手，我好羡慕，I 服了 U.
masterz() 更是高手中的高手。我们应该像他学习，只是不知道他的真实姓名。
下面是我对这个问题的理解和补充，有班门弄斧之嫌，不妥之处各位朋友请勿见笑。
1.关于Internet Explorer扩展的文章可以参考MSDN 在线帮助，
Customizing Microsoft Internet Explorer 5.0 
HOWTO: Programmatically Active a Band Object
Adding Entries to the Standard Context Menu 
HOWTO: Adding to the Standard Context Menus of the WebBrowser Control
（使用搜索查找上面的文章）
2.打开你的浏览器，寻找被添加的菜单项，在注册表中找到对应的注册项，找到实现文件分析，网页文件或者组件中的资源文件
如res://F:\dfdf.DLL/Popup.htm
D:\PROGRA~1\NETCAM~1\nc_link.htm下面是网络骆驼下载软件对应的nc_link.htm文本。
<script language="VBScript">
Sub AddLink(Url,Info) 
On Error Resume Next
set NetCamelsApi=CreateObject("brsclick.NetCamelsGetUrl")
if err<>0 then
MsgBox("NetCamels not properly installed on this PC!")
else
     call NetCamelsApi.AddUrl(Url, Info,external.menuArguments.document.Url)
    end if
end subSub OnContextMenu()
set srcEvent = external.menuArguments.event
set EventElement = external.menuArguments.document.elementFromPoint ( srcEvent.clientX, srcEvent.clientY )
if srcEvent.type = "MenuExtAnchor" then 
set srcAnchor = EventElement
do until TypeName(srcAnchor)="HTMLAnchorElement"
set srcAnchor=srcAnchor.parentElement
Loop
Call AddLink(srcAnchor.href,srcAnchor.innerText)
elseif srcEvent.type="MenuExtImage" then
if TypeName(EventElement)="HTMLAreaElement" then
Call AddLink(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 AddLink(srcImage.href,srcImage.Alt)
exit sub
end if
Loop
Call AddLink(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 AddLink(EventElement.href,EventElement.innerText)
exit sub
end if
Loop
Call AddLink(srcAnchor.href,srcAnchor.innerText)
elseif 1=1 then
MsgBox("Unknown Event Source """ + srcEvent.type + """" + vbCrLf + "Please send description of error to [email protected]")
end if
end subcall OnContextMenu()</script>
Flashget对应的文本如下，
<script language="VBScript">
'Great thanks to Vladimir Romanov(Author of ReGet Pro)
'Download selected linkSub AddLink(Url,Info) 
On Error Resume Next
set JetCarCatch=CreateObject("JetCar.Netscape")
if err<>0 then
MsgBox("FlashGet not properly installed!"+ vbCrLf+"Please install FlashGet again")
else
call JetCarCatch.AddUrl(Url, Info, external.menuArguments.document.Url)
        end if
end subSub OnContextMenu()
set srcEvent = external.menuArguments.event
set EventElement = external.menuArguments.document.elementFromPoint ( srcEvent.clientX, srcEvent.clientY )
if srcEvent.type = "MenuExtAnchor" then 
set srcAnchor = EventElement
do until TypeName(srcAnchor)="HTMLAnchorElement"
set srcAnchor=srcAnchor.parentElement
Loop
Call AddLink(srcAnchor.href,srcAnchor.innerText)
elseif srcEvent.type="MenuExtImage" then
if TypeName(EventElement)="HTMLAreaElement" then
Call AddLink(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 AddLink(srcImage.href,srcImage.Alt)
exit sub
end if
Loop
Call AddLink(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 AddLink(EventElement.href,EventElement.innerText)
exit sub
end if
Loop
Call AddLink(srcAnchor.href,srcAnchor.innerText)
elseif 1=1 then
MsgBox("Unknown Event Source """ + srcEvent.type + """" + vbCrLf + "Please send description of error to [email protected]")
end if
end sub
call OnContextMenu()</script>两者实际上是一模一样的。
无非是通过创建COM组件的实例，把URL的链接传送COM组件的方法，然后通过网络编程对该URL地址的文件进行下载或者进行其它处理。
获得当前所有网页的所有链接代码如下（D:\PROGRA~1\FlashGet\jc_all.htm）
<script language="VBScript">
'Great thanks to Vladimir Romanov(Author of ReGet Pro) On Error Resume Next
set JetCarCatch=CreateObject("JetCar.Netscape")
if err<>0 then
MsgBox("FlashGet not properly installed!"+ vbCrLf+"Please Install FlashGet again")
else
set links = external.menuArguments.document.links
ReDim params(links.length*2)
params(0)=external.menuArguments.document.Url
for i = 0 to links.length-1
params(i*2+1)=links(i).href
params(i*2+2)=links(i).innerText
next 
JetCarCatch.AddUrlList params
        end if
</script>   如果对应的是一个二进制组件，你可以使用VC以资源方式打开组件查看HTML资源类型文件。
   传递URL的方法，也不是只有这一种，作为一个BHO和菜单扩展的复合体程序，也可以在BHO通过设置该URL地址，不一定是点击的URL链接，比如mms：// rtps://也可以，然后通过创建共享段和内存映射文件实现扩展的功能。比如我想在右击菜单中添加另存为菜单，以便实现弹出式窗口菜单的网页保存。
这样我就可以通过BHO获得当前网页的URL地址，通过变量共享，实现组件实例间的内存共享，把当前网页的内容保存起来。

Answer 7

只是如何在Flash动画上添加菜单或者在已有flash菜单上添加菜单项，比如另存为..，却很难实现。我曾经有个想法，就是在BHO中挂接鼠标事件，检测鼠标单击元素是否是一个flash对象，然后手工使用SDK API函数创建菜单，并响应菜单事件。实际上flash对象的菜单几乎没有任何用处。最需要的菜单项应该是download或者saveas。
  flash菜单可能是一个异类。  如何在flash动画上添加菜单，还得看一下高手的意见。

Answer 8

哈哈，楼上的兄弟水平真高，我连masterz是男是女都不知道呢，把所有的东西都收藏

Answer 9

呵呵，谢谢大家的关注，现在已经清楚了：
（1）NetAnts 在 IE 快捷菜单中添加了自己的信息，当用户选择这个菜单项的时候 IE 会执行一段指定的脚本（NaGet.htm 和 NaGetAll.htm）。
（2）NetAnts 向系统注册了一个 ActiveX 接口（DLL 形式的，文件名为 AntAPI.dll）。
（3）在（1）中的脚本执行的时候会调用 NetAnts 的这个接口并且把相关信息传给它，之后这个接口运行 NetAnts.exe 并把接收到的信息传给它。所以这几部分之间的相互协作关系我已经搞清楚了，现在需要解决的问题就成了那个 ActiveX 接口如何实现的问题。是在一个 DLL 中实现一个 COM 接口吗？它要继承什么接口？怎样导出接口？我对 COM 不太熟，只是大概的翻过潘爱民老师的一本书，请大家继续帮忙，提供资料链接和示例代码都可以，谢谢！

Answer 10

http://www.njupt.net/jojo/tech/downmusic.htm
我以前写的一个东西
实现了这个功能
有源码。

Answer 11

to softarts(CDMA2000)：URL 拖放功能我是直接继承 IDropTarget 接口，可是为什么把 URL 拖到我窗口上时显示的是不可拖放光标？STDMETHODIMP
CMyDropTarget::DragEnter(
LPDATAOBJECT  pDataObj,
DWORD         grfKeyState,
POINTL        pt,
LPDWORD       pdwEffect )
{
HRESULT  hr      = E_INVALIDARG;
*pdwEffect       = DROPEFFECT_NONE;

FORMATETC  fmte = {CF_TEXT, NULL, DVASPECT_CONTENT, -1, TYMED_HGLOBAL};
if( pDataObj->QueryGetData( &fmte ) == S_OK )
{
*pdwEffect = DROPEFFECT_COPY; hr = S_OK;
} return( hr );
}

Answer 12

to kwiner(最爱编程)：当然要了！只要能解决问题就成！

Answer 13

kwiner(最爱编程) ,也给我一份吧，我正需要做这方面的工作 谢谢了  [email protected]

Answer 14

呵呵，好帖。收藏
希望也能给我一份源码。
[email protected]
谢谢！