Dim so As Socket
so.InitializeSSLAcceptAll("so")
Dim r As Reflector
r.Target = so 'socket variable
r.Target = r.GetField("socket")
r.RunMethod4("setEnabledProtocols", Array(Array As String("TLSv1", "SSLv3")), _
Array As String("[Ljava.lang.String;"))
so.Connect(IP, port,5000)
wait for so_Connected (Successful As Boolean)
Log(Successful)