Sub btnConnect_Action
Dim m As Matcher = Regex.Matcher("(\d+\.\d+\.\d+\.\d+):(\d+)", txtServerIP.Text)
If m.Find Then
CloseExistingConnection
Dim c As Socket = CreateTrustAllSSLSocket("client")
c.Connect(m.Group(1), m.Group(2), 10000)
Wait For Client_Connected (Successful As Boolean)
If Successful Then
NewConnection(c)
End If
Else
fx.Msgbox(MainForm, "Invalid address", "")
End If
End Sub
Private Sub CreateTrustAllSSLSocket (EventName As String) As Socket
Dim socket As Socket
socket.Initialize(EventName)
Dim jo As JavaObject = socket
jo.SetField("socket", CreateTrustAllSSLSocketFactory.RunMethod("createSocket", Null))
Return socket
End Sub
Sub CreateTrustAllSSLSocketFactory As JavaObject
Dim tm As CustomTrustManager
tm.InitializeAcceptAll
Dim SSLContext As JavaObject
SSLContext = SSLContext.InitializeStatic("javax.net.ssl.SSLContext").RunMethod("getInstance", Array("TLS"))
SSLContext.RunMethod("init", Array(Null, tm, Null))
Dim Factory As JavaObject = SSLContext.RunMethod("getSocketFactory", Null)
Return Factory
End Sub