用我自己的客户端，连接自己的服务端，显示登录失败，未知原因！
然后我用我自己的客户端连接例子的服务端，可以连上，证明我自己的客户端不存在问题，然后用例子的客户端，连我的服务端，也显示登录失败，证明是我自己的服务端设置出了问题，但是代码完全一样，怎么会出现这样的情况？Dim pts() As String = e.UserName.Split(".")
MessageBox.Show(1)
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
加好友 
发短信
Post By：2017/4/4 19:19:00 [显示全部帖子]
