Foxtable(狐表)用户栏目专家坐堂 → OpenQQ统计在线人数


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

主题:OpenQQ统计在线人数

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


加好友 发短信
等级:狐精 帖子:3106 积分:20733 威望:0 精华:0 注册:2016/3/28 16:57:00
OpenQQ统计在线人数  发帖心情 Post By:2018/12/3 12:19:00 [只看该作者]

For Each bd As QQBuddy In QQClient.Buddies '显示好友名和在线状态
    Output.Show(bd.Name & "(" & IIF(bd.Online,"在线","离线") & ")")
Next

这样能显示在线、离线状态,怎么去统计在线的人数呢?


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


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

方法一:直接给服务器发送一个信息,询问人数,服务器返回当前在线人数;

 

方法二:客户端循环buddies,判断online,然后累加1即可


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


加好友 发短信
等级:狐精 帖子:3106 积分:20733 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2018/12/3 16:14:00 [只看该作者]

有点甜老师方法2怎么去累加?


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


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

dim count = 0

For Each bd As QQBuddy In QQClient.Buddies '显示好友名和在线状态
    if bd.Online then

        count += 1

    end if
Next

msgbox(count)


 回到顶部