- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 关于http post 发送数据的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=106336)
-- 发布时间：2017/9/6 22:58:00
-- 关于http post 发送数据的问题
请问 我想 向某个地址链接 发起 http post 请求，
以下是数据格式
{
"msgtype": "text",
"text": {
"content": "我就是我, 是不一样的烟火"
},
"at": {
"atMobiles": [
"13800138000",
"1300138001"
],
"isAtAll": false
}
}
狐表里应该如何写代码？
-- 发布时间：2017/9/6 23:22:00
--
参考
http://www.foxtable.com/mobilehelp/scr/0163.htm
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=104710&skin=0
-- 发布时间：2017/9/7 0:40:00
--
Dim jo As New JObject
jo("msgtype") = "text"
jo("text") = New JObject
jo("text")("content") = "您好,本消息为测试消息"
jo("at") = New JObject
jo("at")("isAtAll") = True
Dim URL As String = "********"
Dim hc As New HttpClient(URL)
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
提示如下图错误
此主题相关图片如下：qq图片20170907003910.png
[此贴子已经被作者于2017/9/7 10:10:00编辑过]
-- 发布时间：2017/9/7 8:50:00
--
加上代码
hc.ContentType = "application/json; charset=UTF-8"
-- 发布时间：2017/9/7 10:10:00
--
已解决！谢谢有点甜