Public Sub ConnectToServer(Host As String)
Log("Trying to connect to: " & Host)
CloseExistingConnection
Dim client As Socket
client.Initialize("client")
client.Connect(Host, PORT, 10000)
Wait For Client_connected (Successful As Boolean)
If Successful Then
Log("TCP_connected")
astream.Initialize(Me, "astream", client.InputStream, client.OutputStream)
TCP_UpdateState (True)
Else
Log("Failed to connect: " & LastException)
TCP_UpdateState(False)
End If
End Sub
Public Sub CloseExistingConnection
If astream.IsInitialized Then astream.Close
If client.IsInitialized Then client.Close
TCP_UpdateState (False)
End Sub