Foxtable(狐表)用户栏目专家坐堂 → QQserver 服务启动失败


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

主题:QQserver 服务启动失败

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


加好友 发短信
等级:小狐 帖子:317 积分:2602 威望:0 精华:0 注册:2019/7/19 13:09:00
QQserver 服务启动失败  发帖心情 Post By:2025/5/18 16:28:00 [只看该作者]

QQserver 服务启动失败,端口检查 了是没有占用的,之前都是可以的,现在不知道是网络还是哪里问题,死活启动失败,请问老师可能 的原因是什么?

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


加好友 发短信
等级:小狐 帖子:317 积分:2602 威望:0 精华:0 注册:2019/7/19 13:09:00
  发帖心情 Post By:2025/5/18 16:35:00 [只看该作者]

If QQServer.Ready = False Then
    'QQServer.Stop()
    QQServer.ServerIP = "0.0.0.0" '指定IP地址
    QQServer.ServerPort = 52177 '指定登录端口
    QQServer.HeartbeatInterval = 50 '指定心跳时间
    QQServer.HeartbeatTimeout = 150 '指定心跳超时时间
    QQServer.PortRange = "32000/53000" '指定随机端口范围
    QQserver.Buildin = True '启用内置身份验证
    If QQServer.Start() = True Then
        Dim msg As String =  "恭喜,OpenQQ启动成功!"
        PopMessage(msg,"提示",PopiconEnum.Infomation,5)
    Else
        PopMessage("OpenQQ启动失败","提示",PopiconEnum.Error,5)
    End If
End If
就是启动失败,没有其他提示,是可能哪个服务没开启吗?

 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:113882 积分:580013 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2025/5/18 20:28:00 [只看该作者]

    QQserver.Buildin = True '启用内置身份验证
    If QQServer.Start() = True Then
改为
    QQserver.Buildin = True '启用内置身份验证
QQServer.Start()
If QQServer.Ready = True Then

 回到顶部