' Ein neues Process-Objekt erzeugen
        Dim Anwendung As System.Diagnostics.Process = New _
          System.Diagnostics.Process()
        ' Die StartInfo-Struktur des Process-
        ' Objekts mit Informationen befüllen
        With Anwendung.StartInfo
            ' Befehlszeileninterpreter (COMMAND.COM/CMD.EXE):  
            .FileName = "ftp.exe"
            ' Kein Konsolenfenster erzeugen:  
            .CreateNoWindow = True
            ' StandardInput, -Output und -Error umleiten:  
            .RedirectStandardInput = True
            .RedirectStandardOutput = True
            .RedirectStandardError = True
            ' UseShellExecute MUSS für eine Umleitung  
            ' von StdIn, StdOut und StdErr FALSE sein:  
            .UseShellExecute = False
        End With
        ' Den Befehlszeileninterpreter starten:
        Anwendung.Start()
 
        ' StreamReader- und Writer-Objekte für den
        ' Zugriff auf StdIn, StdOut und StdErr erzeugen  
        ' Über ein StreamWriter-Objekt in StandardInput schreiben
        Dim StdIn As System.IO.StreamWriter = Anwendung.StandardInput
        StdIn.AutoFlush = True
        ' StdIn.WriteLine("help")
        StdIn.WriteLine("open")
        StdIn.WriteLine("gutepage.net")
        StdIn.WriteLine("web4")
        StdIn.WriteLine("geheim")
        StdIn.WriteLine("quit")
 
 
        ' Puffer automatisch flushen  
        ' Über ein StreamReader-Objekt aus StandardOutput lesen
        Dim StdOut As System.IO.StreamReader = Anwendung.StandardOutput
 
        ' Über ein StreamReader-Objekt aus StandardError lesen
        Dim StdErr As System.IO.StreamReader = Anwendung.StandardError
 
        Dim sTemp As String
        ' Hilfsvariable  
        ' Standardausgabe beim Starten des Befehlszeileninterpreters
        ' auslesen und damit aus dem Output-Puffer entfernen:
        Dim i
        i = 0
        While i < 60
            sTemp &= StdOut.ReadLine() & vbNewLine
            i = i + 1
        End While
        'MessageBox.Show(sTemp, "Befehlszeileninterpreter")
        sTemp = System.Text.Encoding.GetEncoding(850).GetString( _
          System.Text.Encoding.Default.GetBytes(sTemp))
        Label1.Text = sTemp