| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 规定时间内未获服务器响应 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=173327) |
| -- 作者：qinlao666 -- 发布时间：2021/11/24 15:04:00 -- 规定时间内未获服务器响应 服务器端能启动 客户端：登录失败，规定时间内未获服务器响应 麻烦老师帮我看看代码 服务器端，启动按钮 QQServer.ServerIp = 0.0.0.0QQServer.ServerPort = 52177 \'指定登录端口 QQServer.HeartbeatInterval = 60 \'指定心跳时间 QQServer.HeartbeatTimeout = 180 \'指定心跳超时时间 QQServer.PortRange = "52000/53000" \'指定随机端口范围 QQserver.Buildin = True \'启用内置身份验证 QQServer.Start() \'启动QQServer userlogging中代码 If e.User IsNot Nothing Then e.Success = True \'允许登录 For Each u As UserInfo In Users If u.Name <> e.User.Name Then If u.Group > "" Then e.Buddies.Add(u.Group & "." & u.Name) Else e.Buddies.Add(u.Name) End If End If Next End If 客户端 If QQClient.Ready Then MessageBox.show("QQClient已经启动,请先关闭","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) Return End If QQClient.ServerIP = "114.104.152.98" QQClient.ServerPort = 52177 If user.Type = UserTypeEnum.User Then \'如果是普通用户 QQClient.UserName ="" QQClient.Password = "" Else \'如果是开发者或管理员 Dim pwd As String If InputPassWord(pwd,"提示","请输入" & User.Name & "的密码:") Then QQClient.UserName = User.Name QQClient.Password = pwd Else Return End If End If 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 |
| -- 作者：有点蓝 -- 发布时间：2021/11/24 15:07:00 -- 114.104.152.98是服务器的IP吗，外网IP还是内网IP？自己服务器还是云服？内置用户登录的不要使用开发者和管理员账户 |
| -- 作者：qinlao666 -- 发布时间：2021/11/24 15:13:00 -- 是外网IP地址,自己搭建的服务器 |
| -- 作者：有点蓝 -- 发布时间：2021/11/24 15:36:00 -- 使用帮助内置用户验证的openqq例子放到服务器测试有没有问题？ 有在路由做端口映射了吗？ |