[求助]OPENQQ接收和发送消息的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

使用了openQQ，发现有个问题。

1、qqclient接收离线消息的问题。如果服务器离线消息的时间是12:00，但是用户登录的时间是13:00，此时在消息表中看到发送消息是13:00，而不是12:00，这个似乎有点问题。如果希望显示服务器发出消息的时间，而不是转发的时间，该如何处理？

2、在qqclient中定义了一个全局变量CUser，用来获取登录成功时用户的账号。然后在客户端的ReceivedMessage事件中这样写

Dim dr As DataRow = DataTables("信息").AddNew
dr("接收者") = CUser
dr("时间") = Date.Now()
dr("信息") = e.Message

如果是在线，接收者列会显示CUser

但是如果系统先发离线消息，然后客户端再登录，登录成功以后，接收者列会显示空白。

意思是：登录成功的时候，还没有给Cusr赋值，消息就已经接收了？如果希望能给接收者列赋值，该怎么处理呢？

[此贴子已经被作者于2022/10/18 17:59:50编辑过]

1、我测试没有问题

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

2、是在什么时候给CUser变量赋值的？

可能意思没有表述完整。

1、在登录界面的登录时，给全局变量CUser（当前登录账号）赋值

QQClient.ServerIP = "127.0.0.1" '指定服务器IP地址

QQClient.ServerPort = 52177 '指定服务器登录端口

QQClient.UserName = "李桂兰"

QQClient.Password = "888"

CUser = "" 'CUser是预设的全局变量，给登录成功时的账号赋值

If QQClient.Start() = True '如果登录成功

CUser ＝ QQClient.UserName

Else '如果登录失败,显示服务器返回错误信息

PopMessage("QQClient登录失败,原因:" & vbcrlf & QQClient.ServerMessage,"提示",PopiconEnum.Error,5)

End If

2、不是用内置聊天窗口给用户发信息，而是在QQServer中给用户发信息

QQServer.Send("李桂兰","测试信息",true)

比如李桂兰离线时，12：00时在QQServer的命令窗口发送此消息，此时服务器的临时数据库中确实是12：00发送消息

而李桂兰在13：00登录系统，此时服务器转发消息

但接收消息的时间显示为李桂兰登录的时间，而且接收用户列是空值。

如果此时再在QQServer的命令窗口发消息，QQServer.Send("李桂兰","测试信息新",true)，此时发送消息的时间就是当前时间，这个也不算错误，因为赋值就是date.now。但这个没有什么意义，我是希望得到系统发消息的时间。

我的问题是：

1、为什么登录成功之后，接收的消息，显示的离线消息中，接收用户列是空值。

2、如何获取服务器真正的发出消息的时间？而不是date.now。因为那样，员工有理由说，我没有登录系统，我不知道要我做什么事。系统是刚才发消息给我的，不能算我延误工作。如果显示的是系统发消息的时间，那在工作时间内不登录那就是员工的事了

[此贴子已经被作者于2022/10/19 8:53:31编辑过]

1、换种方式

……

QQClient.UserName = "李桂兰"

QQClient.Password = "888"

CUser = "李桂兰" 'CUser是预设的全局变量，给登录成功时的账号赋值

If QQClient.Start() = True '如果登录成功

Else '如果登录失败,显示服务器返回错误信息

CUser ＝ ""

PopMessage("QQClient登录失败,原因:" & vbcrlf & QQClient.ServerMessage,"提示",PopiconEnum.Error,5)

End If

2、代码使用的【dr("时间") = Date.Now()】赋值，当然就是当前电脑时间了，ReceivedMessage事件并没有发送时间的参数，我反馈一下，看能不能加上

主题：[求助]OPENQQ接收和发送消息的问题