主题：OpenQQ统计在线人数

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

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

dim count = 0

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

        count += 1

    end if
Next

msgbox(count)