| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 显示在线人数和用户 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=145314) |
| -- 作者：恒隆君 -- 发布时间：2020/1/15 22:10:00 -- 显示在线人数和用户 如何显示在线人数和用户 |
| -- 作者：shenyl0211 -- 发布时间：2020/1/15 23:46:00 -- Dim name As String For Each bd As QQBuddy In QQClient.Buddies If bd.Online Then name = name & vbcrlf & bd.Name End If Next If name <> "" Then MessageBox.Show("除你外 " & name.Split(vbcrlf).Length-1 & " 人在线:" & vbcrlf & vbcrlf & name.SubString(2)) Else MessageBox.Show("就你一人在线!") End If
|
| -- 作者：恒隆君 -- 发布时间：2020/1/19 13:37:00 -- 谢谢~ 必须要使用Open QQ吧
|
| -- 作者：有点蓝 -- 发布时间：2020/1/19 14:08:00 -- 要显示项目的登录在线人数？建议使用openQQ，不然要自己做用户管理，然后在用户表添加一个列记录是否在线，登录后把在线设置为true，关闭系统就把在线设置为false |