- 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=114657)
-- 发布时间：2018/2/12 14:51:00
-- openQQ登陆失败
之前登陆完全正常今天打开一直失败
此主题相关图片如下：qq截图20180212114917.png
-- 发布时间：2018/2/12 15:09:00
--
UserLogging事件,改代码
For Each dr2 As DataRow In DataTables("user").select("")
Dim nm As String = dr2("部门") & "." & dr2("name")
If nm <> e.UserName Then \'如果不是登录者本人
If e.Buddies.Contains(nm)= False Then
e.Buddies.Add(nm)
End If
End If
Next
-- 发布时间：2018/2/12 15:21:00
--
老师，还是不对
我是外部表，自定义登陆，登陆成功后通过模拟点击QQClient窗口的登陆按钮来登陆的OPenQQ
-- 发布时间：2018/2/12 15:24:00
--
贴出你 UserLogging 事件代码
-- 发布时间：2018/2/12 15:29:00
--
For Each dr2 As DataRow In DataTables("账号密码").Select("")
Dim nm As String = dr2("部门") & "." & dr2("姓名")
If nm <> e.UserName Then
If e.Buddies.Contains(nm)= False Then
e.Buddies.Add(nm)
End If
End If
Next
-- 发布时间：2018/2/12 16:25:00
--
如果是普通开发版，只能添加20个好友，是否超出了？
-- 发布时间：2018/2/12 16:59:00
--
贴出你QQServer的UserLogging的代码。
-- 发布时间：2018/2/12 17:07:00
--
Dim pts() As String = e.UserName.Split(".")
Dim dr1 As DataRow
dr1 = DataTables("账号密码").Find("部门 = \'" & pts(0) & "\' And 姓名 = \'" & pts(1) & "\'")
If dr1 Is Nothing Then \'判断此用户不存在
e.Message = "用户名错误!" \'返回给登录者的提示信息
Return
End If
If dr1("密码") <> e.Password Then \'如果密码错误
e.Message = "登录密码错误!" \'返回给登录者的提示信息
Return
End If
e.Success = True \'允许用户登录
\'添加所有同事为好友
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
-- 发布时间：2018/2/12 17:11:00
--
以下是引用有点甜在2018/2/12 16:59:00的发言：
贴出你QQServer的UserLogging的代码。
贴出你QQServer的UserLogging的代码。
老师好像找到问题了，有两个相同部门，相同姓名的账号，删除一个后就正常了。
-- 发布时间：2018/2/12 17:18:00
--
以下是引用cd_tdh在2018/2/12 17:11:00的发言：
老师好像找到问题了，有两个相同部门，相同姓名的账号，删除一个后就正常了。
修改你QQServer的UserLogging的代码，如2楼红色代码。