以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  获取OPENQQ在线数  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=119150)
--  作者：zoyong
--  发布时间：2018/5/18 15:15:00
--  获取OPENQQ在线数

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

 

 

为什么我的代码获取永远是0

--  作者：有点甜
--  发布时间：2018/5/18 15:33:00
--  

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

 

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

 

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