| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 企业号开发主动发消息问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=140370) |
| -- 作者：malavazos -- 发布时间：2019/9/4 13:52:00 -- 企业号开发主动发消息问题 接收消息、及自动回复调试均已经正常，但是我在实验主动发消息时，没有报错，但是我没有接收到消息？布置是何种原因？ Dim ur As String = "https://qyapi.weixin.qq.com/cgi-bin/message/send?access_token={0}" Dim hc As new HttpClient(Cexp(ur,Functions.Execute("GetQYAccessToken"))) Dim jo As New JObject jo("touser") = "mazhixin|1000034" jo("msgtype") = "text" jo("agentid") = 1000036 jo("text") = New JObject jo("text")("content") = "您好,这是测试信息" hc.Content = jo.ToString jo = JObject.Parse(hc.GetData) If jo("errcode") = "0" Then MessageBox.show("消息发送成功!") Else MessageBox.show(jo.ToString) End If
|
| -- 作者：有点蓝 -- 发布时间：2019/9/4 14:15:00 -- 提示"消息发送成功!"？ 是使用1000036这个应用的secret获取的access_token吗？
mazhixin是您的成员ID？有被添加到1000036这个应用吗？ 只能发消息给成员，不能发消息给其它应用：jo("touser") = "mazhixin|1000034" |
| -- 作者：evolymft -- 发布时间：2021/4/27 18:51:00 -- jo("touser") = "mazhixin|leifeng" 老师：上面的等号后面如何使用变量？ 谢谢
|
| -- 作者：有点蓝 -- 发布时间：2021/4/27 20:10:00 -- 什么类型的变量，变量的值是什么？ |
| -- 作者：evolymft -- 发布时间：2021/4/27 20:20:00 -- 文本型，比如：lilie,yangjun,linsha ,bob 等 |
| -- 作者：有点蓝 -- 发布时间：2021/4/27 20:21:00 -- dim s as string = "lilie,yangjun,linsha,bob" jo("touser") = s.replace(",","|") |
| -- 作者：evolymft -- 发布时间：2021/4/28 11:27:00 -- 谢谢老师。 |