Public Sub wsConnect(Url As String)
Dim UpgradeRequest As JavaObject
UpgradeRequest.InitializeNewInstance("org.eclipse.jetty.websocket.client.ClientUpgradeRequest", Null)
UpgradeRequest.RunMethod("setHeader", Array("Sec-WebSocket-Protocol", "ocpp1.6"))
ws.Connect2(Url, UpgradeRequest)
' ws.Connect(Url)
End Sub