Sub ConnectAndReconnect
Do While working
If mqtt.IsInitialized Then mqtt.Close
mqtt.Initialize("mqtt", "tcp://test.mosquitto.org", "B4X" & Rnd(0, 999999999))
'Dim mo As MqttConnectOptions
'mo.Initialize(username, password)
Log("Trying to connect")
'mqtt.Connect2(mo)
mqtt.Connect
Wait For mqtt_Connected (Success As Boolean)
If Success Then
Log(mqtt.IsInitialized) '<-Added¡¡¡¡ The log is TRUE
mqtt.Subscribe("B4XTest", 1) '<-Added¡¡¡¡ Error MqttAsyncClient.subscribe(java.lang.String, int)' on a null object reference
Log("Mqtt connected")
Do While working And mqtt.Connected
mqtt.Publish2("ping", Array As Byte(0), 1, False) 'change the ping topic as needed
Sleep(5000)
Loop
Log("Disconnected")
Else
Log("Error connecting.")
End If
Sleep(5000)
Loop
End Sub