Foxtable(狐表)用户栏目专家坐堂 → openQQ相关


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

主题:openQQ相关

帅哥哟,离线,有人找我吗?
cd_tdh
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3082 积分:20596 威望:0 精华:0 注册:2016/3/28 16:57:00
openQQ相关  发帖心情 Post By:2021/3/17 15:09:00 [只看该作者]

老师OpenQQ我根据用户管理表生成,用户表中有一列标记,标记为停用的不在OPenQQ窗口中生成,在哪儿设置啊?

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106700 积分:542695 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/17 15:27:00 [只看该作者]

添加好友的时候过滤掉:http://www.foxtable.com/webhelp/topics/2969.htm

比如
'添加所有同事为好友
For
 Each dr2 As DataRow In DataTables("用户").DataRows

改为

For Each dr2 As DataRow In DataTables("用户").select("标记=false")

 回到顶部
帅哥哟,离线,有人找我吗?
cd_tdh
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3082 积分:20596 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2021/3/17 15:29:00 [只看该作者]

是在服务端的UserLogging事件还是客服端的这个事件设置呢?


For
Each dr2 As DataRow In DataTables("用户").Select("[标记]='1'")
    Dim nm As Stringdr2("部门") & "." & dr2("姓名")
    If nm <>e.UserName Then '如果不是登录者本人
        e.Buddies.Add(nm)
    End
If

Next


 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106700 积分:542695 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/17 15:34:00 [只看该作者]

在哪个事件上面的帮助有说明,请仔细看看

 回到顶部
帅哥哟,离线,有人找我吗?
cd_tdh
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3082 积分:20596 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2021/3/17 15:37:00 [只看该作者]

我没表达清楚吧,应该是服务器上的服务端设置吧,前端我改了没反应


 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106700 积分:542695 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/17 15:40:00 [只看该作者]

服务端事件。有用户登录OpenQQ时,会触发OpenQQ服务端事件UserLogging,

 回到顶部