主题：[求助]openQQ问题

附件上传不了

 直接用实例测试正常，就是复制代码过来不正常，刚看了论坛里的帖子，把服务端ip地址改为0.0.0.0，又测试一下居然正常了。这是为什么呢

'服务端UserLogging事件
e.Success = True '允许用户登录
'添加所有用户为好友
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.Conn ection Name = "主 数据源"
cmd.CommandText = "SELECT 用户帐号 Fro m {SYS_用户管理}"
dt = cmd.ExecuteReader()
For Each dr As DataRow In dt.DataRows
    Dim nm As String =  dr("用户帐号")
    If nm <> e.UserName Then '如果不是登录者本人
        e.Buddies.Add(nm)
    End If
Next

'服务端启动按钮事件
QQServer.Stop() '停止QQServer
QQServer.ServerIp = "0.0.0.0"
QQServer.ServerPort = 52177
QQServer.HeartbeatInterval = 30

'客户端登陆按钮事件
QQClient.ServerIP = "192.168.0.33"
QQClient.ServerPort = 52177
QQClient.UserName = UserName
QQClient.Password = "123"
QQClient.Start()

 请教有点甜老师帮忙看下哪里有问题