参照企业微信接口文档写的发送任务卡片消息怎么实现批准或驳回点击后进入对应的页面呢？如test1.htm test2.htm - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

https://work.weixin.qq.com/api/doc/90000/90135/90236?st=F611A22821CB322214D3C231C1F442FC390FADB82BEF7A0B05040C8DD562E71BCBA0A47451463C0333EAE3B56ADF40E3C99214D509E571772567E1671A98AC75A5B4DA9BC921156745A48E2ED9D1FAD042A927F1F3CBACD264A0D53D485264061F44ACD06398CC4839BBFC846869AC9E0EF74D67A6426803C147296FA37FFF340765E18FC4890A7ED4A2B3B2C0A769AA&vid=1688853087703446&cst=25E484E625FFB0BBDFD77FD95BB43B762EFFFE9D6E5AB2B19EF8B4E896C3F8A38248BF3797137A0608D86BDA2B2BE21C&deviceid=6917ad20-227b-45af-a2e4-3fed6dcfca0f&version=2.8.15.2044&platform=win#%E4%BB%BB%E5%8A%A1%E5%8D%A1%E7%89%87%E6%B6%88%E6%81%AF

参照这个接口文档写的发送任务卡片消息

代码如下：

Dim ur As String = "https://qyapi.weixin.qq.com/cgi-bin/message/send?access_token={0}"

Dim hc As new HttpClient(Cexp(ur,_lianjiema))

Dim jo As New JObject

Dim ja As New JArray

jo("touser") = "LiXiaoChun"

jo("msgtype") = "taskcard"

jo("agentid") = _agentid

jo("taskcard") = New JObject

jo("taskcard")("title") = "物品申请"

jo("taskcard")("description") = "物品申请用途:"

jo("taskcard")("url") ="https://work.weixin.qq.com"

jo("taskcard")("task_id") ="hhfuwhfuib-_@11"

jo("taskcard")("btn")=ja

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

ja.Add(New JObject)

ja(0)("key") ="key111"

ja(0)("name") ="批准"

ja(0)("replace_name") ="已批准"

ja(0)("color") ="red"

ja(0)("is_bold") =True

ja(1)("key") ="key222"

ja(1)("name") ="驳回"

ja(1)("replace_name") ="已驳回"

hc.Content = jo.ToString

jo = JObject.Parse(hc.GetData)

If jo("errcode") = "0" Then

MessageBox.show("消息发送成功!")

Else

MessageBox.show(jo.ToString)

End If

怎么实现批准或驳回点击后进入对应的页面呢？如test1.htm test2.htm

[此贴子已经被作者于2020/7/17 11:53:41编辑过]

更新任务卡片消息状态

Dim ur As String = "https://qyapi.weixin.qq.com/cgi-bin/message/update_taskcard?access_token={0}"

Dim hc As new HttpClient(Cexp(ur,_lianjiema))

Dim jo As New JObject

Dim ja As New JArray

jo("userids") = "LiXiaoChun"

jo("agentid") = _agentid

jo("task_id") ="hhfuwhfuib-_@11"

jo("clicked_key")="key111"

'hc.Content = jo.ToString

'jo = JObject.Parse(hc.GetData)

If jo("errcode") = "0" Then

MessageBox.show("消息发送成功!")

output.show(jo.ToString)

Else

output.show(jo.ToString)

End If

运行结果

{

"userids": "LiXiaoChun",

"agentid": "1000003",

"task_id": "hhfuwhfuib-_@11",

"clicked_key": "key111"

}

这个能够用作什么用途呢？

主题：参照企业微信接口文档写的发送任务卡片消息 怎么实现批准 或 驳回点击后进入对应的页面呢？如test1.htm test2.htm

更新任务卡片消息状态

主题：参照企业微信接口文档写的发送任务卡片消息怎么实现批准或驳回点击后进入对应的页面呢？如test1.htm test2.htm