| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 内置聊天 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=113302) |
| -- 作者：nncchh -- 发布时间：2018/1/12 21:21:00 -- 内置聊天 老师，你好，请帮助解决这个问题： 局域网服务器内网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，内置聊天器不能显示好友，也不能发信息。请老师帮助解决为荷！
|
| -- 作者：有点蓝 -- 发布时间：2018/1/12 21:26:00 -- 外部电脑QQClient访问 |