VBA ServerXMLHTTP 代码在 Windows 7 中有效，但在 Windows 10 中失败

Question

在 Microsoft Access 中使用 VBA，我将 XML 发送到服务器以获取响应字符串。它在Windows 7中运行良好。最近，一些用户升级到Windows 10，这不再有效(Office 16上的所有用户)。具体报错是: -2147012867 - 无法建立与服务器的连接。

错误发生在xsite.send行

代码如下:

Dim xsite As ServerXMLHTTP60
Set xsite = New ServerXMLHTTP60

On Error Resume Next

xsite.setTimeouts 0, 60000, 30000, 600000

xsite.Open "POST", pServerURL & func, False
aErr = Array(Err.Number, Err.Description)
On Error GoTo 0
If 0 = aErr(0) Then 'No error creating the link
    xsite.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    'Set request header with Base64-encoded username/password
    xsite.setRequestHeader "Authorization", "Basic " & EncodeBase64(UserName & ":" & Password)
    On Error Resume Next
    xsite.send "xmlData=" & URLEncode(xmldata)
    aErr = Array(Err.Number, Err.Description)
    On Error GoTo 0

    Debug.Print aErr(0)
    Debug.Print aErr(1)
End If

有什么想法吗？

Answer 1

我遇到了类似的问题。尚未测试您的代码，但它看起来与我的相似，它也适用于 Windows7，但不适用于 Windows10。我发现是Windows10的防火墙屏蔽了。如果您关闭防火墙，您的可能会起作用。我尝试了不同的方法来对我的防火墙进行异常(exception)处理，但从未成功。因此，有几次我必须运行我的代码时，我必须关闭防火墙。