Sub Process_Globals
Private VERSION As Double = 1.0
Private wsh As WebSocketHandler
Private id As String
Private notif As Notification
Public kvs As KeyValueStore
Private pingTimer As Timer
Private lastServerPong As Long
Type Message (id As String, Text As String)
Private ReconnectTimer As Timer
End Sub
Private Sub Connect
Dim wsh As WebSocketHandler
wsh.Initialize(Me, "wsh")
wsh.Connect(Main.serverLink)
End Sub