求教如何使用FlashGet的JetCar.Netscape组件中的AddUrlEx接口
uno 2005-04-13 02:03:07 前三个参数和jc_link.htm已经使用的AddUrl一样:
pUrl——地址
pInfo——备注
pReferer——相关引用页
第四个也好办:
pSaveTo——保存路径
就是最后一个……:
uFlags
我随便填0、1、-1都报错
我已经修改了原来的jc_link.htm:
Sub AddLink(Url,Info)
Call AddLinkEx(Url, Info, "D:\share", 0) rem 路径是测试用随便取的
end sub
Sub AddLinkEx(Url, Info, SaveTo, Flag)
set JetCarCatch=CreateObject("JetCar.Netscape") rem 创建COM对象实例
if err<>0 then
MsgBox("FlashGet not properly installed!"+ vbCrLf+"Please install FlashGet again")
else
Call JetCarCatch.AddUrl(Url, Info, external.menuArguments.document.Url) rem 这是原来的版本,就是下载网页中鼠标右击所指向的目标
rem Call JetCarCatch.AddUrlEx(Url, Info, external.menuArguments.document.Url, SaveTo, Flag) rem 这是我添加的,想测试一下AddUrlEx接口,如果可以,我就自己做个提示用户保存路径的界面了,flashget的目录管理还不够方便直观
if (err<>0) then MsgBox(err.Description)
end if
end sub