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

lon91ong

问题描述：







问题代码：

1. Public Function httpReq(dataStr As String) As String    Dim serverHost As String
   
2.     serverHost = "http://127.0.0.1:8020/test"
   
3.     Dim fetch As Object
   
4.     Set fetch = CreateObject("MSXML2.XMLHTTP")
   
5.     fetch.Open "POST", serverHost, False
   
6.     fetch.SetRequestHeader "Client", "Excel"
   
7.     fetch.Send dataStr '此处提示出错
   
8.     httpReq = fetch.ResponseText
   
9. End Function
   
10. 
    
11. Sub upData()
    
12.     Dim RowUsed As Integer, ColumnScore As String
    
13.     Dim cellScore As Range
    
14.     Dim dataStr As String, resp As Object
    
15.     dataStr = "["
    
16.     For Each cellScore In Range("A5:A26") '串接成绩字符串
    
17.         If Not cellScore.Value = vbNullString Then
    
18.             dataStr = dataStr & "{""score"":" & CStr(cellScore.Value) & "},"
    
19.         End If
    
20.     Next
    
21.     dataStr = JsonConverter.ConvertToJson(Left(dataStr, Len(dataStr) - 1) & "]")
    
22.     Set resp = JsonConverter.ParseJson(httpReq(dataStr))
    
23.     If resp("success") Then
    
24.         MsgBox resp("Content"), vbInformation, "完成"
    
25.     Else
    
26.         MsgBox "更新成绩失败！！！", vbInformation, "错误"
    
27.     End If
    
28. End Sub

复制代码

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

1. fetch.Send JsonConverter.ConvertToJson(dataStr)

复制代码

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

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

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

1. import falconfrom json import dumps,loads
   
2. from waitress import serve
   
3. 
   
4. class Resource(object):
   
5.     def on_post(self, req, resp):
   
6.         print(req.url)
   
7.         scores = loads(req.media)
   
8.         print('更新{}条记录！'.format(len(scores)))
   
9.         resp.body = dumps({"success": True,"Content":'更新{}条记录！'.format(len(scores))},ensure_ascii=False)
   
10.         resp.status = falcon.HTTP_201
    
11. 
    
12. app = falcon.API()
    
13. app.add_route('/test', Resource())
    
14. serve(app, listen='127.0.0.1:8020')

复制代码

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

zpy2

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

lon91ong

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

已完善！

lon91ong

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

lon91ong

每日一顶，持久健康！

lon91ong

每日一顶，健康持久！

zpy2

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

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

lon91ong

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

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

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

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

修改后的代码如下：

1. Public Function httpReq(dataStr As String) As String
   
2.     Dim serverHost As String
   
3.     serverHost = "https://vip.open.163.com/open" '只改了一下链接地址
   
4.     Dim fetch As Object
   
5.     Set fetch = CreateObject("MSXML2.XMLHTTP")
   
6.     fetch.Open "POST", serverHost, False
   
7.     fetch.SetRequestHeader "Client", "Excel"
   
8.     fetch.Send dataStr '此处提示出错
   
9.     httpReq = fetch.ResponseText
   
10. End Function
    
11. 
    
12. Sub upData()
    
13.     Dim RowUsed As Integer, ColumnScore As String
    
14.     Dim cellScore As Range
    
15.     Dim dataStr As String, resp As Object
    
16.     dataStr = "["
    
17.     For Each cellScore In Range("A5:A26") '串接成绩字符串
    
18.         If Not cellScore.Value = vbNullString Then
    
19.             dataStr = dataStr & "{""score"":" & CStr(cellScore.Value) & "},"
    
20.         End If
    
21.     Next
    
22.     dataStr = JsonConverter.ConvertToJson(Left(dataStr, Len(dataStr) - 1) & "]")
    
23.     Set resp = JsonConverter.ParseJson(httpReq(dataStr))
    
24.     If resp("success") Then
    
25.         MsgBox resp("Content"), vbInformation, "完成"
    
26.     Else
    
27.         MsgBox "更新成绩失败！！！", vbInformation, "错误"
    
28.     End If
    
29. End Sub

复制代码

lon91ong

每日日常顶,

sunhewei

Dim xml As New MSXML2.XMLHTTP 报错？