VB6 MSXML2“证书中的主机名无效或不匹配。”

Question

此代码适用于2台不同的WIN7计算机，但在2台不同的XP计算机上运行失败：

Public Function GetLocationTemperature（urlString As String，ByRef kPa as Single）As Single

On Error GoTo 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 Runtime中，website.send报告错误“证书中的主机名无效或不匹配”

WIN7中不需要SXH_SERVER_CERT_IGNORE_ALL_SERVER_ERRORS，但在XP中没有帮助。

有什么建议吗？感谢。

Answer 1

使用website.setOption 2,13056修复，不知道为什么，但我不在乎。