老师,你好,请帮助解决这个问题:
局域网服务器内网Ip xxx.xxx.xxx.xxxx,外网IP xxx.xxx.xxx.xxxx,是路由器应谢的。服务器端设置QQserver:QQServer.ServerIp = "0.0.0.0"
QQServer.ServerPort = 52177 QQServer.HeartbeatInterval = 30 QQServer.HeartbeatTimeout = 100 QQserver.Buildin = True
QQServer.Start()
服务器端设置QQClient:QQClient.ServerIP = "127.0.0.1"
QQClient.ServerPort = 52177 QQClient.UserName = ""QQClient.Password = ""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
内网电脑QQClient访问QQserver,内置聊天器能显示好友,能发信息。外部电脑QQClient访问QQserver,内置聊天器不能显示好友,也不能发信息。请老师帮助解决为荷!