Public Sub SendMessage(Body As String)
If connected Then
client.Publish2("all", CreateMessage(Body), 0, False)
End If
End Sub
Public Sub Disconnect
BroadcastTimer.Enabled = False
DiscoveredServer = ""
CallSub(Main, "UpdateState")
If connected Then
client.Publish2("all/disconnect", serializator.ConvertObjectToBytes(Name), 0, False)
client.Close
End If
End Sub
Private Sub CreateMessage(Body As String) As Byte()
Dim m As Message
m.Initialize
m.Body = Body
m.From = Name
Return serializator.ConvertObjectToBytes(m)
End Sub