Chat lan en vb.net

[tiger015]

saludo, hace mucho hice en c# y lo hice de esta forma:

Socket socket = new Socket(AddressFamily.InterNetwork,SocketType.Strea m,ProtocolType.Tcp);

IPAddress ip =Dns.GetHostEntry("localhost").AddressList[0];
//como no usas ip fija solo pones el nombre de la pc en caso de lan o DNS en caso de ke sea por //internet en "localhost"
IPEndPoint ipend = new IPEndPoint(ip,2222);

socket.Bind(ipend);
socket.Listen(10);

//en este caso cuando se conecte el primer cliente sera redirigido a nuevosocket
//kedando socket libre y a la escucha en el mismo puerto

Socket nuevosocket = socket.Accept();

byte[] datos = new byte[2048];
string info = "";
while (nuevosocket.Connected == true)
{
int contador = nuevosocket.Receive(datos);
info = Encoding.ASCII.GetString(datos,0,contador);
}

//como se observa los datos recividos se guardan en la varible info y si quieres enviar datos //haces lo contratio

byte[] enviardato = Encoding.ASCII.GetBytes(info):
nuevosocket.Send(enviardato);


espero ke te sirva;