Conexión mediante TCP/IP Hola a todos!
Describo un poco el contexto de mi cuestión:
Tengo un proceso corriendo en una máquina, en adelante "server" que realiza una escucha (implementada por un Listener) por un puerto TCP, en adelante "XXX", y que me devuelve cierta información cada vez que a él se accede.
Por ejemplo, realizando un telnet a la máquina donde corre el citado proceso desde la ventana de comandos y refiriendo el puerto por el que el proceso escucha, esto es:
Telnet server XXX
La cosa funciona ok y el proceso devuelve la información.
La cuestión es como realizar esa acción desde VB.Net.
He intentado implementar un Socket que realice una operación receive. La clase que utilizó para instanciar el Socket y conectarlo es la siguiente:
Public Class mySocket
Public Shared Function connectSocket(ByVal server As String, ByVal port As Integer) As Socket
Dim s As Socket = Nothing
Dim iphe As IPHostEntry = Nothing
Try
ipad = Dns.Resolve(server).AddressList(0)
Dim ipe As New IPEndPoint(ipad, port)
Dim tmpS As New Socket(ipe.AddressFamily, SocketType.Stream, ProtocolType.Tcp)
tmpS.Connect(ipe)
If tmpS.Connected Then
s = tmpS
Return s
End If
Catch e As SocketException
Console.WriteLine("SocketException!!!")
Console.WriteLine(("Source : " + e.Source))
Console.WriteLine(("Message : " + e.Message))
Catch e As Exception
Console.WriteLine("Exception!!!")
Console.WriteLine(("Source : " + e.Source))
Console.WriteLine(("Message : " + e.Message))
End Try
Return s
End Function 'connectSocket
End Class
El problema es que cuando se realiza la conexión ('tmps.Connect(ipe)') se produce un error del tipo:
"No se ha podido establecer conexión ya que el equipo de destino ha denegado activamente dicha conexión"
No se si voy bien encaminado o no y lo que hago es correcto o no.
Gracias de antemano por vuestra ayuda
