以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  参照企业微信接口文档写的发送任务卡片消息 怎么实现批准 或 驳回点击后进入对应的页面呢？如test1.htm test2.htm  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=152650)
--  作者：李孝春
--  发布时间：2020/7/17 11:33:00
--  参照企业微信接口文档写的发送任务卡片消息 怎么实现批准 或 驳回点击后进入对应的页面呢？如test1.htm test2.htm
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编辑过]
--  作者：有点蓝
--  发布时间：2020/7/17 12:02:00
--  
jo("taskcard")("url") ="https://自己的域名如www.foxtable.com/xxx.htm?id=00001"
--  作者：李孝春
--  发布时间：2020/7/17 12:21:00
--  回复：（有点蓝）jo("taskcard")("url") ="https://自...
老师  
二楼代码是点卡片后可以进入页面
但是点批准  会提示已批准  点驳回 会提示已驳回
现在想实现的是点批准就进入test1页面
点驳回就进入test2页面
麻烦老师指导下   按照官方接口帮助文件  没有找到类似说明
--  作者：有点蓝
--  发布时间：2020/7/17 13:51:00
--  
没有办法，微信没有提供这种用法，按钮点击后需要导回调事件里接收结果，也就是到接收消息的地方接收

btn:key 是 按钮key值，用户点击后，会产生任务卡片回调事件，回调事件会带上该key值，只能由数字、字母和“_-@”组成，最长支持128字节
--  作者：李孝春
--  发布时间：2020/7/17 14:48:00
--  回复：（有点蓝）没有办法，微信没有提供这种用法，按...

更新任务卡片消息状态

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"
}

这个能够用作什么用途呢？
--  作者：有点蓝
--  发布时间：2020/7/17 14:52:00
--  
我也不知道。有需要就用，没有需要就不用