Visual Basic.NET - Sockets VB

   
Vista:

Sockets VB

Publicado por adrian (1 intervención) el 16/12/2013 03:01:23
Estimados,

Soy nuevo en el foro pero desde mucho antes lo utilizo y consulto, descargando manual y otras cosas.

Mi consulta es la siguiente: estoy tratando de implementar sockets en VB y tengo un problema con un código:

SUB para aplicación Servidor
----------------------------------------------------------------------------------------------------------------------------------------------------
Sub escuchar()

While True
.
Dim client As TcpClient = server.AcceptTcpClient()
MsgBox("Connected!")

data = Nothing

Dim stream As NetworkStream = client.GetStream()

Dim i As Int32

i = stream.Read(bytes, 0, bytes.Length)
While (i <> 0)

data = System.Text.Encoding.ASCII.GetString(bytes, 0, i)
TextBox1.Text = TextBox1.Text & [String].Format("Received: {0}", data) & vbCrLf

MsgBox("aviso")

i = stream.Read(bytes, 0, bytes.Length)

End While

client.Close()
End While

End Sub
----------------------------------------------------------------------------------------------------------------------------------------------------
Este código funciona bien incluyendo el "MsgBox("aviso")" pero cuando lo saco no me copia el texto que recibo desde la aplicación "cliente". Leyendo en internet encuentro algo sobre que con el while true se congela el PC o algo así y que se podría colocar un thread.sleep(1000) para resolverlo pero no funciona.

De antemano agradezco su ayuda.

Adrian
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder