Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]获取openQQ在线数


  共有1890人关注过本帖树形打印复制链接

主题：[求助]获取openQQ在线数
帅哥哟，离线，有人找我吗？
jyh7081
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：963 积分：8510 威望：0 精华：0 注册：2012/10/3 13:25:00 		[求助]获取openQQ在线数  发帖心情 Post By：2017/10/6 21:05:00 [只看该作者]

我把openQQ集成到项目中，启动项目的同时启动openQQ客户端，怎样获取QQ客户端的在线人数或项目的登录人数？
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/10/7 10:24:00 [只看该作者]

参考

 

http://www.foxtable.com/webhelp/scr/3009.htm

 

如果想获取在线人数，可以给服务器发送一个请求【询问】在线人数，服务器返回具体的人数。

 

也可以直接获取自己好友的人数 QQClient.Buddies.Count
 回到顶部
帅哥哟，离线，有人找我吗？
jyh7081
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：963 积分：8510 威望：0 精华：0 注册：2012/10/3 13:25:00 		  发帖心情 Post By：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
按此在新窗口浏览图片
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/10/8 10:45:00 [只看该作者]

发信息很简单，参考

 

http://www.foxtable.com/webhelp/scr/2978.htm

 
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04883 秒, 4 次数据查询