Private Sub WebSocket_Connected (WebSocket1 As WebSocket)
Try
ws = WebSocket1
wspgID = ws.Session.Id
Log("AHA")
'=================================================================================
DateTime.DateFormat = "yyyy/MM/dd hh:MM:ss"
cRemoteIP = ws.UpgradeRequest.RemoteAddress
Main.TrackWEB(wspgName, cRemoteIP)
'=================================================================================
SetPage
Catch
Log(LastException)
End Try
End Sub