3

在 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

有任何想法吗?

4

1 回答 1

0

我有一个类似的问题。尚未测试您的代码,但它看起来与我的相似,它也适用于 Windows7,但不适用于 Windows10。我发现是Windows10防火墙阻止了它。如果您关闭防火墙,您的可能会工作。我尝试了不同的方法来对我的防火墙进行例外处理,但从未成功。所以有几次我必须运行我的代码,我必须关闭防火墙。

于 2019-04-05T16:14:29.743 回答