Private Sub Connect
If sock.IsInitialized Then sock.Close
Dim sock As Socket
sock.InitializeSSL("sock", File.OpenInput(Main.config.Get("iPushKeystore"), ""), Main.config.Get("iPushKeystorePassword"))
sock.Connect(Main.config.Get("iFeedback"), Main.config.Get("iFeedbackPort"), 30000)
buffer.Clear
End Sub
Private Sub sock_Connected (Successful As Boolean)
If Successful Then
Log("Feedback Socket connected.")
If astream.IsInitialized Then astream.Close
astream.Initialize(sock.InputStream, sock.OutputStream, "astream")
Else
Log("Error connecting feedback socket: " & LastException)
End If
End Sub