Foxtable(狐表)用户栏目专家坐堂 → [求助]OpenQQ 无法接收离线消息


  共有3384人关注过本帖树形打印复制链接

主题:[求助]OpenQQ 无法接收离线消息

帅哥哟,离线,有人找我吗?
kensou11111
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:255 积分:2359 威望:0 精华:0 注册:2011/4/25 9:23:00
[求助]OpenQQ 无法接收离线消息  发帖心情 Post By:2021/4/25 19:33:00 [只看该作者]

我在本机上测试OpenQQ,在服务端运行以下代码,为何客户端无法接收离线消息,只能接收到在线消息?QQserver 是按照帮助的例子来设置的。


QQServer.Send("B.李四","测试信息",True)



图片点击可在新窗口打开查看此主题相关图片如下:搜狗截图20210425192800.png
图片点击可在新窗口打开查看


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111412 积分:567130 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/4/25 20:56:00 [只看该作者]

测试没有问题。使用代码发送的消息只能到ReceivedMessage事件接收。请到客户端ReceivedMessage事件写代码接收

 回到顶部
帅哥哟,离线,有人找我吗?
kensou11111
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:255 积分:2359 威望:0 精华:0 注册:2011/4/25 9:23:00
  发帖心情 Post By:2021/4/25 23:45:00 [只看该作者]

确实是在客户端的ReceivedMessage事件接收的,代码如下,只能收到在线消息,无法收到离线消息。


Dim str As String = e.Message

Dim dr As DataRow = DataTables("表A").AddNew
dr("发送者") = iif(e.UserName > "",e.UserName,"服务器")
dr("时间") = Date.Now()
dr("信息") = str

PopMessage(str,"提示", PopIconEnum.Infomation)


图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2021/4/25 23:47:26编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
kensou11111
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:255 积分:2359 威望:0 精华:0 注册:2011/4/25 9:23:00
  发帖心情 Post By:2021/4/26 0:04:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:desktop.rar


这是测试项目

 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111412 积分:567130 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/4/26 9:06:00 [只看该作者]

测试是因为这个用户没有好友,添加一个好友即可。这个问题已经反馈,看下个版本能不能改进

 回到顶部
帅哥哟,离线,有人找我吗?
kensou11111
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:255 积分:2359 威望:0 精华:0 注册:2011/4/25 9:23:00
  发帖心情 Post By:2021/4/26 9:25:00 [只看该作者]

测试了一下,给所有登录的OpenQQ用户统一加上了一个好友,现在离线消息已经可以正常收到了。

 回到顶部