[求助]如何在服务器端保留用户之间、服务器与用户之间的发送和接收消息 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

目前帮助里的openQQ，服务器一旦消息发送成功或者转发消息成功，这些消息就从自带的数据库中清除了。

如何保留服务器主动发送、服务器转发的消息呢？

我建了宋江和吴用两个账号，而且都登录了，然后用吴用的账号在命令窗口里这样

QQClient.Send("宋江","看看服务器能转发这条消息吗",True)

但在宋江的消息mdb里并没有这条消息

服务器这样

QQServer.Send("宋江","服务器有直发这条消息吗",True)

服务器的消息mdb里并没有这条消息

试了一下，QQServer.Send的信息不会在自带的数据库里，QQServer.SendNotice才会？

[此贴子已经被作者于2022/8/20 18:35:07编辑过]

不使用系统内置的用户表，而是使用共享数据库的用户表，而且用户表没有部门这一列，只有工号、姓名、密码这三列。

不使用内置聊天窗口

拿实际数据测试情况如下

1、服务器使用QQServer.SendNotice("宋江","上午9点集合,地点人民广场!")

那么这个消息在发送完以后，当宋江不在线时，会存放在服务器的消息mdb中，而且会在宋江登录上线以后，会出现在宋江的消息mdb中，但不会出现在内部表的消息表中；然后这条消息在服务器的消息mdb中会自动清除

2、服务器使用QQServer.Send("宋江","上午9点集合,地点人民广场!",true)

那么这个消息在发送完以后，当宋江不在线时，不知道会存放在哪里

在宋江登录上线以后，不会出现在宋江的消息mdb中，但会出现在内部表的消息表中

服务器使用SendNotice和Send发送消息，客户端存放的地址正好相反。前者存在用户.mdb中，后者存在内部表中

问题是：信息内部表是所有用户共用的，例如张三和李四共用一台电脑，但使用不同账户登录时，内部“信息”表无法区分消息是发给谁的

如果用户不使用内部聊天窗口，就找不到历史消息记录了

2、客户端的账号“吴用”使用QQClient.Send("宋江","吴用给宋江的信息1",true)

这时候，不论在服务端.mdb，还是吴用.mdb，还是宋江mdb，还是客户端的内部“信息”表都看不到这条信息

当宋江再登录的时候，这条消息也接收不到。

3、客户端的账号“吴用”使用QQClient.Send("吴用给服务器的信息1")

这时候，不论在服务端.mdb，还是吴用.mdb，还是客户端的内部“信息”表都看不到这条信息

这是不是有问题啊？

（1）服务器使用send发送的消息，只能存放在客户端的“信息”内部表中，而且无法识别服务器发给谁的。在接收者.mdb中看不到记录

（2）客户端使用send发给服务器或者其它用户的信息，不论在客户端的“信息”内部表、还是服务器.mdb、接收者.mdb、发送者.mdb中都找不到

（3）只有服务端使用sendnotice发给用户的消息，才能在接收者.mdb中看得到

也就是说，不用部门.用户，用户间互相发消息都用不了

[此贴子已经被作者于2022/8/20 22:58:48编辑过]

帮助里的：自定义信息提示窗口
此主题相关图片如下：bug.png

里，所使用的

QQClient.Send("李四","+@|" & r("_Identify") & "|" & r("单号") & "|" & User.Name)

没法用得上

因为张三直接给李四发消息，根本就收不到

[此贴子已经被作者于2022/8/20 23:16:32编辑过]

使用代码发送的消息，自己在ReceivedMessage事件记录接收的消息

有啊，我现在复制了两个qqclient一个叫qqclient宋江，一个叫qqclient吴用

然后它们的客户端ReceivedMessage事件都有啊（抄的示例文件的）

Dim dr As DataRow = DataTables("信息").AddNew

dr("发送者") = IIf(e.UserName > "", e.UserName, "服务器")

dr("时间") = Date.Now()

dr("信息") = e.Message

在宋江的命令窗口发送信息

QQClient.Send("吴用","今天去劫个法场")

吴用的客户端无反应

此主题相关图片如下：无标题.png

[此贴子已经被作者于2022/8/21 22:55:21编辑过]

应该是接收的用户名不正确。

用于发送信息，语法为：

Send(BuddyName, Message, Anyway)

BuddyName: 好友名称
Message：信息内容
AnyWay：可选参数，逻辑型，如果对方不在线，是否发离线消息。

例如向生产部的林海发送消息：

QQClient.Send("生产部.林海","今天的任务完成了吗")

服务端是怎么添加好友的？

主题：[求助]如何在服务器端保留用户之间、服务器与用户之间的发送和接收消息