Imports System
Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Imports System.io
Imports System.Threading
'Die Imports
 
Public Class Form1
 
    Public stream As NetworkStream
    Public sr As StreamReader
 
    Private Function sendCommand(ByVal send As String) As String
        send += vbCrLf
        Dim data As [Byte]() = Encoding.ASCII.GetBytes(send)
        stream.Write(data, 0, data.Length)
        sr = New StreamReader(stream)
        Dim buffer As New StringBuilder
        Do While sr.Peek() > 0
            Thread.Sleep(100)
            buffer.Append(sr.ReadLine + vbCrLf)
        Loop
        Return buffer.ToString
    End Function
    Dim info As String
    Dim server As String = "192.168.100.22"
    Dim user As String = "root"
    Dim password As String = "geheim"
    Dim client As New TcpClient(server, 110)
        stream = client.GetStream()
        sr = New StreamReader(stream)
        info += sendCommand("?")
MSGBOX(info)
 
End Class