以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  OpenQQ统计在线人数  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=128294)
--  作者：cd_tdh
--  发布时间：2018/12/3 12:19:00
--  OpenQQ统计在线人数

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

这样能显示在线、离线状态，怎么去统计在线的人数呢？
--  作者：有点甜
--  发布时间：2018/12/3 12:47:00
--  

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

 

方法二：客户端循环buddies，判断online，然后累加1即可
--  作者：cd_tdh
--  发布时间：2018/12/3 16:14:00
--  

有点甜老师方法2怎么去累加？
--  作者：有点甜
--  发布时间：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)