Public Sub Steckdose_Anschluss_ansteuern(Netio_Steckleiste As Integer, _
    Anschluss As Integer, An As Boolean)
        Dim AnAus As Integer
        Dim TCPBefehl As String
        Dim IPAdresse As String
 
        IPAdresse = Netio_IPAdressen(Netio_Steckleiste)
        If An = True Then
            AnAus = 1
        Else
            AnAus = 0
        End If
 
        ' Herkunft: 
        ' https://www.vb-paradise.de/index.php/Thread/26043-Tutorial-Wie-stelle
        ' -ich-eine-Verbindung-nach-Telnet-her/
        Dim tcpClient As New System.Net.Sockets.TcpClient()
        tcpClient.Connect(IPAdresse, 1234)
        Dim networkStream As NetworkStream = tcpClient.GetStream()
 
        Dim sendBytes As [Byte]()
        sendBytes = Encoding.ASCII.GetBytes("login admin admin" & vbCrLf)
        networkStream.Write(sendBytes, 0, sendBytes.Length)
 
        TCPBefehl = "port " & Anschluss & " " & AnAus
        sendBytes = Encoding.ASCII.GetBytes(TCPBefehl & vbCrLf)
        networkStream.Write(sendBytes, 0, sendBytes.Length)
 
        TCPBefehl = "port list"
        sendBytes = Encoding.ASCII.GetBytes(TCPBefehl & vbCrLf)
        networkStream.Write(sendBytes,0, sendBytes.Length)
        'MsgBox(networkStream.Read(sendBytes, 0, sendBytes.Length))
 
        sendBytes = Encoding.ASCII.GetBytes("logout" & vbCrLf)
        networkStream.Write(sendBytes, 0, sendBytes.Length)
 
        tcpClient.Close()
 
    End Sub