Private Sub ConnectToNetwork
Wifi.Disconnect
Log("Trying to connect")
If Wifi.Connect2("Kindergarten", "XXXX") Then
Log("Connected successfully to: ", "Kindergarten")
Log("Local IP: ", Wifi.LocalIp)
mqtt.Initialize2(mqttSocket.Stream,"placeholder", "1883", UUID, "mqtt_MessageArrived", "mqtt_Disconnected") 'ignore
mo.Initialize("user", "password") 'ignore
mo.SetLastWill(statusTopic, "offline", 1, True)
If mqtt.Connect2(mo) Then
Log("MQTT connected")
mqtt.Subscribe(commandTopic,1)
mqtt.Publish2(statusTopic,"online".GetBytes,True)
End If
End If
End Sub