Procedure VerificaLinkOnline(msg)

Connectok is boolean

MyHfsql_Copel.User = "admin"
MyHfsql_Copel.Password = "1234567890"

MyHfsql_Horizon.User = "admin"
MyHfsql_Horizon.Password = "1234567890"

HCreationIfNotFound(HF_LOCAL,"Senha-Secreta")

HCreationIfNotFound(HF_SERVER,"Senha-Secreta")

HModifyStructure(HF_LOCAL,hmsBackgroundTask)

HModifyStructure(HF_SERVER,hmsBackgroundTask)

//----- Conexões
HCS.Timeout = INTERNET

HCS.FrameSize = INTERNET

HOpenConnection(MyHfsql_Local)

HCloseConnection(MyHfsql_Copel)

HCloseConnection(MyHfsql_Horizon)

nQualidadeCopel is int = HConnectionQuality(MyHfsql_Copel)

nQualidadeHoriz is int = HConnectionQuality(MyHfsql_Horizon)

IF nQualidadeCopel > nQualidadeHoriz THEN

IF Ping("177.220.189.6",3s) = True

MyHfsql_Copel.User = "admin"

MyHfsql_Copel.Password = "1234567890"

HModifyStructure(HF_SERVER,hmsBackgroundTask)

HCreationIfNotFound(HF_SERVER,"Senha-Secreta")

HOpenConnection(MyHfsql_Copel)

Connectok = HChangeConnection(HF_SERVER,MyHfsql_Copel)

IF Connectok = True THEN
gbOnline = True
ELSE
gbOnline = False
END

gbStatusServidor = Connectok

IF msg = 1
ToastDisplay("Esta usando o Ip da Copel",toastLong,vaMiddle,haCenter)
END
END

ELSE IF nQualidadeCopel < nQualidadeHoriz THEN

IF Ping("187.95.147.141",6s) = True

MyHfsql_Horizon.User = "admin"

MyHfsql_Horizon.Password = "1234567890"

HModifyStructure(HF_SERVER,hmsBackgroundTask)

HCreationIfNotFound(HF_SERVER,"Senha-Secreta")

HOpenConnection(MyHfsql_Horizon)

Connectok = HChangeConnection(HF_SERVER,MyHfsql_Horizon)

IF Connectok = True THEN
gbOnline = True
ELSE
gbOnline = False
END

gbStatusServidor = Connectok

IF msg = 1
ToastDisplay("Esta usando o Ip da Horizon",toastLong,vaMiddle,haCenter)
END

END

END


IF gbOnline = False

NextTitle("Atenção")
Info("Servidores indisponiveis!")
Connectok = False

END


RESULT Connectok