Sub Process_Globals
Dim socket1 As Socket
Dim stream As AsyncStreams
Dim serverIp As String
Dim serverPort As Int
End Sub
public Sub initialize
serverIp = xxxx
serverPort =xxxx
socket1.Initialize("socket1")
socket1.Connect(serverIp, serverPort, 3000)
end sub
private Sub Socket1_Connected (Successful As Boolean)
Try
If Successful Then
addLog("ConexionEstablecida", 1)
stream.Initialize(socket1.InputStream, socket1.OutputStream, "stream")
else
reconnect
end if
catch
end try
end sub