Visual Basic

Dim tcpClient As New System.Net.Sockets.TcpClient()
tcpClient.Connect("127.0.0.1", 8000)
 
Dim networkStream As NetworkStream = tcpClient.GetStream()
If networkStream.CanWrite And networkStream.CanRead Then
 
Dim sendBytes() As Byte = Encoding.ASCII.GetBytes("Is anybody there")
networkStream.Write(sendBytes, 0, sendBytes.Length)
 
Dim bytes(tcpClient.ReceiveBufferSize) As Byte
networkStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize))

Dim returndata As String = Encoding.ASCII.GetString(bytes)

Dim desktop As SteidingerDesktop = New SteidingerDesktop
        Dim localhostAddress As IPAddress = IPAddress.Loopback
        Dim tcpList As New TcpListener(localhostAddress, 2048)
        tcpList.Start()
        Do
            Dim tcpcli As TcpClient = tcpList.AcceptTcpClient
            Dim ns As NetworkStream = tcpcli.GetStream
            Dim sr As New StreamReader(ns)
            Dim receivedData As String = sr.ReadLine()
            Dim result As Boolean

            If receivedData <> "" Then
                'Test the received data to see which function to call
                If receivedData = "BUYER" Then
                    result = desktop.getBuyers()
                ElseIf receivedData = "SHIP" Then
                    result = desktop.updateShip()
                ElseIf receivedData = "MOVE" Then
                    result = desktop.updateMove()
                ElseIf receivedData = "PHYINV" Then
                    result = desktop.updatePhyInv()
                End If


                Try
                    ' resultData = file.ReadAllText(fileName)
                Catch ex As Exception
                    'send back result        result = "ERROR"
                End Try
                'Send result
                SendData(ns, result)

            End If
            sr.Close()
            ns.Close()
            tcpcli.Close()
            If receivedData = "" Then Exit Do
        Loop

        tcpList.Stop()

Dim tcpClient As New System.Net.Sockets.TcpClient()
        tcpClient.Connect("ipaddress of my desktop", 2048)

        Dim networkStream As NetworkStream = tcpClient.GetStream()
        If networkStream.CanWrite And networkStream.CanRead Then

            Dim sendBytes() As Byte = Encoding.ASCII.GetBytes("Buyer")
            networkStream.Write(sendBytes, 0, sendBytes.Length)

            Dim bytes(tcpClient.ReceiveBufferSize) As Byte
            networkStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize))

            Dim returndata As String = Encoding.ASCII.GetString(bytes, 0, bytes.Length)

        End If

N!ck wrote:

Dim gr As Graphics = pnlCell.CreateGraphics