如果企业员工不多，可以直接将所有员工相互加为好友，实际上示例文件QQServer.Table就是这样的：

Dim pts() As String = e.UserName.Split(".")
im 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

验证用户身份

启用内置身验证后，服务端的登录身份验证变得非常简单。

OpenQQ服务端用于登录身份验证的事件是UserLogging，该事件有个e参数User，类型为UserInfo，如果内置身份验证通过，该参数返回登录用户，否则返回Nothing。

所以判断是否通过身份验证的代码很简单：

If e.User IsNot Nothing Then
   \'通过了内置身份验证
    e.Success = True \'允许用户登录
Else
   \'未通过内置身份验证
End If

例如通过验证后添加所有用户为好友：

If e.User IsNot Nothing Then
    e.Success = True \'允许登录
    For Each u As UserInfo In Users
        If u.Name <> e.User.Name  Then
            If u.Group > ""  Then
                e.Buddies.Add(u.Group & "." & u.Name)
            Else
                e.Buddies.Add(u.Name)
            End If
        End If
    Next
End If