VB6: 在客户端中使用WinHttp组件,发送Https请求

概述现在越来越多的网站使用了Https来进行数据加密, 在VB6客户端中如何访问这些内容？ 使用WinHttp组件里的WinHttpRequest对象可以解决我们的问题。 1、引用“Microsoft WinHTTP Services, version 5.1”组件 2、下面是源代码 ''使用WinHttp组件,发送Https请求'' C:\WINDOWS\system32\WINHTTP.d

现在越来越多的网站使用了https来进行数据加密,在VB6客户端中如何访问这些内容？

使用Winhttp组件里的WinhttpRequest对象可以解决我们的问题。

1、引用“Microsoft Winhttp Services,version 5.1”组件

2、下面是源代码

''使用Winhttp组件,发送https请求''    C:\windows\system32\WINhttp.dll''    Microsoft Winhttp Services,version 5.1Sub 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 = nothingEnd Sub

总结

以上是内存溢出为你收集整理的VB6: 在客户端中使用WinHttp组件,发送Https请求全部内容，希望文章能够帮你解决VB6: 在客户端中使用WinHttp组件,发送Https请求所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。