主题：[求助]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

加入msgbox看是否进入了里面的代码。

红袍老师是这样的，如果在登陆窗口登陆还是可以，我把登陆代码放到

AfterOpenProject 事件中自动登陆后就没有好友了。请您看看什么原因。

If QQClient.Ready Then
    MessageBox.show("QQClient已经启动,请先关闭","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
QQClient.ServerIP = “192.168.111.222"  '指定服务器IP地址
QQClient.ServerPort = 52177  '指定服务器端口
QQClient.UserName =""
QQClient.Password = ""
If QQClient.Start() = True '如果登录成功
    e.Form.Controls("btnChat").Enabled = True
    Dim msg As String =  "恭喜,OpenQQ登录成功!"
    If QQClient.ServerMessage > "" Then '如果服务器返回了欢迎信息
        msg = msg & QQClient.ServerMessage
    End If
    forms("窗口13").Controls("OpenQQ").Image = GetImage("online.ico")
    popMessage(msg,"提示",PopiconEnum.Infomation,5)
Else '如果登录失败,显示服务器返回错误信息
    e.Form.Controls("btnChat").Enabled = False
    PopMessage("QQClient登录失败,原因:" & vbcrlf & QQClient.ServerMessage,"提示",PopiconEnum.Error,5)
End If

只要代码一样，在哪里执行，都可以的啊。

 

你启动的时候不要按住ctrl，不然不会执行任何代码的啊