0

我在 4 台计算机上运行以下代码：
该代码使用 POST 向目标服务器发出简单的 HTTP 请求。

Sub test()

    valueParam1 = "value1"
    valueParam2 = "value2"
    user = "myUser"
    pass = "myPass"
    headerName = "Content-Type"
    headerValue = "application/x-www-form-urlencoded"
    Url = "https://www.myURL.com" + "/Path1/Path2/File.php?"

    Set htttpObj = CreateObject("WinHttp.WinHttpRequest.5.1")

    htttpObj.SetTimeouts 10000, 10000, 10000, 300000

    htttpObj.Open "POST", Url, False

    htttpObj.setRequestHeader headerName, headerValue

    htttpObj.Send ("param1=" & valueParam1 & "&param2=" & valueParam2 & "&username=" & user & "&psd=" & pass)

    response = htttpObj.responseText

End Sub

4 台计算机中有 2 台完美运行代码。
4 台计算机中有 2 台显示以下错误消息：

在此处输入图像描述

运行时错误：-2147012867

运行代码的计算机使用的是 Windows10 版本 10.0.14393
不运行代码的计算机使用的是 Windows7 版本 6.1.7601，Service Pack 1
此错误仅在我编辑以下文件后发生：

C:\Windows\System32\drivers\etc\hosts

我将以下信息添加到文件中以更改主机名“myURL.com”的 IP 地址：

149.56.23.106 myURL.com
149.56.23.106 www.myURL.com
在此处输入图像描述

有关如何调查或解决此问题的任何想法？

4

0 回答 0