主题：获取OPENQQ在线数

代码要在服务器端获取才行的。

Dim yhs As Integer
yhs = QQServer.Users.Count
msgbox(yhs)

如果你客户端要获取，可以发信息询问服务器有多少人。或者是看自己的好友，有多少个人是在线的。