老师,我在本机验证可以互为好友,怎么发布后放到服务器就不行了?正常登陆,但是没有好友。服务器端的代码都一样。
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 NextEnd If