求教如何使用FlashGet的JetCar.Netscape组件中的AddUrlEx接口

2005-04-13 02:03:07 183 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

物料主数据管理难在哪？基于AI算法的数据清洗工具了解一下企企通打造的一套以AI模型和算法为核心的产品及服务，可针对各类企业的不同主数据痛点难点，提供多种解决方案，能够快速完成物料主数据清洗、识别、匹配、梳理，满足一物一码、分类梳理、一品多商、多维度比价、精准寻源选品、建立标准物料库、供应商及客户主数据清洗等业务场景需求。随着AI技术的快速发展，智能算法在数据清洗领域的应用越来越广泛，越来越多的数据清洗工作已经开始交由智能算法完成，通过自动化的方式处理大量数据，识别和纠正错误，填补缺失值，检测异常值，以及执行其他数据预处理任务，并提高效率并减少人为错误。阅读详情

前三个参数和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

...全文