Foxtable(狐表)用户栏目专家坐堂 → [求助]获取openQQ在线数


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

主题:[求助]获取openQQ在线数

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


加好友 发短信
等级:四尾狐 帖子:968 积分:8551 威望:0 精华:0 注册:2012/10/3 13:25:00
[求助]获取openQQ在线数  发帖心情 Post By:2017/10/6 21:05:00 [只看该作者]

我把openQQ集成到项目中,启动项目的同时启动openQQ客户端,怎样获取QQ客户端的在线人数或项目的登录人数?


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/7 10:24:00 [只看该作者]

参考

 

http://www.foxtable.com/webhelp/scr/3009.htm

 

如果想获取在线人数,可以给服务器发送一个请求【询问】在线人数,服务器返回具体的人数。

 

也可以直接获取自己好友的人数 QQClient.Buddies.Count


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


加好友 发短信
等级:四尾狐 帖子:968 积分:8551 威望:0 精华:0 注册:2012/10/3 13:25:00
  发帖心情 Post By:2017/10/8 10:36:00 [只看该作者]

不会给服务器发请求,按老师的提示建了一个“用户管理”表,设置个[状态]列,见图:
按照获取在线好友的方法写了段代码,运行报错,请老师指教:
For Each bd As QQBuddy In QQClient.Buddies
    If bd.Online Then
        
        Dim dr As DataRow
        dr = DataTables("用户管理").Find("用户名 = bd ")
        If dr IsNot Nothing Then '如果找到的话
            dr("状态")= "在线"
        Else
            dr("状态")= "离线"
        End If
    End If
Next

Dim cnt As Integer
cnt = DataTables("用户管理").Compute("Count([状态])", "状态 = '在线'")
Output.Show("在线人数:" & cnt)

此主题相关图片如下:12.jpg
按此在新窗口浏览图片

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/8 10:45:00 [只看该作者]

发信息很简单,参考

 

http://www.foxtable.com/webhelp/scr/2978.htm

 


 回到顶部