VBA 迅雷批量下 ThunderAgent

迅雷的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 LibrarySub 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.CommitTasksEnd Sub