求助！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助！

共有6770人关注过本帖树形打印复制链接主题：求助！

lwq603980601

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：30 积分：359 威望：0 精华：0 注册：2022/9/19 20:27:00

求助！

Post By：2022/10/21 9:37:00 [显示全部帖子]

请问老师，这个ContentLength 字节写入请求流是什么意思？
图片点击可在新窗口打开查看

此主题相关图片如下：错误.png

Dim hc As New HttpClient("https://oapi.dingtalk.com/topapi/message/corpconversation/asyncsend_v2?access_token = 8eae690cd19338bf8a9632a4467caad1")

Dim jo As New JObject
jo("agent_id") = "1373649751"
jo("userid_list") = "01531106431720838456"
jo("msgtype") = "text"
jo("text") = New JObject
jo("text")("content") = "今晚加班"

hc.Content = jo.ToString()
jo = JObject.Parse(hc.GetData())
If jo("errcode") = "0" Then
MessageBox.show("消息发送成功!")
Else
MessageBox.show("消息发送失败,原因:" & vbcrlf & jo("errmsg").ToString)

End If

必须先将 ContentLength 字节写入请求流，然后再调用 [Begin]GetResponse。

lwq603980601

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：30 积分：359 威望：0 精华：0 注册：2022/9/19 20:27:00

Post By：2022/10/21 10:20:00 [显示全部帖子]

此主题相关图片如下：网站.png

json转换没有问题，网页连接也没有问题
图片点击可在新窗口打开查看

此主题相关图片如下：json.png

lwq603980601

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：30 积分：359 威望：0 精华：0 注册：2022/9/19 20:27:00

Post By：2022/10/21 10:35:00 [显示全部帖子]

【必须先将 ContentLength 字节写入请求流，然后再调用 [Begin]GetResponse。】还是这个错误，然后返回了个空页面，网页连接通了，应该是传过去的json格式有问题吧
图片点击可在新窗口打开查看

此主题相关图片如下：返回.png

lwq603980601

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：30 积分：359 威望：0 精华：0 注册：2022/9/19 20:27:00

Post By：2022/10/21 10:37:00 [显示全部帖子]

此主题相关图片如下：要求.png

Dim jo As New JObject
jo("agent_id") = "1373649751"
jo("userid_list") = "01531106431720838456"
jo("msg") = New JObject
jo("msg")("msgtype") = "text"
jo("text") = New JObject

jo("text")("content") = "今晚加班"

应该是这个msg的格式问题吧
图片点击可在新窗口打开查看

此主题相关图片如下：json格式.png