- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 消息推送怎么做？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=163329)
-- 发布时间：2021/4/23 13:57:00
-- 消息推送怎么做？
蓝老师：
我简单做了一个消息推送实例，你帮我看看，怎么才能实现openQQ自动发信息的功能
忙了好几天，看了帮助，实在没办法实现工作流推送消息的功能
在实例中帮我做一下，麻烦您了！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:消息推送.part1.rar |
-- 发布时间：2021/4/23 14:39:00
--
首先，添加好友的时候使用的是单位+名称的方式，那么发送的接收人也必须是这种格式
QQClient.Send("第一服务公司.工作人员3","+@|" & r("_Identify") & "|" & r("采购单号") & "|" & _UserName,True)
其次，客户端【消息推送QQ_Open.Table】项目的ReceivedMessage事件按照这里写代码处理：http://www.foxtable.com/webhelp/topics/3011.htm，这事件里接收的数据e.Message就是上面蓝色的内容，接收到内容后检查分解处理
-- 发布时间：2021/4/23 15:07:00
--
没必要效果啊蓝老师
，您在实例中做一下呗
-- 发布时间：2021/4/23 15:11:00
--
把你做好的项目重新发上来
-- 发布时间：2021/4/23 15:30:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:消息推送.zip |
共三个项目，一个是服务器，一个是独立的QQ，一个是推送
[此贴子已经被作者于2021/4/23 15:31:58编辑过]
-- 发布时间：2021/4/23 15:44:00
--
压缩包有问题，无法解压。把这个【消息推送QQ_Open.Table】文件发上来即可，其它不需要
-- 发布时间：2021/4/23 16:34:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:消息推送qq_open.table |
麻烦您了，蓝老师
-- 发布时间：2021/4/23 17:18:00
--
学会理解一下代码，只抄没有用的。
QQClient.Send("第一服务公司.工作人员3","+@|" & r("_Identify") & "|" & r("采购单号") & "|" & _UserName,True)
发送的规则是"+@|"开头的数据,处理的代码判断是【msg.StartsWith("U#")或者msg.StartsWith("A#")】和"+@|"一点关系都没有，自己到ReceivedMessage调试看看
Dim msg As String = e.Message
msgbox(msg) ‘查看接收到的数据
简单的ReceivedMessage代码可以改为
Dim msg As String = e.Message
Dim pts() As String = msg.Split("|")
Dim dr As DataRow = DataTables("采购明细").Find("[采购单号] = " & pts(2))
if dr is nothing then DataTables("采购明细").AppendLoad("[采购单号] = " & pts(2))
dr = DataTables("采购明细").Find("[采购单号] = " & pts(2))
If dr IsNot Nothing Then
PopMessage("有新的订单需要审核!","提示",PopIconEnum.Infomation)
End If
PopMessage("有新的订单需要审核!","提示",PopIconEnum.Infomation)
End If
-- 发布时间：2021/4/23 22:19:00
--
msgbox(msg) 没有弹出，找不出问题？
好绝望啊
[此贴子已经被作者于2021/4/23 23:03:28编辑过]
-- 发布时间：2021/4/24 9:25:00
--
打开2个客户端项目，一个登录A用户，一个登录B用户，B用户登录了吗？A用户发送，B用户弹出