Scratch

Imports System.IO

Imports System.Net.Sockets



Module Module1



    Sub Main()



        Try

            Console.WriteLine("Type your nickname")

            Dim serverListener As New TcpClient("localhost", 8585)

            Dim readStream As Stream = serverListener.GetStream

            serverListener.SendBufferSize = 256



            Console.WriteLine("Input Lines:")

            Dim str As String = Console.ReadLine(2) + Console.ReadLine()



            While True

                Dim sendBuff As Byte() = System.Text.Encoding.ASCII.GetBytes(str)



                readStream.Write(sendBuff, 0, sendBuff.Length)



                If str.StartsWith(".") Then

                    GoTo Done

                End If



                str = Console.ReadLine()

            End While



Done:       Console.WriteLine("Done")



        Catch exp As Exception



            Console.WriteLine("Exception: " + exp.ToString())



        End Try





    End Sub



End Module