Dim pts() As String = e.UserName.Split(".")

Dim dr1 As DataRow

dr1 = DataTables("users").Find("type = \'" & pts(0) & "\' And name = \'" & pts(1) & "\'")

If dr1 Is Nothing  Then \'判断此用户不存在

    e.Message  = "用户名错误!" \'返回给登录者的提示信息

    Return

End If

If dr1("config") <> e.Password Then \'如果密码错误

    e.Message  = "登录密码错误!" \'返回给登录者的提示信息

    Return

End If

e.Success = True \'允许用户登录

\'添加所有同事为好友

For Each dr2 As DataRow In DataTables("users").DataRows

    Dim nm As String =  dr2("type") & "." & dr2("name")

    If nm <> e.UserName Then \'如果不是登录者本人

        e.Buddies.Add(nm)

    End If

Next