Ver Mensaje Individual
  #6 (permalink)  
Antiguo 28/03/2012, 16:44
Avatar de jvegae
jvegae
 
Fecha de Ingreso: marzo-2012
Ubicación: Lima, Peru, Peru
Mensajes: 26
Antigüedad: 12 años, 1 mes
Puntos: 0
Respuesta: Como saber lo que contiene un TextBox

Imports System.Net.Sockets
Imports System.Text

Public Class Form1
Dim clientSocket As New System.Net.Sockets.TcpClient()
Dim serverStream As NetworkStream

Sub msg(ByVal mesg As String)
TextBox1.Text = TextBox1.Text + Environment.NewLine + " >> " + mesg
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
msg("Iniciado cliente")
clientSocket.Connect("192.168.10.199", 5100)
Label1.Text = "Programa Cliente Socket - servidor conectado ..."
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim serverStream As NetworkStream = clientSocket.GetStream()
Dim outStream As Byte() = _
System.Text.Encoding.ASCII.GetBytes("Mensaje del cliente$")
serverStream.Write(outStream, 0, outStream.Length)
serverStream.Flush()

Dim inStream(13000) As Byte
serverStream.Read(inStream, 0, CInt(clientSocket.ReceiveBufferSize))
Dim returndata As String = _
System.Text.Encoding.ASCII.GetString(inStream)
msg("Los datos del servidor : " + returndata)
End Sub
End Class