主题：openQQ服务器如何加载外部用户数据表

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