- 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=107656)
-- 发布时间：2017/10/6 21:05:00
-- [求助]获取openQQ在线数
我把openQQ集成到项目中，启动项目的同时启动openQQ客户端，怎样获取QQ客户端的在线人数或项目的登录人数？
-- 发布时间：2017/10/7 10:24:00
--
参考
http://www.foxtable.com/webhelp/scr/3009.htm
如果想获取在线人数，可以给服务器发送一个请求【询问】在线人数，服务器返回具体的人数。
也可以直接获取自己好友的人数 QQClient.Buddies.Count
-- 发布时间：2017/10/8 10:36:00
--
不会给服务器发请求，按老师的提示建了一个“用户管理”表，设置个[状态]列，见图：
按照获取在线好友的方法写了段代码，运行报错，请老师指教：
For Each bd As QQBuddy In QQClient.Buddies
If bd.Online Then
Dim dr As DataRow
dr = DataTables("用户管理").Find("用户名 = bd ")
If dr IsNot Nothing Then \'如果找到的话
dr("状态")= "在线"
Else
dr("状态")= "离线"
End If
End If
Next
Dim cnt As Integer
cnt = DataTables("用户管理").Compute("Count([状态])", "状态 = \'在线\'")
Output.Show("在线人数:" & cnt)
此主题相关图片如下：12.jpg
-- 发布时间：2017/10/8 10:45:00
--
发信息很简单，参考
http://www.foxtable.com/webhelp/scr/2978.htm