- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]测试openqq遇到点问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=79839)
-- 发布时间：2016/1/10 16:05:00
-- [求助]测试openqq遇到点问题
两个用户，张三，李四 都能正常登录，但是张三发给李四不能弹出信息，李四发给服务端可以正常弹出
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:foxtable项目.rar |
-- 发布时间：2016/1/10 16:14:00
--
要相互添加为好友，才能发送信息。
-- 发布时间：2016/1/10 16:16:00
--
\'添加所有同事为好友
For Each dr2 As DataRow In DataTables("用户").DataRows
Dim nm As String = dr2("部门") & "." & dr2("姓名")
If nm <> e.UserName Then \'如果不是登录者本人
e.Buddies.Add(nm)
End If
Next
-- 发布时间：2016/1/10 16:20:00
--
以下是引用大红袍在2016/1/10 16:14:00的发言：
要相互添加为好友，才能发送信息。
这种限制我以为是在聊天软件里做的限制……
另外，用户名必须要 部门.名称 吗?
限制太多了
-- 发布时间：2016/1/10 16:21:00
--
For Each dr2 As DataRow In DataTables("表A").DataRows
Dim nm As String = dr2("姓名")
If nm <> e.UserName Then \'如果不是登录者本人
e.Buddies.Add(nm)
End If
Next