调用ThunderAgent 迅雷局域网版的开发

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#的。