'WebSocket class
Sub Class_Globals
Private ws As WebSocket
End Sub
Public Sub Initialize
End Sub
Private Sub WebSocket_Connected (WebSocket1 As WebSocket)
ws = WebSocket1
ws.Alert("connesso..")
Dim aList As List
aList.Initialize
aList.Add("ciao siamo connessi")
ws.RunFunction("ResposeData", aList)
ws.Flush
End Sub
Private Sub WebSocket_Disconnected
End Sub
Public Sub WebSocket_Message(pMessage As List)
Log(pMessage)
End Sub