【已解决】[求助]请问狐表能写http的请求吗？钉钉群机器人 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 【已解决】[求助]请问狐表能写http的请求吗？钉钉群机器人

共有3877人关注过本帖树形打印复制链接主题：【已解决】[求助]请问狐表能写http的请求吗？钉钉群机器人

zto001

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

加好友

发短信

等级：六尾狐帖子：1465 积分：10403 威望：0 精华：0 注册：2018/10/16 11:42:00

Post By：2019/5/16 11:56:00 [只看该作者]

@人消息代码

Dim hc As New HttpClient("https://oapi.dingtalk.com/robot/send?access_token=5a5c4ab46953f33575654b30df86092531e907eec0826c3516a2fccbfd9877d1")

hc.c

hc.Timeout = 5 '设置超时为5秒

hc.C

Dim ret As String = hc.GetData()

MessageBox.Show(ret)

zto001

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

加好友

发短信

等级：六尾狐帖子：1465 积分：10403 威望：0 精华：0 注册：2018/10/16 11:42:00

Post By：2019/5/16 11:59:00 [只看该作者]

'''

Dim hc As New HttpClient("https://oapi.dingtalk.com/robot/send?access_token=5a5c4ab46953f33575654b30df86092531e907eec0826c3516a2fccbfd9877d1")

hc.c

hc.Timeout = 5 '设置超时为5秒

hc.C

Dim ret As String = hc.GetData()

MessageBox.Show(ret)

40035 不合法的参数检查下有没有传请求参数，一般发生在http post形式的接口里，没有传参数

这个又是什么？

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/5/16 12:00:00 [只看该作者]

Dim hc As New HttpClient("https://oapi.dingtalk.com/robot/send?access_token=5a5c4ab46953f33575654b30df86092531e907eec0826c3516a2fccbfd9877d1")
hc.contentType = "application/json"
hc.Timeout = 5 '设置超时为5秒
hc.Content = "{'msgtype': 'text','text': {'content': '我就是我, 是不一样的烟火'}}"
Dim ret As String = hc.GetData()
MessageBox.Show(ret)

zto001

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

加好友

发短信

等级：六尾狐帖子：1465 积分：10403 威望：0 精华：0 注册：2018/10/16 11:42:00

Post By：2019/5/16 12:30:00 [只看该作者]

抱歉抱歉，复制错了

'''
Dim hc As New HttpClient("https://oapi.dingtalk.com/robot/send?access_token=5a5c4ab46953f33575654b30df86092531e907eec0826c3516a2fccbfd9877d1")
hc.contentType = "application/json"
hc.Timeout = 5 '设置超时为5秒
hc.Content = "{ 'msgtype': 'link', 'link': { 'text': '这个即将发布的新版本,创始人陈航(花名'无招')称它为'红树林'. 而在此之前,每当面临重大升级,产品经理们都会取一个应景的代号,这一次,为什么是'红树林'?', 'title': '时代的火车向前开', 'picUrl': '', 'messageUrl': '

https://www.dingtalk.com/s?__biz=MzA4NjMwMTA2Ng==&mid=2650316842&idx=1&sn=60da3ea2b29f1dcc43a7c8e4a7c97a16&scene=2&srcid=09189AnRJEdIiWVaKltFzNTw&from=timeline&isappinstalled=0&key=&ascene=2&uin=&devicetype=android-23&version=26031933&nettype=WIFI' } }"
Dim ret As String = hc.GetData()
MessageBox.Show(ret)

40035 不合法的参数检查下有没有传请求参数，一般发生在http post形式的接口里，没有传参数

这个又是什么？

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/5/16 13:22:00 [只看该作者]

Dim hc As New HttpClient("https://oapi.dingtalk.com/robot/send?access_token=5a5c4ab46953f33575654b30df86092531e907eec0826c3516a2fccbfd9877d1")
hc.contentType = "application/json"
hc.Timeout = 5 '设置超时为5秒
Dim jo As new JObject
jo("msgtype") = "link"
Dim link As new JObject
link("text") = "这个即将发布的新版本,创始人陈航(花名'无招')称它为'红树林'. 而在此之前,每当面临重大升级,产品经理们都会取一个应景的代号,这一次,为什么是'红树林'?"
link("title") = "时代的火车向前开"
link("picUrl") = ""
link("messageUrl") = "https://www.dingtalk.com/s?__biz=MzA4NjMwMTA2Ng==&mid=2650316842&idx=1&sn=60da3ea2b29f1dcc43a7c8e4a7c97a16&scene=2&srcid=09189AnRJEdIiWVaKltFzNTw&from=timeline&isappinstalled=0&key=&ascene=2&uin=&devicetype=android-23&version=26031933&nettype=WIFI"
jo("link") = link
hc.Content = jo.ToString
Dim ret As String = hc.GetData()
MessageBox.Show(ret)

