Private Sub btnconnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnconnect.Click client = New TcpClient client.Connect("192.168.0.100", portno) Dim data(client.ReceiveBufferSize) As Byte Dim readBytes As Integer = client.GetStream.Read(data, 0, CInt(client.ReceiveBufferSize)) ListBox1.Items.Add(System.Text.Encoding.ASCII.GetString(data, 0, readBytes)) 'ListBox1.Items.Add(readBytes) End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)