服务器端能启动
客户端：登录失败，规定时间内未获服务器响应
麻烦老师帮我看看代码
服务器端，启动按钮
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
加好友 
发短信
Post By：2021/11/24 15:04:00 [只看该作者]