zto001

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

加好友

发短信

等级：六尾狐帖子：1465 积分：10403 威望：0 精华：0 注册：2018/10/16 11:42:00

Post By：2019/5/16 13:46:00 [只看该作者]

请问下这种怎么写？格式内容不一样

FeedCard类型

{
    "feedCard": {
        "links": [
            {
                "title": "时代的火车向前开", 
                "messageURL": "https://www.dingtalk.com/s?__biz=MzA4NjMwMTA2Ng==&mid=2650316842&idx=1&sn=60da3ea2b29f1dcc43a7c8e4a7c97a16&scene=2&srcid=09189AnRJEdIiWVaKltFzNTw&from=timeline&isappinstalled=0&key=&ascene=2&uin=&devicetype=android-23&version=26031933&nettype=WIFI", 
                "picURL": "https://www.dingtalk.com/"
            },
            {
                "title": "时代的火车向前开2", 
                "messageURL": "https://www.dingtalk.com/s?__biz=MzA4NjMwMTA2Ng==&mid=2650316842&idx=1&sn=60da3ea2b29f1dcc43a7c8e4a7c97a16&scene=2&srcid=09189AnRJEdIiWVaKltFzNTw&from=timeline&isappinstalled=0&key=&ascene=2&uin=&devicetype=android-23&version=26031933&nettype=WIFI", 
                "picURL": "https://www.dingtalk.com/"
            }
        ]
    }, 
    "msgtype": "feedCard"
}

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/5/16 15:28:00 [只看该作者]

请学习

http://www.foxtable.com/mobilehelp/scr/0167.htm

zto001

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

加好友

发短信

等级：六尾狐帖子：1465 积分：10403 威望：0 精华：0 注册：2018/10/16 11:42:00

Post By：2019/5/16 15:45:00 [只看该作者]

是这个是吗？

示例三

生成包括嵌套对象的JSON。

在命令窗口执行：

Dim jo As New JObject
jo("name") = "李云龙"
jo("age") = "36"
jo("card") = New JObject
jo("card")("bank") = "工行"
jo("card")("account") = "12345678"
Output.Show(jo.ToString)

显示的结果为：

{
"name": "李云龙",
"age": "36",
"card": {
"bank": "工行",
"account": "12345678"
}
}

zto001

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

加好友

发短信

等级：六尾狐帖子：1465 积分：10403 威望：0 精华：0 注册：2018/10/16 11:42:00

Post By：2019/5/16 15:46:00 [只看该作者]

示例四

生成包括数组的JSON。

在命令窗口执行：

Dim jo As New JObject
jo("Name") = "张三"
jo("Group") = "VIP"
Dim ja As New Jarray '定义数组
ja.Add("manager")
ja.Add("developer")
jo("Roles") = ja '将Roles设置为前面定义的数组
Output.Show(jo.ToString)

显示的结果为：

{
"Name": "张三",
"Group": "VIP",
"Roles": [
"manager",
"developer"
]
}

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/5/16 15:52:00 [只看该作者]

示例五

生成包括对象数组的JSON。

在命令窗口执行：

Dim jo As New JObject
Dim ja As New JArray
jo("dept") = "销售部"
jo("mpr") = "赵刚"
jo("staff") = ja '
ja.Add(New JObject) '给数组添加两个对象成员
ja.Add(New JObject)
ja(0)("name") = "李云龙"
ja(0)("age") = 36
ja(1)("name") = "黄晓明"
ja(1)("age") = 26
Output.Show(jo.ToString)

显示的结果为：

{
"dept": "销售部",
"mpr": "赵刚",
"staff": [
    {
      "name": "李云龙",
      "age": 36
    },
    {
      "name": "黄晓明",
      "age": 26
    }
]
}

对象数组也是一个数组，只不过这个数组的成员也是JObject，JObject的成员可以是数组，数组的成员可以是JObject，二者可以层层嵌套，生成任意复杂的JSON。

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

总数 23 上一页 1 2 3 下一页

主题：【已解决】[求助]请问狐表能写http的请求吗？钉钉群机器人

FeedCard类型