我在ERP系统中有一些代码,通过调用REST API的.Net包装器进行。 这是一个JSON API。 我的代码没有直接发布的意义,因为它在ERP系统内部。 但是代码如下所示。
奇怪的是,它可以在我们的测试/开发站点上运行。它可以在Win10 PC上的客户站点上工作。但是它在Win7 PC上不起作用。这给出了错误: 与服务器的连接异常终止 错误代码:0x80020009
它试图禁用PC上的所有防火墙,但没有结果。在哪里看?
代码: 昏暗的objXmlHttpMain作为变体 将strJSONToSend变暗为变体
strJSONToSend = "{""Type"":""Push"", ""Push"":{""type"": ""messaging_extension_reply"", ""conversation_iden"": ""<MobileNumber>"", ""message"":""Test""}}"
Set objXmlHttpMain = CreateObject("MSXML2.ServerXMLHTTP.6.0")
objXmlHttpMain.Open "POST", "https://api.pushbullet.com/v2/ephemerals", False
objXmlHttpMain.setRequestHeader "Access-Token", strAccessToken
objXmlHttpMain.setRequestHeader "Content-Type", "application/json"
objXmlHttpMain.setProxy 2, strProxy
objXmlHttpMain.setProxyCredentials strUser, strPass
objXmlHttpMain.Send strJSONToSend
Debug.Print objXmlHttpMain.responseText