菜鸟想知道类似电骡那样的软件，如何实现点击网页后(左键点击)程序会捕捉到下载地址的呢？？？还有现在的x.baidu.com上那个百度下吧也有这样的功能，这个功能

菜鸟想知道类似电骡那样的软件，如何实现点击网页后(左键点击)程序会捕捉到下载地址的呢？？？还有现在的x.baidu.com上那个百度下吧也有这样的功能，这个功能是怎么实现的呢？？？(左键点击而不是右键点击，请高手注意一下) ( 积分: 100 )<br />菜鸟想知道类似电骡那样的软件，如何实现点击网页后程序会捕捉到下载地址的呢？？还有现在的x.baidu.com上那个百度下吧也有这样的功能，这个功能是怎么实现的呢？？(左键点击而不是右键点击，请高手注意一下)

菜鸟想知道类似电骡那样的软件，如何实现点击网页后程序会捕捉到下载地址的呢？？还有现在的x.baidu.com上那个百度下吧也有这样的功能，这个功能是怎么实现的呢？？(左键点击而不是右键点击，请高手注意一下)

通过右键的菜单传递一个参数给指定的VB脚本文件，通过脚本文件控件程序下载
如FLASHGET
右键菜单
使用网际快车下载
注册表
HKEY_CURRENT_USER/Software/Microsoft/Internet Explorer/MenuExt/使用网际快车下载
指定处理的脚本文件
C:/Program Files/FlashGet/jc_link.htm
脚本文件对链接进行分析
&lt;script language=&quot;VBScript&quot;&gt;
'Great thanks to Vladimir Romanov(Author of ReGet Pro)
'Download selected link

Sub AddLink(Url,Info)
On Error Resume Next
set JetCarCatch=CreateObject(&quot;JetCar.Netscape&quot
if err&lt;&gt;0 then
MsgBox(&quot;FlashGet not properly installed!&quot;+ vbCrLf+&quot;Please install FlashGet again&quot
else
call JetCarCatch.AddUrl(Url, Info, external.menuArguments.document.Url)
end if
end sub

Sub OnContextMenu()
set srcEvent = external.menuArguments.event
set EventElement = external.menuArguments.document.elementFromPoint ( srcEvent.clientX, srcEvent.clientY )
if srcEvent.type = &quot;MenuExtAnchor&quot; then
set srcAnchor = EventElement
do until TypeName(srcAnchor)=&quot;HTMLAnchorElement&quot;
set srcAnchor=srcAnchor.parentElement
Loop
Call AddLink(srcAnchor.href,srcAnchor.innerText)
elseif srcEvent.type=&quot;MenuExtImage&quot; then
if TypeName(EventElement)=&quot;HTMLAreaElement&quot; then
Call AddLink(EventElement.href,EventElement.Alt)
else
set srcImage = EventElement
set srcAnchor = srcImage.parentElement
do until TypeName(srcAnchor)=&quot;HTMLAnchorElement&quot;
set srcAnchor=srcAnchor.parentElement
if TypeName(srcAnchor)=&quot;Nothing&quot; then
call AddLink(srcImage.href,srcImage.Alt)
exit sub
end if
Loop
Call AddLink(srcAnchor.href,srcImage.Alt)
end if
elseif srcEvent.type=&quot;MenuExtUnknown&quot; then
set srcAnchor = EventElement
do until TypeName(srcAnchor)=&quot;HTMLAnchorElement&quot;
set srcAnchor=srcAnchor.parentElement
if TypeName(srcAnchor)=&quot;Nothing&quot; then
Call AddLink(EventElement.href,EventElement.innerText)
exit sub
end if
Loop
Call AddLink(srcAnchor.href,srcAnchor.innerText)
elseif 1=1 then
MsgBox(&quot;Unknown Event Source &quot;&quot;&quot; + srcEvent.type + &quot;&quot;&quot;&quot; + vbCrLf + &quot;Please send description of error to jetcar@163.net&quot
end if
end sub


call OnContextMenu()

&lt;/script&gt;
然后起动程序下载