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
就是启动失败,没有其他提示,是可能哪个服务没开启吗?
QQserver.Buildin = True '启用内置身份验证
If QQServer.Start() = True Then
改为
QQserver.Buildin = True '启用内置身份验证
QQServer.Start()
If QQServer.Ready = True Then