OPenQQ ，本机测试没有问题，局域网提示:规定时间未获服务器响应，服务端和客户端我输入的都是服务器IP，怎么不行啊

 QQClient.ServerIP = "192.168.0.218"  \'指定服务器IP地址
        QQClient.ServerPort = 52177  \'指定服务器端口
        QQClient.UserName = _UserPartM & "." & _UserName \'指定登录用户名
        QQClient.Password = _UserPassWord
        If QQClient.Start() = True \'如果登录成功
            Dim msg As String =  "恭喜,OpenQQ登录成功!"
            If QQClient.ServerMessage > "" Then \'如果服务器返回了欢迎信息
                msg = msg & QQClient.ServerMessage
            End If
            popMessage(msg,"提示",PopiconEnum.Infomation,5)
        Else \'如果登录失败,显示服务器返回错误信息
            PopMessage("QQClient登录失败,原因:" & vbcrlf & QQClient.ServerMessage,"提示",PopiconEnum.Error,5)
    End If

1、确保服务器已经开启QQServer，且ip和端口和客户端中的代码一致

2、在服务端UserLogging加入messagebox，看看是否收到用户登录申请，如果收到，说明可能是用户名或密码不正确

3、如果收不到登录申请，那么关闭防火墙看看。

谢谢！

防火墙全部关闭可以，这样电脑安全没问题？

我在防火墙打开了端口，怎么不行？