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

　　VB6使用Com组件SystemNetLib线程访问网络
　　HTTPClientTask对象
　　说明
　　HTTP请求对象，支持GetPost请求，请求是基于线程。
　　基于Curl库，用GetPost方法请求网址，返回内容。
　　支持http和https协议。
　　支持gzip、deflate、br自动解压
　　持续使用内存会不断增长，达到一定峰值后不会继续增长，使用完后内存自动回收
　　支持返回响应头
　　支持设置超时时间
　　支持返回特殊字符Get函数
　　参数
　　URL：网址，支持http和https
　　RequestHeaders：向网址发起的请求头
　　IsUTF8：是否是UTF8编码。0非UTF8编码，1UTF8字符
　　ConnectTimeOut：连接超时时间，单位秒
　　TimeOut：总超时时间，单位秒
　　ResponseAutoDecode：是否自动解码返回内容。比如IsUTF81时，自动将UTF8结果字符解码为Unicode字符
　　NeedListen：是否需要监听。0不监听1监听监听可使用WithEvent关键词声明公共变量，响应OnTaskFinished事件，事件不能操作UI
　　示例
　　SetClientTaskNewHTTPClientTask
　　WithClientTask
　　。Gethttps：www。baidu。com
　　DoWhile。IsFinishFalse
　　DoEvents
　　Loop
　　txtLog。Text。GetResponse（）
　　EndWith
　　SetClientTaskNothing
　　结果
　　响应事件例子DimWithEventsWebNetAsHTTPClientTask
　　PrivateSubcmdDoGetClick（）
　　SetWebNetNewHTTPClientTask
　　WebNet。Gethttps：www。baidu。com，，，，，，1
　　EndSub
　　PrivateSubWebNetOnTaskFinished（ResponseHeadersAsString，ResponseBodyAsString）
　　RspBodyResponseBody
　　’回调不支持操作UI，所以用Timer来显示结果
　　tmShow。Interval1
　　tmShow。EnabledTrue
　　SetWebNetNothing
　　EndSub
　　PrivateSubtmShowTimer（）
　　tmShow。EnabledFalse
　　WebBrowser1。Document。body。innerTextRspBody
　　EndSub
　　Post函数
　　参数
　　URL：网址，支持http和https
　　PostDatas：请求内容
　　RequestHeaders：向网址发起的请求头
　　IsUTF8：是否是UTF8编码。0非UTF8编码，1UTF8字符
　　ConnectTimeOut：连接超时时间，单位秒
　　TimeOut：总超时时间，单位秒
　　PostDataAutoEncode：是否自动编码请求内容。比如IsUTF81时，自动将Unicode请求字符转码为UTF8字符
　　ResponseAutoDecode：是否自动解码返回内容。比如IsUTF81时，自动将UTF8结果字符解码为Unicode字符
　　NeedListen：是否需要监听。0不监听1监听监听可使用WithEvent关键词声明公共变量，响应OnTaskFinished事件，事件不能操作UI
　　示例
　　SetClientTaskNewHTTPClientTask
　　WithClientTask
　　。Posthttps：apilogin，｛account：AAAAA，password：123456｝，accept：applicationjsonvbCrLfContentType：applicationjson
　　DoWhile。IsFinishFalse
　　DoEvents
　　Loop
　　txtLog。Text。GetResponse（）
　　EndWith
　　SetClientTaskNothing
　　结果
　　响应事件例子DimWithEventsWebNetAsHTTPClientTask
　　PrivateSubcmdDoGetClick（）
　　SetWebNetNewHTTPClientTask
　　WebNet。Posthttps：apilogin，｛account：AAAAA，password：123456｝，accept：applicationjsonvbCrLfContentType：applicationjson，，，，，，1
　　EndSub
　　PrivateSubWebNetOnTaskFinished（ResponseHeadersAsString，ResponseBodyAsString）
　　RspBodyResponseBody
　　’回调不支持操作UI，所以用Timer来显示结果
　　tmShow。Interval1
　　tmShow。EnabledTrue
　　SetWebNetNothing
　　EndSub
　　PrivateSubtmShowTimer（）
　　tmShow。EnabledFalse
　　WebBrowser1。Document。body。innerTextRspBody
　　EndSub