Sub Class_Globals
Private wsc As WebSocketClient
End Sub
Public Sub Initialize
End Sub
Public Sub Connect(Host As String, TimeOut As Int)
Dim m1 As Map
m1.Initialize
wsc.Initialize("wsc", Host, m1, TimeOut)
wsc.Connect
End Sub
Sub wsc_Open (o1 As Object)
End Sub
Sub wsc_Close (code As Int, reason As String, remote As Boolean)
End Sub
Sub wsc_Error
Log(LastException.Message)
End Sub
Sub wsc_Message (Message As String)
Log(Message)
End Sub
Public Sub SendMessage(s As String)
esc.SendText(s)
End Sub