Async Client

Module Client

    Dim host As String = "127.0.0.1"
    Dim port As Integer = 7008
    Dim client As TcpClient

    Sub Main()
        Dim t As New Threading.Thread(AddressOf KeepOpen)
        t.Name = "Keep Open"
        t.Start()
        Connect()
    End Sub

    Sub KeepOpen()
        Console.ReadLine()
    End Sub

    Sub Send(ByVal message As String)
         Dim writer As New StreamWriter(client.GetStream())
         writer.WriteLine(message)
         writer.Flush()
    End Sub

    Sub Read(ByVal ar As IAsyncResult)
        Dim reader As New StreamReader(client.GetStream())
        Dim unparsed = reader.ReadLine()
        client.GetStream().BeginRead(New Byte() {0}, 0, 0, AddressOf Read, Nothing)
    End Sub

    Sub Connect()
        Console.Write("Connecting to " & host & ":" & port & Environment.NewLine)
        client = New TcpClient(host, port)
        Console.Write("Connected" & Environment.NewLine)
        For i = 0 To 100
            Send(i & ",")
        Next i
        Send("g")
        client.GetStream().BeginRead(New Byte() {0}, 0, 0, AddressOf Read, Nothing)
    End Sub

End Module