subject_39837.htm

vc

<p>
序号：39837 发表者：beetle 发表日期：2003-05-14 01:37:06
<br>主题：怎样像网络蚂蚁一样在点击浏览器上下载链接后，打开一个程序？
<br>内容：&nbsp;&nbsp;&nbsp;&nbsp;就是所说的与浏览器点击整合这个功能。<BR>如果太复杂就请说说原理，比如是否要HOOK等。。
<br><a href="javascript:history.go(-1)">返回上页</a><br><a href=http://www.copathway.com/cndevforum/>访问论坛</a></p>
<hr size=1>
<blockquote><p>
<font color=red>答案被接受</font><br>回复者：TaShin 回复日期：2003-05-14 14:51:09
<br>内容：&nbsp;&nbsp; 这个比较复杂，主要思路是这样的：<BR>1.首先你要在你的程序中做好接口；（netants不是有扩展口吗？）<BR>2.用VBS做一个HTML文件，调用你的接口，代码可以看netants或者flashget：<BR><BR>&nbsp;&nbsp;&lt;script language="VBScript"&gt;<BR>'Great thanks to Vladimir Romanov(Author of ReGet Pro)<BR>'Download selected link<BR><BR>Sub AddLink(Url,Info) <BR>&nbsp;&nbsp;&nbsp;&nbsp;On Error Resume Next<BR>&nbsp;&nbsp;&nbsp;&nbsp;set JetCarCatch=CreateObject("JetCar.Netscape")<BR>&nbsp;&nbsp;&nbsp;&nbsp;if err&lt;&gt;0 then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;MsgBox("FlashGet not properly installed!"+ vbCrLf+"Please install FlashGet again")<BR>&nbsp;&nbsp;&nbsp;&nbsp;else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;call JetCarCatch.AddUrl(Url, Info, external.menuArguments.document.Url)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end if<BR>end sub<BR><BR>Sub OnContextMenu()<BR>&nbsp;&nbsp;&nbsp;&nbsp;set srcEvent = external.menuArguments.event<BR>&nbsp;&nbsp;&nbsp;&nbsp;set EventElement = external.menuArguments.document.elementFromPoint ( srcEvent.clientX, srcEvent.clientY )<BR>&nbsp;&nbsp;&nbsp;&nbsp;if srcEvent.type = "MenuExtAnchor" then <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;set srcAnchor = EventElement<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;do until TypeName(srcAnchor)="HTMLAnchorElement"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;set srcAnchor=srcAnchor.parentElement<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Loop<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Call AddLink(srcAnchor.href,srcAnchor.innerText)<BR>&nbsp;&nbsp;&nbsp;&nbsp;elseif srcEvent.type="MenuExtImage" then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if TypeName(EventElement)="HTMLAreaElement" then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Call AddLink(EventElement.href,EventElement.Alt)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;else <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;set srcImage = EventElement<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;set srcAnchor = srcImage.parentElement<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;do until TypeName(srcAnchor)="HTMLAnchorElement"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;set srcAnchor=srcAnchor.parentElement<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if TypeName(srcAnchor)="Nothing" then <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;call AddLink(srcImage.href,srcImage.Alt)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;exit sub<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end if<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Loop<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Call AddLink(srcAnchor.href,srcImage.Alt)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end if<BR>&nbsp;&nbsp;&nbsp;&nbsp;elseif srcEvent.type="MenuExtUnknown" then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;set srcAnchor = EventElement<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;do until TypeName(srcAnchor)="HTMLAnchorElement"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;set srcAnchor=srcAnchor.parentElement<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if TypeName(srcAnchor)="Nothing" then <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Call AddLink(EventElement.href,EventElement.innerText)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;exit sub<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end if<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Loop<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Call AddLink(srcAnchor.href,srcAnchor.innerText)<BR>&nbsp;&nbsp;&nbsp;&nbsp;elseif 1=1 then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;MsgBox("Unknown Event Source """ + srcEvent.type + """" + vbCrLf + "Please send description of error to [e-mail]")<BR>&nbsp;&nbsp;&nbsp;&nbsp;end if<BR>end sub<BR><BR><BR>call OnContextMenu()<BR><BR>&lt;/script&gt;<BR><BR>3. 再要在住处表中，（忘记是哪个键值了）设置点了连接后要运行的html文件名（你刚才做的那个）这样就OK了，
<br>
<a href="javascript:history.go(-1)">返回上页</a><br><a href=http://www.copathway.com/cndevforum/>访问论坛</a></p></blockquote>
<hr size=1>
<blockquote><p>
回复者：beetle 回复日期：2003-05-14 19:59:00
<br>内容：&nbsp;&nbsp;&nbsp;&nbsp;谢谢你，键值我也找到了。<BR>　　能再说说扩展口怎么做呢？　COM吗？
<br>
<a href="javascript:history.go(-1)">返回上页</a><br><a href=http://www.copathway.com/cndevforum/>访问论坛</a></p></blockquote>
<hr size=1>
<blockquote><p>
回复者：TaShin 回复日期：2003-05-15 08:52:30
<br>内容：&nbsp;&nbsp; COM肯定也可以！不过我看了好像是OLE比较多！你到netants.com上面去下载一个他的开发接口看看就知道了！他既有COM接口，还有OLE接口
<br>
<a href="javascript:history.go(-1)">返回上页</a><br><a href=http://www.copathway.com/cndevforum/>访问论坛</a></p></blockquote>
<hr size=1>
<blockquote><p>
回复者：beetle 回复日期：2003-05-16 00:57:54
<br>内容：&nbsp;&nbsp;&nbsp;&nbsp;多谢指点，我想我应该可以完成了。。
<br>
<a href="javascript:history.go(-1)">返回上页</a><br><a href=http://www.copathway.com/cndevforum/>访问论坛</a></p></blockquote>
<hr size=1>
<blockquote><p>
回复者：TaShin 回复日期：2003-05-16 08:34:55
<br>内容：&nbsp;&nbsp; 好啊，做好了给我发一份吧，有什么问题继续交流！
<br>
<a href="javascript:history.go(-1)">返回上页</a><br><a href=http://www.copathway.com/cndevforum/>访问论坛</a></p></blockquote>