主题：OPEN QQ 客户端登陆失败

蓝老师:
OPEN QQ 登入一直报错  请帮我看下哪里有问题...谢谢!

客户端的电脑 网管把它门都加入域后一直报错  
服务端电脑原局网IP: 10.8.8.11...已改为QQServer.ServerIp = "0.0.0.0" 还是不行...
一直调试不成...找不到哪出问题

现在代码:

OpenQQ服务器项目代码 AfterOpenProject

QQServer.ServerIp = "0.0.0.0" '指定IP地址

QQServer.ServerPort = 52177 '指定登录端口

QQServer.HeartbeatInterval = 60 '指定心跳时间

QQServer.HeartbeatTimeout = 180 '指定心跳超时时间

QQServer.PortRange = "52000/53000" '指定随机端口范围

QQserver.Buildin = True '启用内置身份验证

QQServer.Start() '启动QQServer
<!--[if !supportLineBreakNewLine]-->
<!--[endif]-->

服务端代码 UserLogging
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

服务端代码ReceivedMessage

If e.Message = "GetDate" Then

    e.ReturnValue = Date.Now

End If

 
服务端项目只有一张"用户表"
用户表按照帮助档建立只3列  Name   Type   Config

客户端项目代码 LoadUserSetting

QQClient.ServerIP = "10.8.8.11" '指定服务器IP地址

QQClient.ServerPort = "52177" '指定服务器端口

If QQClient.Start() = True  Then'如果登录成功

    QQClient.OpenChatWindow()

    'e.Form.Controls("btnChat").Enabled = True

    Dim msg As String = "恭喜,OpenQQ登录成功!"

    If QQClient.ServerMessage > "" Then '如果服务器返回了欢迎信息

        msg = msg & QQClient.ServerMessage

    End If

    'ConfigBar.Items("OpenQQ").SmallImage = 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