摘要：''' 是否是UTF8编码。0-非UTF8编码，1-UTF8字符
在VB.Net里面引用VB6NetV2.1.dll里面的网络函数
2创建类mVB6NetV2.1.vb
Imports System.Runtime.InteropServices
Public Class VB6NetV2_1
'''
''' 用Get方法得到指定网址的内容
'''
'''
网址，支持http和https
'''
向网址发起的请求头
'''
请求后得到的响应头
'''
是否是UTF8编码。0-非UTF8编码，1-UTF8字符
'''
是否是UTF8编码。0-非UTF8编码，1-UTF8字符
'''
总超时时间，单位秒
'''
是否自动解码返回内容。比如IsUTF8=1时，自动将UTF8结果字符解码
'''
'''
_
Public Shared Function HTTPClient_Get(ByVal URL As String, Optional ByVal RequestHeaders As String = "", Optional ByRef ResponseHeaders As String = "", Optional ByVal IsUTF8 As Short = 1, Optional ByVal ConnectTimeOut As Short = 5, Optional ByVal TimeOut As Integer = 60, Optional ByVal ResponseAutoDecode As Short = 1) As String
End Function
'''
''' 用Post方法请求指定网址的内容
'''
'''
请求内容
'''
连接超时时间，单位秒
'''
是否自动编码请求内容。比如IsUTF8=1时，自动将请求字符转码为UTF8字符
_
Public Shared Function HTTPClient_Post(ByVal URL As String, ByVal 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) As String
End Function
End Class
3使用方法添加引用代码
Imports {工程名}.VB6NetV2_1在代码中直接使用函数即可，例如
Debug.Print(HTTPClient_Get("https://www.xxxxx.com/"))运行效果
Vb6NetV2.1.dll库，使用社区版开发，仅供学习交流使用。
使用本软件风险由用户自行承担，在适用法律允许的最大范围内，对因使用或不能使用本软件所产生的损害及风险，包括但不限于直接或间接的个人损害、商业盈利的丧失、贸易中断、商业信息的丢失或任何其它经济损失，以及任何不可抗力带来的损失，我方不承担任何责任。
如本文不适合发表请通知删除。
来源：晓霞科技观