在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这个对象来添加项目;
