MSXML2.XMLHTTP的Send使用时遇到一个谜之错误

lon91ong · 发表于 2019-12-2 17:44

本帖最后由 lon91ong 于 2019-12-3 14:21 编辑

问题描述：

问题描述.png

问题代码：

Public Function httpReq(dataStr As String) As String Dim serverHost As String
serverHost = "http://127.0.0.1:8020/test"
Dim fetch As Object
Set fetch = CreateObject("MSXML2.XMLHTTP")
fetch.Open "POST", serverHost, False
fetch.SetRequestHeader "Client", "Excel"
fetch.Send dataStr '此处提示出错
httpReq = fetch.ResponseText
End Function
Sub upData()
Dim RowUsed As Integer, ColumnScore As String
Dim cellScore As Range
Dim dataStr As String, resp As Object
dataStr = "["
For Each cellScore In Range("A5:A26") '串接成绩字符串
If Not cellScore.Value = vbNullString Then
dataStr = dataStr & "{""score"":" & CStr(cellScore.Value) & "},"
End If
Next
dataStr = JsonConverter.ConvertToJson(Left(dataStr, Len(dataStr) - 1) & "]")
Set resp = JsonConverter.ParseJson(httpReq(dataStr))
If resp("success") Then
MsgBox resp("Content"), vbInformation, "完成"
Else
MsgBox "更新成绩失败！！！", vbInformation, "错误"
End If
End Sub

复制代码

函数功能描述：
其中JsonConverter是用来格式化字符串为Json的工具
函数httpReq接收字符串参数作为POST的数据
模块upData把成绩数据串接起来用JsonConverter格式化为Json格式，调用HttpReq接收返回值
问题描述：
Json数据格式化的步骤放在updata中，上面的样子就会报错，Win7下提示Send参数错误
(Win7 + WPS专业版报错；Win10 + WPS专业版 + Excle2016无错)
如果把Json格式化的步骤放到httpReq中，像下面就无错：

fetch.Send JsonConverter.ConvertToJson(dataStr)

复制代码

区别仅仅是格式化Json和调用httpReq的前后顺序

请大侠指点一下错误的原因

补充：本地测试服务器python脚本：

import falconfrom json import dumps,loads
from waitress import serve
class Resource(object):
def on_post(self, req, resp):
print(req.url)
scores = loads(req.media)
print('更新{}条记录！'.format(len(scores)))
resp.body = dumps({"success": True,"Content":'更新{}条记录！'.format(len(scores))},ensure_ascii=False)
resp.status = falcon.HTTP_201
app = falcon.API()
app.add_route('/test', Resource())
serve(app, listen='127.0.0.1:8020')

复制代码

没有python环境的，可以下载可执行文件(pyinstaller打包，可能被360报马)
微云下载：https://share.weiyun.com/5zaXqV3

zpy2 · 发表于 2019-12-3 09:34

你这个本地的服务器，别人无法测试啊。

lon91ong · 发表于 2019-12-3 10:32

本帖最后由 lon91ong 于 2019-12-3 14:24 编辑

zpy2 发表于 2019-12-3 09:34
你这个本地的服务器，别人无法测试啊。

已完善！

lon91ong · 发表于 2019-12-3 14:45

顶顶更健康，大侠指点一二

lon91ong · 发表于 2019-12-4 12:41

每日一顶，持久健康！

lon91ong · 发表于 2019-12-5 09:48

每日一顶，健康持久！

zpy2 · 发表于 2019-12-5 10:30

lon91ong 发表于 2019-12-5 09:48
每日一顶，健康持久！

很想看看，只是真的不想装app了

lon91ong · 发表于 2019-12-11 10:18

zpy2 发表于 2019-12-5 10:30
很想看看，只是真的不想装app了

随便改了一个服务器地址试了试，在过去能正常执行的机器上会提示“拒绝访问”的错误，如下图：

而之前失败的机器上(32位win7系统)依然提示参数错误，这样省去了服务器搭建，并不影响代码功能测试！

也就是说，提示“拒绝访问”错误就代表成功执行，提示“参数错误”或别的错误，就表示失败！

修改后的代码如下：

Public Function httpReq(dataStr As String) As String
Dim serverHost As String
serverHost = "https://vip.open.163.com/open" '只改了一下链接地址
Dim fetch As Object
Set fetch = CreateObject("MSXML2.XMLHTTP")
fetch.Open "POST", serverHost, False
fetch.SetRequestHeader "Client", "Excel"
fetch.Send dataStr '此处提示出错
httpReq = fetch.ResponseText
End Function
Sub upData()
Dim RowUsed As Integer, ColumnScore As String
Dim cellScore As Range
Dim dataStr As String, resp As Object
dataStr = "["
For Each cellScore In Range("A5:A26") '串接成绩字符串
If Not cellScore.Value = vbNullString Then
dataStr = dataStr & "{""score"":" & CStr(cellScore.Value) & "},"
End If
Next
dataStr = JsonConverter.ConvertToJson(Left(dataStr, Len(dataStr) - 1) & "]")
Set resp = JsonConverter.ParseJson(httpReq(dataStr))
If resp("success") Then
MsgBox resp("Content"), vbInformation, "完成"
Else
MsgBox "更新成绩失败！！！", vbInformation, "错误"
End If
End Sub

复制代码

lon91ong · 发表于 2019-12-13 13:00

每日日常顶,

sunhewei · 发表于 2021-12-15 17:07

Dim xml As New MSXML2.XMLHTTP 报错？

		自动登录	找回密码
密码			免费注册

[讨论] MSXML2.XMLHTTP的Send使用时遇到一个谜之错误