VB6使用Com组件SystemNetLib线程访问网络

　　VB6使用Com组件SystemNetLib线程访问网络
　　HTTPClientTask对象
　　说明
　　HTTP请求对象，支持Get/Post请求，请求是基于线程。
　　基于Curl库,用Get/Post方法请求网址，返回内容。
　　支持http和https协议。
　　支持gzip、deflate、br自动解压
　　持续使用内存会不断增长，达到一定峰值后不会继续增长，使用完后内存自动回收
　　支持返回响应头
　　支持设置超时时间
　　支持返回特殊字符 Get函数
　　参数
　　URL:网址，支持http和https
　　RequestHeaders:向网址发起的请求头
　　IsUTF8:是否是UTF8编码。0-非UTF8编码，1-UTF8字符
　　ConnectTimeOut:连接超时时间，单位秒
　　TimeOut:总超时时间，单位秒
　　ResponseAutoDecode:是否自动解码返回内容。比如IsUTF8=1时，自动将UTF8结果字符解码为Unicode字符
　　NeedListen:是否需要监听。0-不监听 1-监听  监听可使用WithEvent关键词声明公共变量，响应OnTaskFinished事件，事件不能操作UI
　　示例
　　Set ClientTask = New HTTPClientTask
　　With ClientTask
　　.Get ＂https://www.baidu.com/＂
　　Do While .IsFinish = False
　　DoEvents
　　Loop
　　txtLog.Text = .GetResponse()
　　End With
　　Set ClientTask = Nothing
　　结果
　　响应事件例子Dim WithEvents WebNet As HTTPClientTask
　　Private Sub cmdDoGet_Click()
　　Set WebNet = New HTTPClientTask
　　WebNet.Get ＂https://www.baidu.com/＂, , , , , , 1
　　End Sub
　　Private Sub WebNet_OnTaskFinished(ResponseHeaders As String, ResponseBody As String)
　　RspBody = ResponseBody
　　’回调不支持操作UI，所以用Timer来显示结果
　　tmShow.Interval = 1
　　tmShow.Enabled = True
　　Set WebNet = Nothing
　　End Sub
　　Private Sub tmShow_Timer()
　　tmShow.Enabled = False
　　WebBrowser1.Document.body.innerText = RspBody
　　End Sub
　　Post函数
　　参数
　　URL:网址，支持http和https
　　PostDatas:请求内容
　　RequestHeaders:向网址发起的请求头
　　IsUTF8:是否是UTF8编码。0-非UTF8编码，1-UTF8字符
　　ConnectTimeOut:连接超时时间，单位秒
　　TimeOut:总超时时间，单位秒
　　PostDataAutoEncode:是否自动编码请求内容。比如IsUTF8=1时，自动将Unicode请求字符转码为UTF8字符
　　ResponseAutoDecode:是否自动解码返回内容。比如IsUTF8=1时，自动将UTF8结果字符解码为Unicode字符
　　NeedListen:是否需要监听。0-不监听 1-监听  监听可使用WithEvent关键词声明公共变量，响应OnTaskFinished事件，事件不能操作UI
　　示例
　　Set ClientTask = New HTTPClientTask
　　With ClientTask
　　.Post ＂https://***/api/login＂, ＂{＂＂account＂＂: ＂＂AAAAA＂＂,＂＂password＂＂: ＂＂123456＂＂}＂, ＂accept: application/json＂ & vbCrLf & ＂Content-Type: application/json＂
　　Do While .IsFinish = False
　　DoEvents
　　Loop
　　txtLog.Text = .GetResponse()
　　End With
　　Set ClientTask = Nothing
　　结果
　　响应事件例子Dim WithEvents WebNet As HTTPClientTask
　　Private Sub cmdDoGet_Click()
　　Set WebNet = New HTTPClientTask
　　WebNet.Post ＂https://***/api/login＂, ＂{＂＂account＂＂: ＂＂AAAAA＂＂,＂＂password＂＂: ＂＂123456＂＂}＂, ＂accept: application/json＂ & vbCrLf & ＂Content-Type: application/json＂, , , , , , 1
　　End Sub
　　Private Sub WebNet_OnTaskFinished(ResponseHeaders As String, ResponseBody As String)
　　RspBody = ResponseBody
　　’回调不支持操作UI，所以用Timer来显示结果
　　tmShow.Interval = 1
　　tmShow.Enabled = True
　　Set WebNet = Nothing
　　End Sub
　　Private Sub tmShow_Timer()
　　tmShow.Enabled = False
　　WebBrowser1.Document.body.innerText = RspBody
　　End Sub