JS调用FlashGet下载

打开窗口直接打开FLASHGET下载

-HTML

<script language=vbs>
on error resume next
dim yexj00
set yexj00=createObject("JetCar.Netscape")
if err<>0 then
msgbox "没有安装flashget或安装不正确;"&vbCrLf&"请先安装flashget",vbOKOnly,"flashget未被正确安装"
end if
redim params(2)
params(0)="这个条目的内容会出现在flashget引用这一栏"
params(1)="http://www.kekecn.com/kekesys/20041230KeKecpfbsystemV1.3free.rar"
params(2)="KeKe产品发布系统"
yexj00.addUrlList params

</script> 

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

params(0)="这个条目的内容会出现在flashget引用这一栏" //flashget的"引用"项目的内容
params(1)="http://www.kekecn.com/kekesys/20041230KeKecpfbsystemV1.3free.rar" //目标链接
params(2)="KeKe产品发布系统" //目标链接的备注

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

点击连接后打开FLASHGET下载

-HTML

<style>
:visited,:link{ text-decoration:none; color:navy}
:hover{ text-decoration: black}
body{ font-size:14px}
</style> 
<script language=vbs>
sub test()
on error resume next
dim yexj00
set yexj00=createObject("JetCar.Netscape")
if err<>0 then
msgbox "没有安装flashget或安装不正确;"&vbCrLf&"请先安装flashget",vbOKOnly,"flashget未被正确安装"
end if
redim params(2)
params(0)=ye.source
params(1)="http://www.kekecn.com/kekesys/20041230KeKecpfbsystemV1.3free.rar"
params(2)=ye.mark
yexj00.addUrlList params
end sub
</script> 
<a href=# onclick="test()" source="引用的内容" mark="KeKe产品发布系统" name=ye>KeKe产品发布系统</a>

加支付宝好友偷能量挖...

2009-6-29评论(0)网络

阅读(128)喜欢(0)分类：JavaScript/Ajax开发技巧