Imports System.Net.Sockets
Imports System.IO

Module Module1
    Dim stream As NetworkStream
    Dim streamw As StreamWriter
    Dim streamr As StreamReader
    Dim client As New TcpClient
    Dim strBefehl As String

    Sub Main()

        strBefehl = "FUNCTION Play Input 1\r\n"
        Try
            client.Connect("127.0.0.1", 8099)
            If client.Connected Then
                stream = client.GetStream
                streamw = New StreamWriter(stream)
                streamr = New StreamReader(stream)
                streamw.WriteLine(encode(strBefehl))
                Console.WriteLine(encode(strBefehl))
                Console.WriteLine(strBefehl)

                streamw.Flush()
                Console.WriteLine(Receive)
                client.Close()
                stream.Close()
                streamw.Close()
                streamr.Close()
            Else
                Console.WriteLine("Not connected")
            End If
        Catch
            Console.WriteLine("gar nicht connected")
        End Try

    End Sub

    Function Receive() As String
        Try
            Return streamr.ReadLine
        Catch
            Return ""
        End Try
    End Function

    Function encode(ByVal str As String) As String
        'supply True as the construction parameter to indicate
        'that you wanted the class to emit BOM (Byte Order Mark)
        'NOTE: this BOM value is the indicator of a UTF-8 string
        Dim utf8Encoding As New System.Text.UTF8Encoding(True)
        Dim encodedString() As Byte

        encodedString = utf8Encoding.GetBytes(str)

        Return utf8Encoding.GetString(encodedString)
    End Function
 
End Module