'
' Conecta MQTT al BROKER
Public Sub MQTT_Conecta(Nada As Byte)
Log("Intentando Conectar MQTT")
Dim mo As MqttConnectOptions '
mo.Initialize("TEST","1234") ' Usuario y Contraseña
If MQTT.Connect2(mo) = False Then ' Opciones de Conexion
CallSubPlus("MQTT_Conecta",10000,0) ' Si no se Conecto lo Vuelve a Intentar en 10"
Log("MQTT no Conecto Nombre ",mo.UserName," Pass ",mo.Password)
Return
End If
Log("MQTT Conectado al BROKER",True) ' Si se Conecta
MQTT.Subscribe("P_LL1", 0) ' Escucha Pulsador 1
MQTT.Subscribe("P_LL2", 0) ' Escucha Pulsador 2
MQTT.Subscribe("P_LL3", 0) ' Escucha Pulsador 3
MQTT.Subscribe("P_RESET", 0) ' Escucha Pulsador RESET
End Sub