巧用FlashGet实现网页中Flash动画下载

王朝other·作者佚名 2006-01-08

宽屏版字体: 小|中|大|超大

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

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

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

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

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

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

（1）编写接口文件

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

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

jc_link.htm是使用网际快车下载一个链接的接口

我们在此目录下扩展一个jc_flash.htm 作为我们是使用网际快车下载Flash的接口

具体内容如下：

'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

JetCarCatch.AddUrlList params

end if

</script>

（2）在右键菜单中注册

创建一个jc_flash.reg的注册表文件，内容如下：

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\使用网际快车下载本页中的Flash]

"contexts"=dword:000000f3

@="C:\\Program Files\\FlashGet\\jc_flash.htm "

其中蓝个部分请参照你自己的实际路径进行修改。

运行此文件，完成在鼠标右键中“使用网际快车下载本页中的Flash”菜单的注册。

提示：为安全起见，运行前请将自己的注册表文件进行备份。

前面工作完成后，重新启动计算机。一切OK。

连上网络，浏览一些包含有Flash动画的网页，在网页上像往常一样点右键，你会发现弹出的菜单中多了一项“使用网际快车下载本页中的Flash”，执行后便会弹出FlashGet选择下载的小窗口。其他的工作跟以前一样。

是不是比以前更方便呢？：）

测试系统环境：

Win2000 server

FlashGet(JetCar) Version 0.87

希望以上方法能够对大家有一点点用处。如有不正之处，欢迎批评指正。

------------------------------------------------------------------------------------------快乐如风----------

-----------------------------------------------------------------------------------------2003-06-08---------

-----------------------------------------------------------------------Email：Happywinds@yeah.net-----

__________________

天空中没有留下翅膀的痕迹

但是

我们骄傲

曾经飞翔过