Visual Basic

Const portNo As Integer = 500
Dim localAdd As System.Net.IPAddress = _
    IPAddress.Parse("127.0.0.1")
Dim listener As New TcpListener(localAdd, portNo)
listener.Start()
Console.WriteLine("Listening...")

Dim tcpClient As TcpClient = listener.AcceptTcpClient()
Dim NWStream As NetworkStream = tcpClient.GetStream
Dim bytesToRead(tcpClient.ReceiveBufferSize) As Byte

'---read incoming stream
Dim numBytesRead As Integer = NWStream.Read(bytesToRead, _
                        0, CInt(tcpClient.ReceiveBufferSize))

'---write the bytes to file
Const FILE_NAME = "c:\image.gif"
Dim fs As System.IO.FileStream
fs = New FileStream(FILE_NAME, FileMode.CreateNew, _
                    FileAccess.Write)
fs.Write(bytesToRead, 0, numBytesRead)
fs.Close()

tcpClient.Close()
listener.Stop()
Console.ReadLine()

Const portNo = 500
Const FILE_NAME = "c:\ondotnet_logo.gif"
Dim tcpClient As New System.Net.Sockets.TcpClient
tcpClient.Connect("127.0.0.1", portNo)

Dim NWStream As NetworkStream = tcpclient.GetStream
Dim bytesToSend(tcpClient.ReceiveBufferSize) As Byte

Dim fs As FileStream
fs = New FileStream(FILE_NAME, FileMode.Open, _
                    FileAccess.Read)
Dim numBytesRead As Integer = fs.Read(bytesToSend, _
                    0, bytesToSend.Length)
fs.Close()

'---send the text
Console.WriteLine("Sending ...")
NWStream.Write(bytesToSend, 0, numBytesRead)

Console.ReadLine()
tcpclient.Close()