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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于http post 发送数据的问题

共有2318人关注过本帖树形打印复制链接主题：关于http post 发送数据的问题

km007

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

加好友

发短信

等级：一尾狐帖子：485 积分：5843 威望：0 精华：0 注册：2016/1/28 2:59:00

关于http post 发送数据的问题 发帖心情

Post By：2017/9/6 22:58:00 [显示全部帖子]

请问我想向某个地址链接发起 http post 请求，

以下是数据格式

{

"msgtype": "text",

"text": {

"content": "我就是我, 是不一样的烟火"

"at": {

"atMobiles": [

"13800138000",

"1300138001"

"isAtAll": false

}

狐表里应该如何写代码？

km007

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

加好友

发短信

等级：一尾狐帖子：485 积分：5843 威望：0 精华：0 注册：2016/1/28 2:59:00

Post By：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编辑过]

km007

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

加好友

发短信

等级：一尾狐帖子：485 积分：5843 威望：0 精华：0 注册：2016/1/28 2:59:00

Post By：2017/9/7 10:10:00 [显示全部帖子]

已解决！谢谢有点甜

下一主题 >> << 上一主题

主题：关于http post 发送数据的问题