博客屋首页     新版     你还没有登录,请先登录     图书城网上书店
注 册   |   登 录

FlashGet 实现右键下载 Flash 动画

推荐     收藏
沈菡05 @ 2007-11-14 03:54:35
 

FlashGet 实现右键下载 Flash 动画(转载)
 

  通常我们在网上浏览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的接口

  具体内容如下:

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



 

类别:按内容自动归类   225次浏览   2篇评论
相关文章:

网友评论:
心雨
心雨 @ 2007-11-16 07:28:22 评论
收藏!
作者回复:
梦竹
梦竹 @ 2007-11-14 13:00:28 评论
我收藏了.
作者回复:

发表评论前请先快速注册或者登录博客屋     (为了减少广告留言,暂时不允许匿名评论)
马上注册并发表评论
沈菡05个人档案
沈菡05 发站内短信  加为我的朋友
生日: 1941-11-21 (性别: 男)
来自于: 陕西
    更多资料