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