迅雷api接口

迅雷,_api_接口迅雷5,6-api-接口其中用到了AddTask这个方法，这个方法的参数如下：AddTask("下载地址","另存文件名","保存目录","任务注释","引用地址","开始模式","只从原始地址下载","从原始地址下载线程数")。参数名含义pURL目标URL，必须参数pFileName另存名称，默认为空，表示由迅雷处理，可选参数pPath存储目录，默认为空，表示由迅雷处理，可选参数pComments下载注释，默认为空，可选参数pReferURL引用页URL，默认为空，可选参数nStartMode开始模式，0手工开始，1立即开始，默认为-1，表示由迅雷处理，可选参数nOnlyFromOrigin是否只从原始URL下载，1只从原始URL下载，0多资源下载，默认为0，可选参数nOriginThreadCount原始地址下载线程数，范围1-10，默认为-1，表示由迅雷处理，可选参数PublicFunction迅雷下载(网址AsString,Optional保存路径AsString,Optional另存为文件名AsString,Optional下载注释AsString,Optional引用页AsString,Optional开始模式AsLong=1,Optional否只从原始网址下载AsBoolean=False,Optional原始地址下载线程数AsLong=5)AsBooleanOnErrorGoToErrDimThunderAgent'nStartMode开始模式，0手工开始，1立即开始，默认为-1，表示由迅雷处理，可选参数'nOnlyFromOrigin是否只从原始URL下载，1只从原始URL下载，0多资源下载，默认为0，可选参数'nOriginThreadCount原始地址下载线程数，范围1-10，默认为-1，表示由迅雷处理，可选参数SetThunderAgent=CreateObject("ThunderAgent.Agent.1")IfThunderAgentIsNothingThenGoToErrCallThunderAgent.AddTask(网址,另存为文件名,保存路径,下载注释,引用页,开始模式,否只从原始网址下载,原始地址下载线程数)CallThunderAgent.CommitTasks2(1)SetThunderAgent=Nothing迅雷下载=TrueExitFunctionErr:迅雷下载=FalseEndFunctionCall迅雷下载(":\","index.html",")首先确保电脑已经安装讯雷,打开VS.NET点击菜单:项目->添加引用->COM->添加对ThunderAgent1.0TypeLibrary的引用1.创建讯雷调用对象PrivateThunderEngAsNewTHUNDERAGENTLib.Agent'创建讯雷调用对象ThunderEng.AddTask("下载地址","另存文件名","保存目录","任务注释","引用地址","开始模式","只从原始地址下载","从原始地址下载线程数")'添加下载任务ThunderEng.CommitTasks()'提交下载任务2.使用讯雷调用对象查询下载任务信息sFileSize=ThunderEng.GetTaskInfo(txtURL.Text,"FileSize")'获取下载文件大小sDownedSize=ThunderEng.GetTaskInfo(txtURL.Text,"CompletedSize")'获取已完成大小sFileName=ThunderEng.GetTaskInfo(txtURL.Text,"FileName")'获取文件名二、迅雷平台接口函数定义获得信息1.BSTRGetInfo(BSTRpInfoName)功能：获得迅雷或平台相关信息参数：参数名含义pInfoName信息名称，有如下4种。“ThunderExists”：迅雷是否存在。“ThunderRunning”：迅雷是否运行。“ThunderVersion”：迅雷版本号。“PlatformVersion”：平台版本号返回值：返回值是字符串与参数pInfoName有对应关系参数返回值“ThunderExists”“true”存在，“false”不存在“ThunderRunning”“true”运行中，“false”未运行“ThunderVersion”迅雷版本号“x.x.x.x”“PlatformVersion”平台版本号“x.x.x.x”2.HRESULTGetInfoStruct(INTpInfo)功能：获取迅雷或平台相关全部信息参数：参数名含义pInfo其实是THUNDER_INFO类型的结构指针，调用前把它转换为INT类型；调用后结构中将填充平台信息，定义如下：typedefstruct_THUNDER_INFO{BOOLbThunderExists;BOOLbThunderRunning;CHARszThunderVersion[32];CHARszPlatformVersion[32];}THUNDER_INFO;函数调用后，结构中将填充相应的信息。返回值：0获取成功非0获取失败任务操作3.加入任务HRESULTAddTask(BSTRpURL,BSTRpFileName="",BSTRpPath="",BSTRpComments="",BSTRpReferURL="",INTnStartMode=-1,INTnOnlyFromOrigin=0,INTnOriginThreadCount=-1);功能：往平台加入下载任务信息，此时尚未体现到迅雷中参数：参数名含义pURL目标URL，必须参数pFileName另存名称，默认为空，表示由迅雷处理，可选参数pPath存储目录，默认为空，表示由迅雷处理，可选参数pComments下载注释，默认为空，可选参数pReferURL引用页URL，默认为空，可选参数nStartMode开始模式，0手工开始，1立即开始，默认为-1，表示由迅雷处理，可选参数nOnlyFromOrigin是否只从原始URL下载，1只从原始URL下载，0多资源下载，默认为0，可选参数nOriginThreadCount原始地址下载线程数，范围1-10，默认为-1，表示由迅雷处理，可选参数4.开始任务HRESULTCommitTaskss()功能：把AddTask所加入的下载任务信息真正提交到迅雷中进行下载，并从平台中删除注意：如果AddTask添加的任务没有被提交没有被取消（调用CancelTasks），则Agent对象析构时会阻塞，所以调用者不应该残留一些没有被提交或者取消的任务，以避免脚本执行者停止响应。5.取消任务HRESULTCancelTasks()功能：取消平台中所有由AddTask所加入的下载任务信息6.查询任务信息BSTRGetTaskInfo(BSTRpURL,BSTRpInfoName);参数：参数名含义pURL所要查询的下载URL信息pInfoName状态名称，有如下几种。“Exists”：pURL是否在迅雷的任务列表。“Path”：存储目录。“FileName”：文件名称。“FileSize”：文件大小。“CompletedSize”：已下载大小。“Percent”：下载进度。“Status”：任务状态返回值：返回值是字符串与参数pInfoName有对应关系参数返回值“Exists””true”存在，”false”不存在“Path”存储目录，最后带反斜线\，例：C:\TDDownload\“FileName”文件名称“FileSize”文件大小，以字节为单位，0表示大小未知“CompletedSize”已下载大小，以字节为单位“Percent”下载进度，带1位小数，例：70.0“Status”任务状态，有以下6种状态。“running”：运行状态。“stopped”：停止状态。“failed”：失败状态。“success”：成功状态。“creatingfile”：正在创建数据文件。“connecting”：正在连接7.GetTaskInfoStruct(INTpTaskInfo)功能：查询一个任务的所有信息参数名含义pTaskInfo其实是THUNDER_TASKINFO类型的结构指针，调用前把它转换为INT类型；调用后结构中将填充平台信息，定义如下：typedefstruct_THUNDER_TASKINFO{CHARszURL[1024];//任务URL，预先填充BOOLbTaskExists;//任务是否存在，TRUE为存在CHARszPath[256];//下载的本地保存路径CHARszFileName[256];//本地文件名ULONGLONGnFileSize;//文件大小ULONGLONGnCompletedSize;//已完成的大小CHARszPercent[16];//完成的百分数，用“56.8”的格式CHARszStatus[16];//当前状态，定义同GetTaskInfo函数}THUNDER_TASKINFO;调用者先填充结构中的szURL成员，来指定需要查询的任务的URL，然后等函数返回后就可以从其他成员中取得该任务的信息。本例所有代码ImportsSystemImportsSystem.TextPublicClassfrmThunderClassfrmThunderPrivate_iStartModeAsInteger'讯雷任务下载开始模式PrivateThunderEngAsNewTHUNDERAGENTLib.Agent'创建讯雷调用对象PrivateSubfrmThunder_Load()SubfrmThunder_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadEndSubPrivateSubbtnCancel_Click()SubbtnCancel_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesbtnCancel.ClickClose()EndSub'开始下载任务PrivateSubbtnStartDown_Click()SubbtnStartDown_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesbtnStartDown.ClickDimiOnlyFromOrigin,iOriginThreadCountAsIntegeriOnlyFromOrigin=IIf(chkOnlyFromOrigin.Checked=True,1,0)iOriginThreadCount=CInt(txtOriginThreadCounts.Text)IfchkDefault.CheckedTheniOriginThreadC