VB6多线程执行Get请求(基于Curl库)
HTTPClient_Multi_Get系列函数说明
基于Curl库,多线程Get方法请求内容。支持http和https协议。支持gzip、deflate、br自动解压持续使用内存会不断增长，达到一定峰值后不会继续增长，使用完后内存自动回收支持返回响应头支持设置超时时间
参数
HTTPClient_Multi_New MultiObj:多线程管理对象MaxThreads:最大线程数
HTTPClient_Multi_AddGetTaskMultiObj:多线程管理对象CurlTask:任务对象URL:网址，支持http和httpsRequestHeaders:向网址发起的请求头IsUTF8:是否是UTF8编码。0-非UTF8编码，1-UTF8字符ConnectTimeOut:连接超时时间，单位秒TimeOut:总超时时间，单位秒ResponseAutoDecode:是否自动解码返回内容。比如IsUTF8=1时，自动将UTF8结果字符解码为Ansi字符
HTTPClient_Multi_IsFinishMultiObj:多线程管理对象OK_Task:成功的任务对象StrErr:错误信息
HTTPClient_Multi_GetResponseCurlTask:任务对象ResponseHeaders:请求后得到的响应头
HTTPClient_Multi_TaskFreeMultiObj:多线程管理对象CurlTask:任务对象HTTPClient_Multi_FreeMultiObj:多线程管理对象
引用
Public Declare Function HTTPClient_Multi_New Lib "VB6Net.dll" (ByRef MultiObj As Long, Optional ByVal MaxThreads As Integer = 10) As StringPublic Declare Function HTTPClient_Multi_AddGetTask Lib "VB6Net.dll" (ByRef MultiObj As Long, ByRef CurlTask As Long, ByRef URL As String, Optional ByRef RequestHeaders As String = "", Optional ByVal IsUTF8 As Integer = 1, Optional ByVal ConnectTimeOut As Integer = 5, Optional ByVal TimeOut As Integer = 60, Optional ByVal ResponseAutoDecode As Integer = 1) As StringPublic Declare Function HTTPClient_Multi_IsFinish Lib "VB6Net.dll" (ByRef MultiObj As Long, ByRef OK_Task As Long, ByRef StrErr As String) As BooleanPublic Declare Function HTTPClient_Multi_GetResponse Lib "VB6Net.dll" (ByRef CurlTask As Long, Optional ByRef ResponseHeaders As String = "") As StringPublic Declare Sub HTTPClient_Multi_TaskFree Lib "VB6Net.dll" (ByRef MultiObj As Long, ByRef CurlTask As Long)Public Declare Sub HTTPClient_Multi_Free Lib "VB6Net.dll" (ByRef MultiObj As Long)
封装UserControl后的使用示例
Dim Multi_Tasks() As StringDim Multi_IsFinish As Boolean
Sub DoTask()ReDim Multi_Tasks(2, 4)Multi_Tasks(1, 1) = "https://www.baidu.com/"Multi_Tasks(2, 1) = "1"Multi_Tasks(1, 2) = "https://www.qq.com/"Multi_Tasks(2, 2) = "0"Multi_Tasks(1, 3) = "https://www.iqiyi.com/"Multi_Tasks(2, 3) = "1"Multi_Tasks(1, 4) = "https://www.sina.com.cn/"Multi_Tasks(2, 4) = "1"Multi_IsFinish = FalseWith MultiNet1 'MultiNet1是封装的UserControl 详见示例.Multi_ThreadMax = 4For i = 1 To UBound(Multi_Tasks, 2).AddGetTask Multi_Tasks(1, i), , Multi_Tasks(2, i)Next.StartEnd WithDo While Multi_IsFinish = FalseDoEventsLoopShowLog "执行完毕"End SubPrivate Sub MultiNet1_OnFinish(ByVal Msg As String)Multi_IsFinish = TrueShowLog MsgEnd Sub
Private Sub MultiNet1_OnTaskFinish(ByVal TaskIndex As Integer, ByVal ThreadIndex As Integer, ByVal ThreadAddr As Long, ResponseHeaders As String, ResponseBody As String)ShowLog "线程" & ThreadIndex & "(" & ThreadAddr & "):执行完毕" & vbTab & " √ " & TaskIndex & "-" & Multi_Tasks(1, TaskIndex) & vbTab & VBA.Left(ResponseBody, 200) & ".." & vbCrLfEnd Sub
例子
运行结果
