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

UserLoged事件写了什么代码？

这个问题已经困扰我很多天了，项目已经在试运行，之前在局域网的时候，一直没问题。后来部署到服务器后，既有内部局域网访问，又有外网客户端访问，内部局域网都没有问题，可以正常登录，但是外网客户端有部分不能登录，有部分可以。

msgbo("这里能不能弹出提示？")

客户端收到的消息是服务器在规定时间内没有响应，

 

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

 

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

甜版，确实如您所说，客户端收到的消息是【服务器在规定时间内无回复】，然后服务器端在UserLogging事件中能执行到一楼说的位置，说明服务器是能够收到客户端的请求信息的，但是在UserLogged事件就没有反应。

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，在不能正常连上的电脑里测试

1、测试自己的项目，在UserLogging和UserLogged都加入msgbox测试，但是情况还是老样子，能登陆的就能登陆，不行的就是去到logging事件，去不了logged事件。