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

Question

此代码在 2 台不同的 WIN7 机器上工作，但在 2 台不同的 XP 机器上失败：

公共函数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 报告错误“证书中的主机名无效或不匹配”

SXH_SERVER_CERT_IGNORE_ALL_SERVER_ERRORS 在 WIN7 中不是必需的，在 XP 中没有帮助。

有什么建议吗？谢谢。

Answer 1

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