- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助！ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=180982)
-- 发布时间：2022/10/21 9:37:00
-- 求助！
请问老师，这个ContentLength 字节写入请求流是什么意思？
此主题相关图片如下：错误.png
此主题相关图片如下：错误.pngDim 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。
-- 发布时间：2022/10/21 9:48:00
--
截图的提示是没有结果返回，不能转换为json
hc.Content = jo.ToString()
dim ret as string = hc.GetData()
msgbox(ret)
msgbox(ret)
【必须先将 ContentLength 字节写入请求流，然后再调用 [Begin]GetResponse。】这个应该是没有按照接口文档的要求调用接口导致的
-- 发布时间：2022/10/21 10:20:00
--
此主题相关图片如下：网站.png
json转换没有问题，网页连接也没有问题
此主题相关图片如下：json.png
-- 发布时间：2022/10/21 10:27:00
--
去掉多余的空格
此主题相关图片如下：1.png
-- 发布时间：2022/10/21 10:35:00
--
此主题相关图片如下：返回.png
-- 发布时间：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
此主题相关图片如下：json格式.png-- 发布时间：2022/10/21 10:38:00
--
这个您要去自己核对接口开发文档了
-- 发布时间：2022/10/21 10:42:00
--
感谢解答
-- 发布时间：2022/10/21 10:43:00
--
Dim jo As New JObject
jo("agent_id") = "1373649751"
jo("userid_list") = "01531106431720838456"
jo("msg") = New JObject
jo("msg")("msgtype") = "text"
jo("msg")("text") = New JObject
jo("msg")("text")("content") = "今晚加班"
-- 发布时间：2022/10/21 11:27:00
--
感谢老师的帮助，显示出来了
