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


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

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

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


加好友 发短信
等级:童狐 帖子:255 积分:2353 威望: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
图片点击可在新窗口打开查看


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


加好友 发短信
等级:童狐 帖子:255 积分:2353 威望: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:255 积分:2353 威望:0 精华:0 注册:2011/4/25 9:23:00
  发帖心情 Post By:2021/4/26 0:04:00 [显示全部帖子]

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


这是测试项目

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


加好友 发短信
等级:童狐 帖子:255 积分:2353 威望:0 精华:0 注册:2011/4/25 9:23:00
  发帖心情 Post By:2021/4/26 9:25:00 [显示全部帖子]

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

 回到顶部