主题：UserLogging事件已经success，但是还是没登录成功~

1、如果提示【服务器在规定时间内没有响应】说明你客户端里面的代码有问题。加入msgbox，看服务器端那里能否弹出（UserLogging和UserLogged都加入msgbox测试）

2、把try catch去掉，避免一些错误没有被显示出来。

1、把try catch去掉，避免一些错误没有被显示出来；

2、测试msgbox能否弹出，如果可以弹出，去掉msgbox以及UserLoged事件代码测试；

Try   
    Dim cmd As New SQLCommand
    cmd.ConnectionName= gs_strActiveConnLog
    cmd.CommandText="Sel ect a.工号,a.账号,a.部门ID,a.用户名称,b.部门名称 from 用户名表 a left join 公司部门表 b on a.部门ID=b.部门编号"
    Dim dt As DataTable=cmd.ExecuteReader
    Dim st As String = e.UserName.Split(".")(0) & "." & e.UserName.Split(".")(1)
    Dim dr1 As DataRow= dt.Find("部门名称='" & e.UserName.Split(".")(0) & "' and 用户名称='" & e.UserName.Split(".")(1) & "'")
    If dr1 IsNot Nothing Then
        PopMessage(e.UserName & "正在尝试登陆,已查询到用户信息!","提示", PopIconEnum.Infomation, 5)
        e.Success = True '允许用户登录
        If dt.DataRows.Count>0 Then
            '添加所有同事为好友
            For Each dr As DataRow In dt.DataRows
                'If (dr("部门名称") & "." & dr("用户名称")) <> e.UserName Then '如果不是登录者本人
                If (dr("部门名称") & "." & dr("用户名称")) <> st Then '如果不是登录者本人
                    If e.Buddies.Contains(dr("部门名称") & "." & dr("用户名称") & "." & dr("账号"))=False Then
                        e.Buddies.Add(dr("部门名称") & "." & dr("用户名称") & "." & dr("账号"))
                    End If
                End If
            Next
        End If
msgbox(123)
    Else
        PopMessage(e.UserName & "正在尝试登陆,但未能在数据库查询到相关数据,登录失败!","提示", PopIconEnum.Infomation, 5)
        e.Success = False '拒绝用户登录
        e.Message= Functions.Execute("Xml发送信息","用户不存在!请重新确认用户名称!")
    End If
Catch ex As Exception
    e.Success = False
    e.Message=Functions.Execute("Xml发送信息","服务器端错误:" & ex.Message)
End Try
msgbox(456)

3、如果还是有问题，请尝试使用casestudy里面的qqserver以及qqclient，在不能正常连上的电脑里测试

用自带的例子依然超时无反应的话，先确保是不是你msgbox弹出的问题导致的（弹出msgbox的时候，服务器端相当于卡死了，有可能导致超时报错，你把msgbox那些提示都删除后测试，确保及时返回数据）

如果是在你局域网测试可以，外网不行的话，就是网络架设的问题导致的了。

那只能是网络问题囖。同样的电脑，换一个网络环境，就可以了吗？如果是，就是其特定的网络那里有问题。