Private Sub client_Connected (Success As Boolean)
If Success Then
'connected = True
'client.Subscribe("all/#", 0)
Dim s As String = "abc"
Dim b() As Byte = s.GetBytes("UTF8")
client.Publish("all/connect", b)
'Log($"Connected: ${Success}"$)
ToastMessageShow("Connected to Server",True)
Else
ToastMessageShow("Error connecting: " & LastException, True)
End If
End Sub
Private Sub client_MessageArrived (Topic As String, Payload() As Byte)
Dim newMsg As String = BytesToString(Payload, 0, Payload.Length, "UTF8")
Log($"${Topic}: ${newMsg}"$)
End Sub