正 文

用FlashGet下载


www.7dspace.com  更新日期:2006-2-28 6:27:42  七度空间


在it365cn.com看到,讨巧的用法,调用FlashGet在IE中注册的组件JetCar:)

其实,即使不用该代码,只要你安装了FlashGet,下载也会自动弹出的啊。

话说回过来,方法看看学习学习。

<script language=vbs>
on error resume next
dim yexj00,wsh
set yexj00=createObject("JetCar.Netscape")
set wsh=createObject("WScript.Shell")
if err=0 then
msgbox "没有安装flashget或安装不正确;"&vbCrLf&"请先安装flashget",vbOKOnly,"flashget未被正确安装"
end if
redim params(2)
params(0)="这个条目的内容会出现在flashget引用这一栏"
params(1)="http://wma3.1ting.com/music3O09/g/144/1.Wma"
params(2)="游鸿明---第一千个昼夜"
yexj00.addUrlList params
wsh.sendKeys "{ENTER}"

</script>

set yexj00=createObject("JetCar.Netscape")------>是创建了JetCar这个IE的组件
err<>0------->即判断flashget有无安装或安装是否正确
redim params(2)--------->这里的2取的是所添加的要下载的项目总数*2; 因为这里只有一个链接,故为2;

params(0)="这个条目的内容会出现在flashget引用这一栏" //flashget的"引用"项目的内容
params(1)="http://wma3.1ting.com/music3O09/g/144/1.Wma"  //目标链接
params(2)="游鸿明---第一千个昼夜" //目标链接的备注

yexj00.addUrlList params -------->用yexj00这个对象来添加项目;


上一篇:100MB空间:Google Page Creator创建器应用图解攻略
下一篇:让人跌眼镜的Marquee用法
用FlashGet下载 作者:cnbruce 来源:blog
收藏此页】【打印】【关闭
站 内 搜 索
 

热 点 导 读
特 别 推 荐