可能意思没有表述完整。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编辑过]