0

この問題は、https への呼び出し時に発生しますが、http への呼び出しでは正常に機能します。

どうすればこれを解決できますか?

以下の完全な作業コード:

Option Explicit
On Error Resume Next

Dim strURL, objWinHttp, strResponse


Set objWinHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
objWinHttp.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"


'Calling to https fail to retrieve content

strURL= "https://210.5.42.59:8443/sitepreview/http/test2.com/readme.txt"
WScript.Echo strURL

strResponse= CallHTTPTest(strURL)
WScript.Echo strResponse


'Calling to http successfully retrieve content

strURL= "http://ezinearticles.com/?How-To-Clean-a-Car-With-Car-Signs&id=6452594"
WScript.Echo strURL

strResponse= CallHTTPTest(strURL)
WScript.Echo strResponse



Function CallHTTPTest(strURL)

    objWinHttp.Open "POST", strURL, false
    objWinHttp.Send 

    objWinHttp.SetTimeouts 5000, 60000, 30000, 420000
    objWinHttp.WaitforResponse(440000)

    CallHTTPTest= objWinHttp.ResponseText

End Function
4

1 に答える 1

0

SSL証明書をネゴシエートする必要があると思います:

WinHTTP での SSL の使用

于 2011-07-27T03:58:07.070 に答える