VB6一行代码执行Get请求（基于Curl库）

HTTPClient_Get

说明

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

参数

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

引用

Public Declare Function HTTPClient_Get Lib "VB6Net.dll" (ByRef URL As String, Optional ByRef RequestHeaders As String = "", 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 ResponseAutoDecode As Integer = 1) As String

示例

Text2.text=HTTPClient_Get("https://www.baidu.com")

示例工程

txtLog.Text = HTTPClient_Get("https://www.baidu.com/")

运行效果