vb调用迅雷下载文件

确实会有这样的情况，但最终也没找到办法啊

我用的是VB6

最终解决啦~ 用的是迅雷地址

下边是把普通地址加密为迅雷地址的函数，试试吧，我是成功啦

Public Function Base64Encode(strSource As String) As String '迅雷加密

On Error Resume Next

If UBound(arrBase64) = -1 Then

arrBase64 = Split(StrConv(cstBase64, vbUnicode), vbNullChar)

End If

Dim arrB() As Byte, bTmp(2) As Byte, bT As Byte

Dim I As Long, J As Long

arrB = StrConv(strSource, vbFromUnicode)

J = UBound(arrB)

For I = 0 To J Step 3

Erase bTmp

bTmp(0) = arrB(I + 0)

bTmp(1) = arrB(I + 1)

bTmp(2) = arrB(I + 2)

bT = (bTmp(0) And 252) / 4

Base64Encode = Base64Encode &arrBase64(bT)

bT = (bTmp(0) And 3) * 16

bT = bT + bTmp(1) \ 16

Base64Encode = Base64Encode &arrBase64(bT)

bT = (bTmp(1) And 15) * 4

bT = bT + bTmp(2) \ 64

If I + 1 <= J Then

Base64Encode = Base64Encode &arrBase64(bT)

Else

Base64Encode = Base64Encode &"="

End If

bT = bTmp(2) And 63

If I + 2 <= J Then

Base64Encode = Base64Encode &arrBase64(bT)

Else

Base64Encode = Base64Encode &"="

End If

Next

End Function

Public Sub SetThunderAgentTask(ByVal pURL As String, Optional ByVal pFileName As String = "", Optional ByVal pPath As String = "", Optional ByVal pComments As String = "", Optional ByVal pReferURL As String = "", Optional ByVal nStartMode As Integer = -1, Optional ByVal nOnlyFromOrigin As Integer = 0, Optional ByVal nOriginThreadCount As Integer = -1)

Dim ThunderAgent As Object

Set ThunderAgent = CreateObject("ThunderAgent.Agent")

ThunderAgent.AddTask pURL, pFileName, pPath, pComments, pReferURL, nStartMode, _

nOnlyFromOrigin, nOriginThreadCount

ThunderAgent.CommitTasks2 (1)

Set ThunderAgent = Nothing

End Sub

Private Sub Command1_Click()

Call SetThunderAgentTask(Text1.Text, "MyTools")

End Sub

http://218.95.101.20/20081015/vb60.rar

这是一个汉化完整版的破解版

没有精简的

完整版可以防止在编程过程中

由于精简版功能不全

而造成的编程错误

---