Espero y este primer screencast les sea de ayuda.

Esto es parte de una practica en la que aprenderemos a ver el funcionamiento de los famosos sockets.

Empezaremos diciendo que un sockets es la relación entre los dos puertos de una computadora.

Pero ahora bien que esto de los puertos, pues que, básicamente es la entrada y salida de información de una computadora, están representados por números enteros.

por ejemplo "80" para el Internet.

Espero recibir sus comentarios.

Saludos.

Isaac.

Este es código usado en vb6.0

'Componente Utilizado: _
Microsoft Winsock Control 6.0

Option Explicit

Private Sub Form_Load()
With Winsock1
'puerto de escucha
.LocalPort = "8050"
'poniendo a escuchar al puerto
.Listen
End With
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
'Este procedimiento se ejecuta por cada salida o peticion del Browser _
el parámetro que recibe se decide si se aceptar o no la petición.
With Winsock1
'...cerrar la conexion antes

.Close
.Accept requestID
'esto depende para Recibir datos (URL), el que se acepte la peticion recibida, _
'MsgBox requestID
End With
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
'este procedimiento se produce cuando se recibe algun dato despues de se halla aceptado Aceptado: requestID
Dim UrlBrowser As String
With Winsock1
'es capturada con la propiedad getdata y almacenada en _
la variable
.GetData UrlBrowser
MsgBox UrlBrowser
'se cierra la conexion
.Close
'y se pone de nuevo a la escucha al puerto
.Listen
End With
End Sub




LO MISMO EN VB.NET

Imports System
Imports System.IO
Imports System.Net
Imports System.Net.Sockets


Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'como el LocalPort pero una direccion
Dim localEndPoint As New IPEndPoint(IPAddress.Any, 8050)
'iniciando socket, en el contructor
Dim WinSock As New Socket(localEndPoint.AddressFamily, SocketType.Stream, ProtocolType.Tcp)
'Explicitamente enlazando socket
WinSock.Bind(localEndPoint)
'.Listen, ...ponerlo a escuhcar
WinSock.Listen(Integer.MaxValue)
'Bucle Ciclico para Escuchar peticiones al puerto
While True
'.Accept requestID
Dim ClienteSocket As Socket = WinSock.Accept()
'MsgBox requestID, pero con Ip
MsgBox("Nueva Conexion del Cliente: " & ClienteSocket.RemoteEndPoint.ToString())
''StreamReader, para trabajar con cadenas de texto en formato ANSI
Dim Contenido As StreamReader
Dim networkStream As New NetworkStream(ClienteSocket)
Contenido = New StreamReader(networkStream)
'reader.ReadLine(), devuelve la cadena (URL)
Dim UrlBrouser As String = Contenido.ReadLine()
MsgBox("Peticion -(URL)- Recibida: " & UrlBrouser)
End While

End Sub
End Class