前端开发入门到精通的在线学习网站

网站首页 > 资源文章 正文

VB6一行代码执行Post请求(基于Curl库)

qiguaw 2024-11-11 13:09:19 资源文章 15 ℃ 0 评论

VB6一行代码执行Post请求(基于Curl库)

HTTPClient_Post

说明

基于Curl库,用Post方法请求指定网址,返回内容。
支持http和https协议。
支持gzip、deflate、br自动解压
持续使用内存会不断增长,达到一定峰值后不会继续增长,使用完后内存自动回收
支持返回响应头
支持设置超时时间

参数

URL:网址,支持http和https
PostDatas:请求内容
RequestHeaders:向网址发起的请求头
ResponseHeaders:请求后得到的响应头
IsUTF8:是否是UTF8编码。0-非UTF8编码,1-UTF8字符
ConnectTimeOut:连接超时时间,单位秒
TimeOut:总超时时间,单位秒
PostDataAutoEncode:是否自动编码请求内容。比如IsUTF8=1时,自动将Ansi请求字符转码为UTF8字符
ResponseAutoDecode:是否自动解码返回内容。比如IsUTF8=1时,自动将UTF8结果字符解码为Ansi字符

引用

Public Declare Function HTTPClient_Post Lib "VB6Net.dll" (ByRef URL As String, ByRef PostDatas As String, Optional ByRef RequestHeaders As String = "Content-Type:application/x-www-form-urlencoded", Optional ByRef ResponseHeaders As String = "", 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)

示例

Text2.text=HTTPClient_Post("https://xxxxx/","Type=1&Name=hahaha")

示例工程

txtLog.Text = "此接口仅供调试之用,如有侵权请通知使用者删除此代码!谢谢!" & vbCrLf & _

HTTPClient_Post("https://xxxxxx/api/login", "{""account"": ""123456@123.com"",""password"": ""123456""}", "Content-Type:application/json")



运行结果


本文暂时没有评论,来添加一个吧(●'◡'●)

欢迎 发表评论:

最近发表
标签列表