迅雷局域网版的开发

迅雷局域网版的开发 梁欣 2009年2月19日 P2P方式的下载，为我们获取互联网资料提供了一个强有力的工具，它可以争取最大的带宽，获取最大的下载速度。最早采用P2P方式下载的工具有BT、电骡等，后来许多传统“多线程断点续传类”软件，也增加了对的支持，这些常见的有网际快车、迅雷、QQ的超级旋风等。其中迅雷最有代性，它不但支持BT和电骡，还率先使用了P2SP(Peer to Server&Peer 点对服务器和点对服务器和用户)、超线程等技术，因此具备了资源丰富、下载速度快速等特性。 对于个人家庭用户，使用迅雷可以最大化利用带宽，但这种方式在局域网环境下就严重影响其他用户了。迅雷在全速运行时，可以抢占出口带宽，导致其他用户网速奇慢，甚至简单的上网浏览都无法正常使用，这使得网管头痛不已。 针对此问，迅雷公司推出了“网吧版迅雷”，试图解决此项问题。但经过笔者使用，发现实际并不理想。 网吧版迅雷，分为服务端与客户端，使用服务端来控制客户端的下载流量，进而实现对迅雷抢占带宽的控制。客户端在安装后，以前的迅雷普通版就不能运行了，会有“管理员限制”提示。但是通过研究发现，这个功能就是在系统启动时加载了一个XLLoad.exe程序，实现对普通版迅雷的控制，因此只要在进程中结束改程序，以前的迅雷就可以启动了，如果使用简单的MSConfig工具，限制其运行，可以理解网吧版迅雷就不起任何作用了。 客户端迅雷接受服务端下载速度的限制，只是通过简单的数据传递，并不是由服务端代理下载，还是需要客户端自己搜索种子进行下载的。因此，如果路由器对客户机限制了相应的资源服务器IP以及下载需要的端口，客户机是无法正常进行下载的。 因此笔者认为，网吧版迅雷只适合网吧环境，或者说适合对客户端有严格控制的环境，如网吧、电子阅览室、学生机房等等，而且路由器不能做任何IP、端口的限制。因为这些环境下，客户机都会有系统还原机制，即便是客户端迅雷被卸载掉，系统重启后，又会恢复原来的控制状态。 为此，笔者思考，能否开发一个真正适合局域网环境下的迅雷呢,既保证网络带宽不会被无休止的抢占，又能让用户进行必要的，受控的下载呢,局域网的 路由器限制了迅雷资源服务器IP、通讯用的端口，这时客户端使用迅雷只能从源地址下载，我们希望有网络中的一台服务器，代理客户进行下载，而且下载速度又是可控的。具体思路如下: 1、路由器上进行针对客户机的必要的限制(黑名单限制IP、白名单开启迅雷以外端口) 2、服务器安装IIS，使其支持ASP和Access数据库。 3、服务器安装单机版迅雷，并限制好合理的下载/上传速率，注意要使用老版本(后面会有)。 4、客户端能够通过IE访问服务器的Web页面，实习任务提交。 5、客户机IE安装右键提交任务功能，比如叫“使用局域网迅雷下载”。 使用时，客户机通过服务器页面登陆，打开“狗狗”搜索器或者直接在迅雷页面中输入关键词。找到连接后，使用鼠标右键的“使用局域网迅雷下载”，进入任务添加页面，确认后，此记录添加到数据库，并使得服务端的迅雷接受任务，开始下载。 在Web页面中，会显示当前各个任务的下载情况，完成后提供服务上文件的下载链接。实现这些基础应用后，我们还可以添加其它功能，如:已下载列表，方便其他用户直接在局域网内下载，避免占用互联网出口带宽，也节省时间;开启用户任务总数或者字节总数限制，合理分配内网用户对互联网带宽的占用;监控每个用户下载文件类型，方便内部管理;控制迅雷的带宽占用限制，在网络不繁忙时(下班后、晚上)让迅雷全速运行。 实现以上的应用，开发的重点就是利用迅雷提供API接口，这个接口一COM组件，其最主要的功能就是实现在IE中，使用鼠标右键添加任务至迅雷。不过其组件还有其它丰富的功能，这位我们进行二次开发，提供了可能。 组件名称:ThunderAgent 文件路径: C:\Program Files\Thunder Network\Thunder\ComDlls\ThunderAgent_now.dll 注册:安装迅雷时自动注册 开发环境:VB6、VS2005、ASP等 接口函数: 一、返回组件信息 函数名:GetInfo( ) 格式:组件对象名. GetInfo(pInfoName) 说明:返回值为对应pInfoName的字符串信息。 pInfoName值 含义 返回值格式 “ThunderExists” 迅雷是否存在 “true”/“false” “ThunderRunning” 迅雷是否运行 “true”/“false” “ThunderVersion” 迅雷版本号 “x.x.x.x” “PlatformVersion” 组件版本号 “x.x.x.x” 二、加入任务 函数名:AddTask( ) 格式:组件对象名.AddTask("pURL ", " pFileName ", " pPath "," pComments "," pReferURL "," nStartMode ", " nOnlyFromOrigin "," nOriginThreadCount ") 说明:参数均为字符型，含义如下表 参数名 含义 pURL 目标URL，必须参数 pFileName 另存名称，默认为空，表示由迅雷处理，可 选参数 pPath 存储，默认为空，表示由迅雷处理，可 选参数 pComments 下载注释，默认为空，可选参数 pReferURL 引用页URL，默认为空，可选参数 nStartMode 开始模式，0手工开始，1立即开始，默认为 -1，表示由迅雷处理，可选参数 nOnlyFromOrigin 是否只从原始URL下载，1只从原始URL下 载，0多资源下载，默认为0，可选参数 nOriginThreadCount 原始地址下载线程数，范围1-10，默认为-1， 表示由迅雷处理，可选参数 三、提交任务 函数名:CommitTasks( ) 格式:组件对象名.CommitTasks( ) 说明:把AddTask所加入的下载任务信息真正提交到迅雷中。当此语句运行 后，默认情况下迅雷会出现一个添加任务的确认对话框，为了实现服 务端无人职守运行，因此可以在迅雷中做如下设置:工具?配置?高 级，把“通过IE右键菜单 使用迅雷下载 添加任务”选项前面的勾去 掉。然后在程序中使用“异步提交”方式任务提交，具体命令为:组 件对象名.CommitTasks2(1) 四、查询任务信息 函数名:GetTaskInfo( ) 格式:组件对象名. GetTaskInfo(pURL, pInfoName) 说明:pURL表示所要查询任务的URL地址，pInfoName参数见下表 参数名 含义 “Exists” 是否在迅雷的任务列表 “Path” 存储目录 “FileName” 文件名称 “FileSize” 文件大小 “CompletedSize” 已下载大 “Percent” 下载进度 “Status” 任务状态 返回值: 参数 返回值 “Exists” “true”存在，“false”不存在 存储目录，最后带反斜线\ “Path” 例:C:\TDDownload\ “FileName” 文件名称 文件大小，以字节为单位 “FileSize” 0表示大小未知 “CompletedSize” 已下载大小，以字节为单位 “Percent” 下载进度，带1位小数，例:70.0 任务状态，有以下6种状态 “running” 运行 “stopped” 停止 “failed” 失败 “Status” “success” 成功态 “creatingfile” 正在创建文件 “connecting” 正在连接 五、例子 1、查询迅雷是否存在(VB6) Private Sub Form_Load() Set ThunderAgent = CreateObject("ThunderAgent.Agent.1") MsgBox ThunderAgent.GetInfo("ThunderExists") Set ThunderAgent = Nothing End Sub 2、添加下载任务VB.net Imports System Imports System.Text Public Class frmThunderClass Private _iStartMode As Integer '讯雷任务下载开始模式 '创建讯雷调用对象 Private ThunderEng As New THUNDERAGENTLib.Agent '开始下载任务 Private Sub Button1_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() End Sub End Class 3、显示下载信息 VB.net 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") 4、获取迅雷组件信息 ASP <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Set ThunderAgent = CreateObject("ThunderAgent.Agent.1") Response.Write("迅雷安装状态:") Response.Write(ThunderAgent.GetInfo("ThunderExists")) Response.Write("

") Response.Write("迅雷是运行状态:") Response.Write(ThunderAgent.GetInfo("ThunderRunning")) Response.Write("

") Response.Write("迅雷版本号:") Response.Write(ThunderAgent.GetInfo("ThunderVersion")) Response.Write("

") Response.Write("组件版本号:") Response.Write(ThunderAgent.GetInfo("PlatformVersion")) Response.Write("

") Set ThunderAgent = Nothing %> 此外IE鼠标右键需要有获取任务URL的功能，具体做法是修改注册表: 在注册表的 HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt项 下建立一个新项，名称可以写“实用局域网迅雷下载”，这就是将来在IE右 键快捷菜单中显示的。将新建项的默认值设定为一个URL地址，当用户点击菜 单项后，IE就会调用URL指向的页面中的脚本，如: 上面的例子是调用NetSamp.NetAPI组件，实现URL的传递。这里可以修改为将URL 传递给添加任务的页面，实现写入数据库和调用迅雷组件添加任务的目的。 利用ASP脚本可以再添加注册、登陆等页面就基本完善了。 未完待续 2009年2月19日