in WebSocketHandler class
Sub Class_Globals
Public ws As WebSocket
.....
Sub Initialize (vCallback As Object, vEventName As String)
ws.Initialize("ws")
.....
Sub Connect(Url As String)
ws.Connect(Url)
.....
then called from Main: ws as WebSocketHandler => initialize & connect
When ws_Connected fired: callback to Main
then from Main: WS.SendEventToServer("TrigThis_OnServer", data)
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