' Sending Request from Client to WebSocket Server
Dim data As Map
data.Initialize
data.Put("username", "")
wsh2.SendEventToServer("Device_Teste",data)
data.Clear
' Sub to receive Msg from Websocket Server
Sub wsh_Server_Teste(Params As List)
Log("Ingressado Autenticado !")
Dim Answer As String = Params.Get(0)
Log(Answer)
End Sub