'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
End Sub
Sub SendText (Text As String)
Dim check As String
check = "JSON-CHECKED"
End Sub
Private Sub WebSocket_Disconnected
End Sub