日志定时提醒 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 日志定时提醒

共有2204人关注过本帖树形打印复制链接主题：日志定时提醒

yifan3429

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

加好友

发短信

等级：九尾狐帖子：2482 积分：22932 威望：0 精华：0 注册：2011/3/29 17:14:00

日志定时提醒 发帖心情

Post By：2018/3/19 1:44:00 [显示全部帖子]

单独做的日志数据，希望可以向职员在17；00 发出日志填写提醒

怎么结合 AgentId Secret 向可见范围的人员发出信息呢

yifan3429

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

加好友

发短信

等级：九尾狐帖子：2482 积分：22932 威望：0 精华：0 注册：2011/3/29 17:14:00

Post By：2018/3/19 9:12:00 [显示全部帖子]

微信已进入

yifan3429

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

加好友

发短信

等级：九尾狐帖子：2482 积分：22932 威望：0 精华：0 注册：2011/3/29 17:14:00

Post By：2018/3/21 9:13: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") = "laoliu|zhangsan"
jo("msgtype") = "text"
jo("agentid") = 9
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

怎么改成向全部的用户发出提醒信息

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

主题：日志定时提醒