添加下载任务到Flashget与NetTransport

最新推荐文章于 2018-12-09 22:41:00 发布

Hendy_So

最新推荐文章于 2018-12-09 22:41:00 发布

阅读量2.3k

点赞数

文章标签：任务 vbscript url microsoft 下载工具浏览器

本文链接：https://blog.csdn.net/Hendy_So/article/details/579577

版权

本文探讨了如何利用VBScript和VC调用网际快车（Flashget）与影音传送带（NetTransport）的COM接口，实现添加下载任务，包括单个URL和网页中所有URL的下载。通过CreateObject创建COM对象，然后调用AddUrl或AddUrlList方法来添加下载任务。

摘要由CSDN通过智能技术生成

网际快车（Flasgget）和影音传送带（Nettransport）是目前国内非常有名的下载工具，也许我们的软件中需要调用它们进行下载，最简单的方式是直接用URL作为参数调用它们的主进程，因为这种软件通常都能够识别这种简单的命令行。但是如果要一次添加多个URL呢？这样做就不行了。由于这两个软件（通常这类软件都会）在Microsoft网页浏览器控件的右键菜单里添加下载单个URL与下载网页内所有URL两个右键菜单项，即浏览器可以启动它们下载单个URL和多个URL。那我们就来研究一下它们是怎么被浏览器启动的吧。

以网际快车为例，它是通过两个VBScript脚本来被启动的，下载单个URL的的脚本文件为jc_link.htm，下载网页中的所有URL的脚本文件为jc_all.htm。jc_link.htm的内容如下：

Sub 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 sub

Sub 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=&#