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


  共有3803人关注过本帖树形打印复制链接

主题：【已解决】[求助]请问狐表能写http的请求吗？钉钉群机器人
帅哥哟，离线，有人找我吗？
zto001
 小大  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1465 积分：10397 威望：0 精华：0 注册：2018/10/16 11:42:00 		  发帖心情 Post By：2019/5/16 16:13:00 [只看该作者]

Dim hc As New HttpClient("https://oapi.dingtalk.com/robot/send?access_token=5a5c4ab46953f33575654b30df86092531e907eec0826c3516a2fccbfd9877d1")
hc.c
hc.Timeout = 5 '设置超时为5秒

Dim jo As New JObject
Dim ja As New JObject

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")("links")=ja
jo("msgtype")="feedCard"


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

Output.Show(jo.ToString)



帮我看看哪里写错了
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/5/16 17:07: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
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)

 

 
 回到顶部
帅哥哟，离线，有人找我吗？
playmal
 小大  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1562 积分：12826 威望：0 精华：0 注册：2009/6/16 7:30:00 		  发帖心情 Post By：2021/12/27 18:30:00 [只看该作者]

看看

 回到顶部
总数 23 上一页 1 2 3
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03125 秒, 4 次数据查询