迅雷api 使用

?其实C++调用一样的 1.首先导入DLL 添加引用 -> COM -> ThunderAgent 1.0 Type Library(前提是已安装迅雷)或者C:\Program Files\Thunder Network\Thunder\ComDlls\ThunderAgent_Now.dll(路径可能有所不同)

2.代码: THUNDERAGENTLib.AgentClass agent = new THUNDERAGENTLib.AgentClass();//创建对象

    //添加任务:下载http://www.baidu.com/index.html这个文件至C:\baidu.html, //没有注释,没有引用,立即开始,从多资源下载,原始资源线程5

agent.AddTask(“http://www.baidu.com/index.html”, “index.html”, “C:\\”, “”, “”, 1, 0, 5);

agent.CommitTasks2(1);//提交

3.修改迅雷配置此时代码部分完成,但是运行的时候会弹出窗口确认下载。如果想跳过这个窗口,需要在迅雷里面配置:工具》配置》高级》通过IE右键菜单“使用迅雷下载”添加任务,将这项去掉就可以了附:

方法详细说明 void AddTask(string pURL, string pFileName, string pPath, string pComments, string pReferURL, int nStartMode, int nOnlyFromOrigin, intnOriginThreadCount);

参数名 含义

pURL 目标URL,必须参数

pFileName 另存名称,默认为空,表示由迅雷处理,

 

可选参数 pPath 存储目录,默认为空,表示由迅雷处理,可选参数 pComments 下载注释,默认为空,

可选参数

pReferURL 引用页URL,默认为空,

可选参数 nStartMode 开始模式,0手工开始,1立即开始,默认为-1,

表示由迅雷处理,可选参数 nOnlyFromOrigin 是否只从原始URL下载,1只从原始URL下载,0多资源下载,默认为0,可选参数 nOriginThreadCount 原始地址下载线程数,范围1-10,默认为-1,表示由迅雷处理,可选参数三、迅雷的开发文档 获得信息 1. BSTR GetInfo(BSTR pInfoName) 功能:获得迅雷或平台相关信息参数:参数名含义pInfoName信息名称,有如下4种◆“ThunderExists”:迅雷是否存在 ◆“ThunderRunning”:迅雷是否运行◆“ThunderVersion”:迅雷版本号◆“PlatformVersion”:平台版本号返回值:返回值是字符串与参数pInfoName有对应关系参数返回值“ThunderExists” “true”存在,“false”不存在 “ThunderRunning” “true” 运行中, “false”未运行 “ThunderVersion” 迅雷版本号 “x.x.x.x” “PlatformVersion” 平台版本号 “x.x.x.x” 2. HRESULT GetInfoStruct(INT pInfo) 功能:获取迅雷或平台相关全部信息参数: 参数名含义 pInfo 其实是THUNDER_INFO类型的结构指针,调用前把它转换为INT类型;调用后结构中将填充平台信息,定义如下: typedef struct _THUNDER_INFO { BOOL bThunderExists; BOOL bThunderRunning; CHAR szThunderVersion[32]; CHAR szPlatformVersion[32]; } THUNDER_INFO; 函数调用后,结构中将填充相应的信息。返回值: 0 获取成功非0 获取失败任务操作 3. 加入任务 HRESULT AddTask (BSTR pURL, BSTR pFileName = “”, BSTR pPath = “”, BSTR pComments = “”, BSTR pReferURL = “”, INT nStartMode = -1, INT nOnlyFromOrigin = 0, INT nOriginThreadCount = -1); 功能:往平台加入下载任务信息,此时尚未体现到迅雷中参数: 参数名含义 pURL 目标URL,必须参数 pFileName 另存名称,默认为空,表示由迅雷处理,可选参数 pPath 存储目录,默认为空,表示由迅雷处理,可选参数 pComments 下载注释,默认为空,可选参数 pReferURL 引用页URL,默认为空,可选参数 nStartMode 开始模式,0手工开始,1立即开始,默认为-1,表示由迅雷处理,可选参数 nOnlyFromOrigin 是否只从原始URL下载,1只从原始URL下载,0多资源下载,默认为0,可选参数 nOriginThreadCount 原始地址下载线程数,范围1-10,默认为-1,表示由迅雷处理,可选参数 4. 开始任务 HRESULT CommitTaskss() 功能:把AddTask所加入的下载任务信息真正提交到迅雷中进行下载,并从平台中删除注意:如果AddTask添加的任务没有被提交没有被取消(调用CancelTasks),则Agent对象析构时会阻塞,所以调用者不应该残留一些没有被提交或者取消的任务,以避免脚本执行者停止响应。 5. 取消任务 HRESULT CancelTasks() 功能:取消平台中所有由AddTask所加入的下载任务信息 6. 查询任务信息 BSTR GetTaskInfo(BSTR pURL,BSTR pInfoName); 参数: 参数名含义 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(INT pTaskInfo) 功能:查询一个任务的所有信息 参数名含义 pTaskInfo 其实是THUNDER_TASKINFO类型的结构指针,调用前把它转换为INT类型;调用后结构中将填充平台信息,定义如下: typedef struct _THUNDER_TASKINFO { CHAR szURL[1024]; // 任务URL,预先填充 BOOL bTaskExists; // 任务是否存在,TRUE为存在 CHAR szPath[256]; // 下载的本地保存路径 CHAR szFileName[256]; // 本地文件名 ULONGLONG nFileSize; // 文件大小 ULONGLONG nCompletedSize; // 已完成的大小 CHAR szPercent[16]; // 完成的百分数,用 “56.8”的格式 CHAR szStatus[16]; // 当前状态,定义同GetTaskInfo函数 } THUNDER_TASKINFO; 调用者先填充结构中的szURL成员,来指定需要查询的任务的URL,然后等函数返回后就可以从其他成员中取得该任务的信息。使用C#调用旋风快车和迅雷下载文件如下所示: public static void DownloadByQQ(string url) { Type qqdown;//类型 object qqdowobj;//一个对象 object[] parameter = new object[6];//参数,因为我们调用的方法有6和参数。 所以定义了6个 if (url != null && url.Length >0) { qqdown = Type.GetTypeFromProgID(“QQIEHelper.QQRightClick.2〃);//从progid创建类型 qqdowobj = Activator.CreateInstance(qqdown);//然后创建实例 parameter[0] = url;//第一个参数是url parameter[1] = url ;//第二个参数是引用url,这里我们填成一样的 parameter[2] = “www.mp3114.cn”;//注释信息 parameter[3] = null; parameter[4] = 0; parameter[5] = null; qqdown.InvokeMember(“sendUrl2〃, BindingFlags.InvokeMethod, null, qqdowobj, parameter);//使用invokemember调用方法 //BindingFlags 中有很多枚举,分别是用于调用方法或者属性的设置 获取等绑定标记。 你可以参考一下msdn } } //看到这里你也许已经明白如何做了。 如果还不明白呢。 接着看一遍。 或者把代码贴到程序里单步调试一遍就自然明白啦。 public static void DownloadByThunder(string url) { Type ThunderAgent;// = new ActiveXObject(“ThunderAgent.Agent”); object objThunderAgent; object[] parameter = new object[14]; if (url != null && url.Length > 0) { ThunderAgent = Type.GetTypeFromProgID(“ThunderAgent.Agent”); objThunderAgent = Activator.CreateInstance(ThunderAgent); parameter[0] = url; parameter[1] = “”; parameter[2] = “”; parameter[3] = “www.mp3114.cn”; parameter[4] = url ; parameter[5] = -1; parameter[6] = 0; parameter[7] = -1; parameter[8] = “”;//strCookie parameter[9] = “”; parameter[10] = “”; parameter[11] = 1; parameter[12] = “”; parameter[13] = -1; ThunderAgent.InvokeMember(“AddTask5〃, BindingFlags.InvokeMethod, null, objThunderAgent, parameter); // ThunderAgent.AddTask5(Url, “”, “”, Info, Location, -1, 0, -1, strCookie, “”, “”, 1, “”, -1); object[] parm = new object[1]; parm[0] = 1; ThunderAgent.InvokeMember(“CommitTasks2〃, BindingFlags.InvokeMethod, null, objThunderAgent, parm); } } public static void DownloadByFlashGet(string url) { Type FlashGet; object objFlashGet; object[] parameter = new object[5]; if (url != null && url.Length > 0) { FlashGet = Type.GetTypeFromProgID(“BHO.IFlashGetNetscapeEx”); objFlashGet = Activator.CreateInstance(FlashGet); parameter[0] = url; parameter[1] = “www.mp3114.cn”; parameter[2] = url; parameter[3] = “FlashGet”; parameter[4] = 0; FlashGet.InvokeMember(“AddUrlEx”, BindingFlags.InvokeMethod, null, objFlashGet, parameter); } } ======================================================================================================\ 迅雷API 这个实现起来很容易,不过有一个问题,就是每添加个任务,迅雷的对话框就要弹出一次,很是不方便。 趁小锋睡觉的时候,我尝试了一下,去掉了对话框,方法如下: 首先就是脚本了,各种语言写法不同,我这里提供用vbs写的: Set ThunderAgent = CreateObject("ThunderAgent.Agent.1") Call ThunderAgent.AddTask("http://www.jb51.net/files/bjhyn.mp3","北京欢迎你.mp3","c:\a\","","http://www.readlog.cn",1,0,5) Call ThunderAgent.CommitTasks2(1) Call ThunderAgent.AddTask("http://file.fzone.cn/upload2/hompyFile/2007/28/921524670987.wma","放羊的星星.wma","c:\a\b\c\","","http://www.jb51.net",1,0,5) Call ThunderAgent.CommitTasks2(1) Set ThunderAgent = Nothing 然后就是启动迅雷了,进入工具--配置--高级,把 通过IE右键菜单 “使用迅雷下载”添加任务 这个选项前面的勾去掉。 保持迅雷开启状态,这时候执行上面的脚本,就不会出现那个确认添加任务的对话框了。 附:其中用到了AddTask这个方法,这个方法的参数如下:AddTask("下载地址", "另存文件名", "保存目录","任务注释","引用地址","开始模式", "只从原始地址下载","从原始地址下载线程数") 。 参数名含义 pURL目标URL,必须参数 pFileName另存名称,默认为空,表示由迅雷处理,可选参数 pPath存储目录,默认为空,表示由迅雷处理,可选参数 pComments下载注释,默认为空,可选参数 pReferURL引用页URL,默认为空,可选参数 nStartMode开始模式,0手工开始,1立即开始,默认为-1,表示由迅雷处理,可选参数 nOnlyFromOrigin是否只从原始URL下载,1只从原始URL下载,0多资源下载,默认为0,可选参数 nOriginThreadCount原始地址下载线程数,范围1-10,默认为-1,表示由迅雷处理,可选参数 __________________________________________________________________ 迅雷API接口2 附:其中用到了AddTask这个方法,这个方法的参数如下:AddTask("下载地址", "另存文件名", "保存目录","任务注释","引用地址","开始模式", "只从原始地址下载","从原始地址下载线程数") 。 参数名含义 pURL目标URL,必须参数 pFileName另存名称,默认为空,表示由迅雷处理,可选参数 pPath存储目录,默认为空,表示由迅雷处理,可选参数 pComments下载注释,默认为空,可选参数 pReferURL引用页URL,默认为空,可选参数 nStartMode开始模式,0手工开始,1立即开始,默认为-1,表示由迅雷处理,可选参数 nOnlyFromOrigin是否只从原始URL下载,1只从原始URL下载,0多资源下载,默认为0,可选参数 nOriginThreadCount原始地址下载线程数,范围1-10,默认为-1,表示由迅雷处理,可选参数 Public Function 迅雷下载(网址 As String, Optional 保存路径 As String, Optional 另存为文件名 As String, Optional 下载注释 As String, Optional 引用页 As String, Optional 开始模式 As Long = 1, Optional 否只从原始网址下载 As Boolean = False, Optional 原始地址下载线程数 As Long = 5) As Boolean On Error GoTo Err Dim ThunderAgent 'nStartMode开始模式,0手工开始,1立即开始,默认为-1,表示由迅雷处理,可选参数 'nOnlyFromOrigin是否只从原始URL下载,1只从原始URL下载,0多资源下载,默认为0,可选参数 'nOriginThreadCount原始地址下载线程数,范围1-10,默认为-1,表示由迅雷处理,可选参数 Set ThunderAgent = CreateObject("ThunderAgent.Agent.1") If ThunderAgent Is Nothing Then GoTo Err Call ThunderAgent.AddTask(网址, 另存为文件名, 保存路径, 下载注释, 引用页, 开始模式, 否只从原始网址下载, 原始地址下载线程数) Call ThunderAgent.CommitTasks2(1) Set ThunderAgent = Nothing 迅雷下载 = True Exit Function Err: 迅雷下载 = False End Function Call 迅雷下载("http://www.baidu.com/index.html", "c:\", "index.html", "http://www.baidu.com") 首先确保电脑已经安装讯雷,打开VS.NET 点击菜单:项目->添加引用->COM->添加对ThunderAgent 1.0 Type Library的引用   1.创建讯雷调用对象 Private ThunderEng As New THUNDERAGENTLib.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. BSTR GetInfo(BSTR pInfoName)   功能:获得迅雷或平台相关信息   参数: 参数名 含义 pInfoName 信息名称,有如下4种 。“ThunderExists”:迅雷是否存在 。“ThunderRunning”:迅雷是否运行 。“ThunderVersion”:迅雷版本号 。“PlatformVersion”:平台版本号   返回值:返回值是字符串与参数pInfoName有对应关系 参数 返回值 “ThunderExists” “true”存在,“false”不存在 “ThunderRunning” “true” 运行中, “false”未运行 “ThunderVersion” 迅雷版本号 “x.x.x.x” “PlatformVersion” 平台版本号 “x.x.x.x”   2. HRESULT GetInfoStruct(INT pInfo)   功能:获取迅雷或平台相关全部信息   参数: 参数名 含义 pInfo 其实是THUNDER_INFO类型的结构指针,调用前把它转换为INT类型;调用后结构中将填充平台信息 ,定义如下: typedef struct _THUNDER_INFO { BOOL bThunderExists; BOOL bThunderRunning; CHAR szThunderVersion[32]; CHAR szPlatformVersion[32]; } THUNDER_INFO; 函数调用后,结构中将填充相应的信息。   返回值: 0 获取成功 非0 获取失败 任务操作   3. 加入任务 HRESULT AddTask (BSTR pURL, BSTR pFileName = "", BSTR pPath = "", BSTR pComments = "", BSTR pReferURL = "", INT nStartMode = -1, INT nOnlyFromOrigin = 0, INT nOriginThreadCount = -1);   功能:   往平台加入下载任务信息,此时尚未体现到迅雷中   参数: 参数名 含义 pURL 目标URL,必须参数 pFileName 另存名称,默认为空,表示由迅雷处理,可选参数 pPath 存储目录,默认为空,表示由迅雷处理,可选参数 pComments 下载注释,默认为空,可选参数 pReferURL 引用页URL,默认为空,可选参数 nStartMode 开始模式,0手工开始,1立即开始,默认为-1,表示由迅雷处理,可选参数 nOnlyFromOrigin 是否只从原始URL下载,1只从原始URL下载,0多资源下载,默认为0,可选参数 nOriginThreadCount 原始地址下载线程数,范围1-10,默认为-1,表示由迅雷处理,可选参数   4. 开始任务   HRESULT CommitTaskss()   功能:   把AddTask所加入的下载任务信息真正提交到迅雷中进行下载,并从平台中删除   注意:如果AddTask添加的任务没有被提交没有被取消(调用CancelTasks),则Agent对象析构时会 阻塞,所以调用者不应该残留一些没有被提交或者取消的任务,以避免脚本执行者停止响应。   5. 取消任务   HRESULT CancelTasks()   功能:   取消平台中所有由AddTask所加入的下载任务信息   6. 查询任务信息   BSTR GetTaskInfo(BSTR pURL,BSTR pInfoName);   参数: 参数名 含义 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(INT pTaskInfo)   功能:查询一个任务的所有信息 参数名 含义 pTaskInfo 其实是THUNDER_TASKINFO类型的结构指针,调用前把它转换为INT类型;调用后结构中将填充 平台信息,定义如下: typedef struct _THUNDER_TASKINFO { CHAR szURL[1024]; // 任务URL,预先填充 BOOL bTaskExists; // 任务是否存在,TRUE为存在 CHAR szPath[256]; // 下载的本地保存路径 CHAR szFileName[256]; // 本地文件名 ULONGLONG nFileSize; // 文件大小 ULONGLONG nCompletedSize; // 已完成的大小 CHAR szPercent[16]; // 完成的百分数,用 “56.8”的格式 CHAR szStatus[16]; // 当前状态,定义同GetTaskInfo函数 } THUNDER_TASKINFO; 调用者先填充结构中的szURL成员,来指定需要查询的任务的URL,然后等函数返回后就可以从其他成员中 取得该任务的信息。 本例所有代码 Imports System Imports System.Text Public Class frmThunderClass frmThunder Private _iStartMode As Integer '讯雷任务下载开始模式 Private ThunderEng As New THUNDERAGENTLib.Agent '创建讯雷调用对象 Private Sub frmThunder_Load()Sub frmThunder_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub btnCancel_Click()Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click Close() End Sub '开始下载任务 Private Sub btnStartDown_Click()Sub btnStartDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStartDown.Click Dim iOnlyFromOrigin, iOriginThreadCount As Integer iOnlyFromOrigin = IIf(chkOnlyFromOrigin.Checked = True, 1, 0) iOriginThreadCount = CInt(txtOriginThreadCounts.Text) If chkDefault.Checked Then iOriginThreadCount = -1 End If ThunderEng.AddTask(txtURL.Text, txtSaveAsFileName.Text, txtSaveDir.Text, txtComment.Text, _ txtReferencePage.Text, _iStartMode, iOnlyFromOrigin, iOriginThreadCount) ThunderEng.CommitTasks() Timer1.Enabled = True End Sub Private Sub radMaual_Click()Sub radMaual_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radMaual.Click, radImmediate.Click, radDefault.Click Dim rad As RadioButton = CType(sender, RadioButton) _iStartMode = CInt(rad.Tag) End Sub '当任务开始时定时查询任务下载信息 Private Sub Timer1_Tick()Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim sFileSize, sDownedSize, sStatus, sFileName, sPercent As String Try sStatus = ThunderEng.GetTaskInfo(txtURL.Text, "Status") sFileSize = ThunderEng.GetTaskInfo(txtURL.Text, "FileSize") sDownedSize = ThunderEng.GetTaskInfo(txtURL.Text, "CompletedSize") sFileName = ThunderEng.GetTaskInfo(txtURL.Text, "FileName") lblDownedSize.Text = String.Format(lblDownedSize.Tag, sDownedSize) lblFileSize.Text = String.Format(lblFileSize.Tag, sFileSize) lblTaskStatus.Text = String.Format(lblTaskStatus.Tag, sStatus) lblFilename.Text = String.Format(lblFilename.Tag, sFileName) sPercent = ThunderEng.GetTaskInfo(txtURL.Text, "Percent") '获取下载百分比 lblProgress.Text = String.Format(lblProgress.Tag, sPercent.Remove(3, Len(sPercent) - 3)) Catch ex As Exception End Try End Sub Private Sub chkOnlyFromOrigin_CheckedChanged_1()Sub chkOnlyFromOrigin_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkOnlyFromOrigin.CheckedChanged Panel1.Enabled = chkOnlyFromOrigin.Checked End Sub Private Sub GroupBox1_Enter()Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter End Sub End Class 进入工具--配置--高级,把 通过IE右键菜单 “使用迅雷下载”添加任务 这个选项前面的勾去掉。 保持迅雷开启状态,这时候执行上面的脚本,就不会出现那个确认添加任务的对话框了

posted @ 2012-06-16 11:28  明天的太阳  阅读(598)  评论(0编辑  收藏  举报