FlashGet实现右键Flash动画下载

　　通常我们在网上浏览Flash动画的时候，想下载下来并不是那么容易，因为一般的下载工具不能很好的解析出网页中的动画文件地址。总结以下大家普遍采用的主要有两种方法：

　　（1）直接打开HTML源文件自己找出这个*.swf文件，然后直接通过其他下载工具下载。此方法虽然可行，但是比较烦琐。

中国网管联盟bitsCN.com

　　（2）通过网上找一些别人写的专门下载Flash动画的小程序。这种方法比较方便，但是一般没有断点续传功能，对于一些较大的文件来说不是很合适。

网管网www_bitscn_com

　　通过我的实际应用发现了一种更为简单易用的方法，现在介绍给大家，希望能够对大家有用。

网管论坛bbs_bitsCN_com

　　这种方法主要是通过扩展FlashGet来实现的，一个更大的优点是可以很好地利用FlashGet的断点续传功能。使用起来跟平常下载其他格式文件一样，简单方便。 中国网管联盟bitsCN.com

　　下面详细介绍以下具体实现方法：

网管网www.bitscn.com

　　（1）编写接口文件

　　首先确认你已经安装了FlashGet软件，找到具体的安装目录（默认路径为C:\Program Files\FlashGet），在目录下发现有两个html文件。 网管联盟bitsCN_com

　　jc_all.htm 是使用网际快车下载全部链接的接口 网管网www_bitscn_com

　　jc_link.htm是使用网际快车下载一个链接的接口 网管u家u.bitsCN.com

　　我们在此目录下扩展一个jc_flash.htm 作为我们是使用网际快车下载Flash的接口 中国网管论坛bbs.bitsCN.com

　　具体内容如下： 网管下载dl.bitscn.com

　　<script language="VBScript">
　　'Designed by Happywinds.
　　'in 2003.06.08
　　'Thanks for use.
　　'Email: happywinds@yeah.net
　　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.getElementsByTagName("OBJECT")
　　ReDim params(links.length*2)
　　params(0) = external.menuArguments.document.Url
　　for i = 0 to links.length - 1
　　set e = external.menuArguments.document.createElement("<A HREF='"+links(i).Movie+"'></A>")
　　params(i*2 + 1) = e.href
　　params(i*2 + 2) = "FlashMovie" & (i+1)

　　e = null
　　next
　　JetCarCatch.AddUrlList params
　　end if
　　</script>

网管下载dl.bitscn.com