网站首页 > 资源文章 正文
VB6多线程执行Post请求(基于Curl库)
HTTPClient_Multi_Post系列函数
说明
基于Curl库,多线程Post方法请求内容。
支持http和https协议。
支持gzip、deflate、br自动解压
持续使用内存会不断增长,达到一定峰值后不会继续增长,使用完后内存自动回收
支持返回响应头
支持设置超时时间
参数
HTTPClient_Multi_New
MultiObj:多线程管理对象
MaxThreads:最大线程数
HTTPClient_Multi_AddPostTask
MultiObj:多线程管理对象
CurlTask:任务对象
URL:网址,支持http和https
PostDatas:请求内容
RequestHeaders:向网址发起的请求头
IsUTF8:是否是UTF8编码。0-非UTF8编码,1-UTF8字符
ConnectTimeOut:连接超时时间,单位秒
TimeOut:总超时时间,单位秒
PostDataAutoEncode:是否自动编码请求内容。比如IsUTF8=1时,自动将Ansi请求字符转码为UTF8字符
ResponseAutoDecode:是否自动解码返回内容。比如IsUTF8=1时,自动将UTF8结果字符解码为Ansi字符
HTTPClient_Multi_IsFinish
MultiObj:多线程管理对象
OK_Task:成功的任务对象
StrErr:错误信息
HTTPClient_Multi_GetResponse
CurlTask:任务对象
ResponseHeaders:请求后得到的响应头
HTTPClient_Multi_TaskFree
MultiObj:多线程管理对象
CurlTask:任务对象
HTTPClient_Multi_Free
MultiObj:多线程管理对象
引用
Public Declare Function HTTPClient_Multi_New Lib "VB6Net.dll" (ByRef MultiObj As Long, Optional ByVal MaxThreads As Integer = 10) As String
Public Declare Function HTTPClient_Multi_AddPostTask Lib "VB6Net.dll" (ByRef MultiObj As Long, ByRef CurlTask As Long, ByRef URL As String, ByRef PostDatas As String, Optional ByRef RequestHeaders As String = "Content-Type:application/x-www-form-urlencoded", Optional ByVal IsUTF8 As Integer = 1, Optional ByVal ConnectTimeOut As Integer = 5, Optional ByVal TimeOut As Integer = 60, Optional ByVal PostDataAutoEncode As Integer = 1, Optional ByVal ResponseAutoDecode As Integer = 1) As String
Public Declare Function HTTPClient_Multi_Post Lib "VB6Net.dll" (ByRef MultiObj As Long, ByRef CurlTask As Long, ByRef URL As String, ByRef PostDatas As String, Optional ByRef RequestHeaders As String = "Content-Type:application/x-www-form-urlencoded", Optional ByVal IsUTF8 As Integer = 1, Optional ByVal ConnectTimeOut As Integer = 5, Optional ByVal TimeOut As Integer = 60, Optional ByVal PostDataAutoEncode As Integer = 1, Optional ByVal ResponseAutoDecode As Integer = 1) As String
Public Declare Function HTTPClient_Multi_IsFinish Lib "VB6Net.dll" (ByRef MultiObj As Long, ByRef OK_Task As Long, ByRef StrErr As String) As Boolean
Public Declare Function HTTPClient_Multi_GetResponse Lib "VB6Net.dll" (ByRef CurlTask As Long, Optional ByRef ResponseHeaders As String = "") As String
Public 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 String
Dim Multi_IsFinish As BooleanSub DoTask()
ShowLog "此接口仅供调试之用,如有侵权请通知使用者删除此代码!谢谢!"
ReDim Multi_Tasks(4, 2)
Multi_Tasks(1, 1) = "https://xxxxx/"
Multi_Tasks(2, 1) = "Type=1&Name=hahaha"
Multi_Tasks(3, 1) = "Content-Type:application/x-www-form-urlencoded"
Multi_Tasks(4, 1) = "1"
Multi_Tasks(1, 2) = "https://xxxxx/"
Multi_Tasks(2, 2) = "Type=1&Name=hahaha"
Multi_Tasks(3, 2) = "Content-Type:application/x-www-form-urlencoded"
Multi_Tasks(4, 2) = "1"
Multi_IsFinish = False
With MultiNet1'MultiNet1是封装的UserControl 详见示例
.Multi_ThreadMax = 2
For i = 1 To UBound(Multi_Tasks, 2)
.AddPostTask Multi_Tasks(1, i), Multi_Tasks(2, i), Multi_Tasks(3, i), Multi_Tasks(4, i)
Next
.Start
End With
Do While Multi_IsFinish = False
DoEvents
Loop
ShowLog "执行完毕"
End Sub
Private Sub MultiNet1_OnFinish(ByVal Msg As String)
Multi_IsFinish = True
ShowLog Msg
End SubPrivate 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) & ".." & vbCrLf
End Sub
例子
运行结果
猜你喜欢
- 2024-11-11 VBA|过程或方法内部的直接或间接调用与相对怪异的语法格式
- 2024-11-11 Windows安装PHP8+Apache+JIT(即时编译)
- 2024-11-11 VB6多线程执行Get请求(基于Curl库)
- 2024-11-11 以下函数可以用于VB6,也可以用在VBA当中! '...
- 2024-11-11 VB之生成随机数(vb程序随机生成数)
- 2024-11-11 计算机二级VB复习重点十四篇,9月份还有小伙伴考VB吗,需要就拿去吧
- 2024-11-11 关于VB的小记录(关于vb的常见问题)
- 2024-11-11 VB6 日期相关函数(vbscript 日期函数)
- 2024-11-11 使用OpenCV库操作摄像头拍照、调节参数和视频录制
- 2024-11-11 VB绘制实时曲线(vb绘制函数图像)
你 发表评论:
欢迎- 最近发表
- 标签列表
-
- 电脑显示器花屏 (79)
- 403 forbidden (65)
- linux怎么查看系统版本 (54)
- 补码运算 (63)
- 缓存服务器 (61)
- 定时重启 (59)
- plsql developer (73)
- 对话框打开时命令无法执行 (61)
- excel数据透视表 (72)
- oracle认证 (56)
- 网页不能复制 (84)
- photoshop外挂滤镜 (58)
- 网页无法复制粘贴 (55)
- vmware workstation 7 1 3 (78)
- jdk 64位下载 (65)
- phpstudy 2013 (66)
- 卡通形象生成 (55)
- psd模板免费下载 (67)
- shift (58)
- localhost打不开 (58)
- 检测代理服务器设置 (55)
- frequency (66)
- indesign教程 (55)
- 运行命令大全 (61)
- ping exe (64)
本文暂时没有评论,来添加一个吧(●'◡'●)