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 |
|
“Status” |
任务状态，有以下6种状态 |
|
“running” |
运行 |
|
“stopped” |
停止 |
|
“failed” |
失败 |
|
“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"%> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>无标题文档</title> </head> <body> <% Set ThunderAgent = CreateObject("ThunderAgent.Agent.1") Response.Write("迅雷安装状态：") Response.Write(ThunderAgent.GetInfo("ThunderExists")) Response.Write("<p>") Response.Write("迅雷是运行状态：") Response.Write(ThunderAgent.GetInfo("ThunderRunning")) Response.Write("<p>") Response.Write("迅雷版本号：") Response.Write(ThunderAgent.GetInfo("ThunderVersion")) Response.Write("<p>") Response.Write("组件版本号：") Response.Write(ThunderAgent.GetInfo("PlatformVersion")) Response.Write("<p>") Set ThunderAgent = Nothing %> </body> </html> |
此外IE鼠标右键需要有获取任务URL的功能，具体做法是修改注册表：
在注册表的
HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt项
下建立一个新项，名称可以写“实用局域网迅雷下载”，这就是将来在IE右键快捷菜单中显示的。将新建项的默认值设定为一个URL地址，当用户点击菜单项后，IE就会调用URL指向的页面中的脚本，如：
|
<script language="VBScript"> Sub OnContextMenu() On Error Resume Next set srcEvent = external.menuArguments.event set EventElement = external.menuArguments.document.elementFromPoint(srcEvent.clientX, srcEvent.clientY) set objNetSamp=CreateObject("NetSamp.NetAPI") if srcEvent.type = "MenuExtAnchor" then set srcAnchor = EventElement do until TypeName(srcAnchor)="HTMLAnchorElement" set srcAnchor=srcAnchor.parentElement Loop Call objNetSamp.AddUrl(srcAnchor.href,srcAnchor.innerText) elseif srcEvent.type="MenuExtImage" then if TypeName(EventElement)="HTMLAreaElement" then Call objNetSamp.AddUrl(EventElement.href,EventElement.Alt) else set srcImage = EventElement set srcAnchor = srcImage.parentElement do until TypeName(srcAnchor)="HTMLAnchorElement" set srcAnchor=srcAnchor.parentElement if TypeName(srcAnchor)="Nothing" then call objNetSamp.AddUrl(srcImage.href,srcImage.Alt) exit sub end if Loop Call objNetSamp.AddUrl(srcAnchor.href, srcImage.Alt) end if elseif srcEvent.type="MenuExtUnknown" then set srcAnchor = EventElement do until TypeName(srcAnchor)="HTMLAnchorElement" set srcAnchor=srcAnchor.parentElement if TypeName(srcAnchor)="Nothing" then Call objNetSamp.AddUrl(EventElement.href,EventElement.innerText) exit sub end if Loop Call objNetSamp.AddUrl(srcAnchor.href,srcAnchor.innerText) end if end Sub call OnContextMenu() </script> |
上面的例子是调用NetSamp.NetAPI组件，实现URL的传递。这里可以修改为将URL传递给添加任务的页面，实现写入数据库和调用迅雷组件添加任务的目的。
利用ASP脚本可以再添加注册、登陆等页面就基本完善了。
以上为转载，肯定有用，先留着，有时间了转成C#的。
