VBA 迅雷批量下 ThunderAgent

最新推荐文章于 2023-06-01 12:16:01 发布

linzi_0833

最新推荐文章于 2023-06-01 12:16:01 发布

阅读量1.9k

点赞数

本文链接：https://blog.youkuaiyun.com/linzi_0833/article/details/42364805

版权

本文介绍了使用迅雷API进行大规模文件下载的方法及遇到的问题。通过VBA脚本调用迅雷API，实现了一次性添加大量下载任务的功能，但受限于迅雷客户端的人工确认机制，每1000个任务需手动确认。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

迅雷的api 资料很少，不过可以简单地用。批量任务最多1000个，每次需要人手确认 =.= . 试过同时建6000多个，迅雷基本在假死状态。要下载3万多个文档，准备找找有没有其他下载器，

C:\Program Files (x86)\Thunder Network\Thunder\BHO\ThunderAgent7.9.31.4876.dll

Sub AddTask(bstrUrl As String, [bstrFileName As String], [bstrPath As String], [bstrComments As String], [bstrReferUrl As String], [nStartMode As Long = -1], [nOnlyFromOrigin As Long], [nOriginThreadCount As Long = -1])

'2015-01-03 alayong.com
'Reference Library:
' - ThunderAgent 1.0 Type Library

Sub main()
    Dim th As New ThunderAgentLib.Agent
    Dim iRange As Range
    Dim i As Long
    For Each iRange In Range("A2:A22336")   '-------change to your URLs range
        th.AddTask iRange.text, , "C:\te1\"  '----change save to
        i = i + 1
        If i = 1000 Then
            th.CommitTasks
            MsgBox "Please Manualy Confirm Download in Thunder"
        End If
    Next iRange
    th.CommitTasks
End Sub