主题：OpenQQ客户端登录后服务端提示索引超出了数组界限

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