主题：openQQ登陆失败

之前登陆完全正常今天打开一直失败

此主题相关图片如下：qq截图20180212114917.png

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

老师，还是不对

我是外部表，自定义登陆，登陆成功后通过模拟点击QQClient窗口的登陆按钮来登陆的OPenQQ

贴出你 UserLogging 事件代码

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

如果是普通开发版，只能添加20个好友，是否超出了？

贴出你QQServer的UserLogging的代码。

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

老师好像找到问题了，有两个相同部门，相同姓名的账号，删除一个后就正常了。

 

修改你QQServer的UserLogging的代码，如2楼红色代码。