Sub Proess Globals
Private SSLStream As AsyncStreamsSSL 'AsyncStreams
Private Client As SocketSSL ' Socket
End Sub
Client.Initialize("Client")
If Client.IsInitialized = True Then
Client.Connect("192.168.1.205", 10001, 10000)
End If
Sub Client_Connected (Successful As Boolean)
If Successful = True Then
ConnectClient 'Connect Stream
End If
End Sub
Sub ConnectClient
If SSLStream.IsInitialized = True Then
SSLStream.Close
End If
If SSLStream.IsInitialized = False Then
SSLStream.Initialize(Client.InputStream, Client.OutputStream, "SSLStream")
End If
End Sub