Public Sub SendEventToServer(Event As String, Data As Map)
Dim m As Map
m.Initialize
m.Put("type", "event")
m.Put("event", Event)
m.Put("params", Data)
Dim jg As JSONGenerator
jg.Initialize(m)
ws.SendText(jg.ToString)
End Sub
Public Sub SendMessageToServer(mText As String, mId As String)
Dim data As Map
data.Initialize
data.Put("id", mId)
data.Put("message", mText)
SendEventToServer("Device_Message", data)
End Sub