Foxtable(狐表)用户栏目专家坐堂 → 内置聊天


  共有1800人关注过本帖树形打印复制链接

主题:内置聊天

帅哥哟,离线,有人找我吗?
nncchh
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:169 积分:1981 威望:0 精华:0 注册:2017/8/30 13:32:00
内置聊天  发帖心情 Post By: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,内置聊天器不能显示好友,也不能发信息。请老师帮助解决为荷!

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110450 积分:562116 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/1/12 21:26:00 [只看该作者]

外部电脑QQClient访问

QQClient
.ServerIP = "外网IP"

 回到顶部