VB6: 在客户端中使用WinHttp组件,发送Https请求
发布时间:2020-12-17 08:20:14 所属栏目:百科 来源:网络整理
导读:现在越来越多的网站使用了Https来进行数据加密,在VB6客户端中如何访问这些内容? 使用WinHttp组件里的WinHttpRequest对象可以解决我们的问题。 1、引用“Microsoft WinHTTP Services,version 5.1”组件 2、下面是源代码 ''使用WinHttp组件,发送Https请求'' C
现在越来越多的网站使用了Https来进行数据加密,在VB6客户端中如何访问这些内容? 使用WinHttp组件里的WinHttpRequest对象可以解决我们的问题。 1、引用“Microsoft WinHTTP Services,version 5.1”组件 2、下面是源代码 ''使用WinHttp组件,发送Https请求 '' C:WINDOWSsystem32WINHTTP.dll '' Microsoft WinHTTP Services,version 5.1 Sub Main() Dim aHttpRequest As WinHttp.WinHttpRequest Dim sUrl As String Dim sMethod As String Dim sBody As String Dim sResponse As String sBody = "你的请求内容" sUrl = "你的请求地址" '如 "https//xxxx:12306/yyyy" sMethod = "POST" '或者(GET) ''创建WinHttp.WinHttpRequest Set aHttpRequest = CreateObject("WinHttp.WinHttpRequest.5.1") '' 同步接收数据 aHttpRequest.open sMethod,sUrl,False '' 非常重要(忽略错误) aHttpRequest.Option(WinHttpRequestOption_SslErrorIgnoreFlags) = &H3300 '' 其它请求头设置 'aHttpRequest.setRequestHeader "Content-Type","application/x-www-form-urlencoded" 'aHttpRequest.setRequestHeader "Content-Length",Len(sBody) '' 发送 aHttpRequest.send sBody '' 得到返回文本(或者是其它) sResponse = aHttpRequest.responseText Debug.Print sResponse Set aHttpRequest = Nothing End Sub (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |