hola.
Tengo una duda, quisiera saber como funcionan los socckets, es decir, dos ordenadores, y poder mandar desde un texto a otro, que ese lo reciba y que además pueda mandar texto al otro.
Tengo esto para conectar, pero no se como va la cosa.
Agradecería cualquier ayuda, he encontrado ejemplos pero nada claro, se van mucho por la ramas.
Algo sencillo, conectar, enviar y recibir
Código:
Public Function Conectar(ByVal servidor As String, ByVal puerto As Integer) As Boolean
Try
Dim s As Socket
Dim hostadd As IPAddress
' Resolviendo el Host remoto...
hostadd = Dns.GetHostEntry(servidor).AddressList(0)
' Creando la dirección completa....
' ... me conectare al puerto 23...
Dim EPhost As New IPEndPoint(hostadd, puerto)
' Registrando el socket ...
s = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
' Intentando conexión con el host ...
s.Connect(EPhost)
If Not s.Connected Then
Return False
Else
Return True
End If
Catch ex As Exception
Return False
End Try
End Function