VB6: 在客戶端中使用WinHttp元件,傳送Https請求
阿新 • • 發佈:2019-02-09
現在越來越多的網站使用了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