VB6 MSXML2「證書中的主機名無效或不匹配。」

Question

此代碼適用於2臺不同的WIN7機器，但未能在2臺不同的XP機器：

公共功能GetLocationTemperature（urlString作爲字符串，爲ByRef千帕爲單人間）單

對錯誤轉到errHandler

Dim website As Object 
Set website = CreateObject("MSXML2.ServerXMLHTTP.6.0") 

'website.setOption(2) = (website.getOption(2) = SXH_SERVER_CERT_IGNORE_ALL_SERVER_ERRORS 

Call website.open("GET", urlString, False) 
Call website.send("") 
........ 

在XP運行時，website.send報告錯誤「證書中的主機名無效或不匹配」

SXH_SERVER_CERT_IGNORE_ALL_SERVER_ERRORS不是必需的d在WIN7中並沒有幫助XP。

有什麼建議嗎？謝謝。

Answer 1

固定與website.setOption 2，13056，不知道爲什麼，但我不在乎。