Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private ws As WebSocketClient
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.Show
ws.Initialize("ws")
'accept all trust manager
Dim ssl As JavaObject
ssl.InitializeNewInstance("org.eclipse.jetty.util.ssl.SslContextFactory", Array(True))
Dim jo As JavaObject = ws
Dim wsc As JavaObject
wsc.InitializeNewInstance("org.eclipse.jetty.websocket.client.WebSocketClient", Array(ssl))
jo.SetField("wsc", wsc)
ws.Connect("wss://b4x.com:51041/smiley/ws")
Wait For ws_Connected
Log("connected")
End Sub