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

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

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

有点甜

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

加好友

发短信

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

Post By：2019/5/14 16:57:00 [显示全部帖子]

参考

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

有点甜

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

加好友

发短信

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

Post By：2019/5/16 8:55:00 [显示全部帖子]

直接做一个按钮，然后写代码就可以了啊

有点甜

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

加好友

发短信

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

Post By：2019/5/16 8:56:00 [显示全部帖子]

请具体说明你要做什么，和什么对接，实现什么功能。

有点甜

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

加好友

发短信

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

Post By：2019/5/16 10:53:00 [显示全部帖子]

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

有点甜

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

加好友

发短信

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

Post By：2019/5/16 11:41: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)

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | 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)

有点甜

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | 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)

有点甜

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

有点甜

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | 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。

有点甜

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

加好友

发短信

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

Post By：2019/5/16 17:07:00 [显示全部帖子]

Dim jo As New JObject
Dim ja As New JArray

ja.Add(New JObject) '给数组添加两个对象成员
ja.Add(New JObject)

ja(0)("title")="时代的火车向前开"
ja(0)("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"
ja(0)("picURL")="https://www.dingtalk.com"

ja(1)("title")="时代的火车向前开222"
ja(1)("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"
ja(1)("picURL")="https://www.dingtalk.com"

jo("feedCard")= new JObject
jo("feedCard")("links")=ja
jo("msgtype")="feedCard"

Output.Show(jo.ToString)
hc.Content = jo.ToString
Dim ret As String = hc.GetData()
MessageBox.Show(ret)

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

总数 11 1 2 下一页

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