[VB.net]Kommunikation mit einem POP3 Server

[Iceman346]

Ich versuche momentan, leider ziemlich erfolglos, einen POP3 Mailserver über VB.net anzusprechen. Das Senden von Kommandos klappt, was nicht so recht will ist das Auslesen der Antworten.

Versucht hab ich das nach dieser Anleitung, ergo mit einem TCPClient welcher auf den Server losgeht. Das klappt auch wunderbar, sofern die Antwort des Mailservers lediglich aus einer Zeile besteht. Dann kriegt man genau diese Zeile ausgelesen und alles ist in Butter.

Sobald die Antwort mehrere Zeilen beinhaltet (beispielsweise bei "LIST" oder "RETR") ists vorbei. Die Peek Funktion gibt bereits nach der ersten Zeile -1 zurück und die restlichen Ausgaben bleiben im Stream stehen.

Irgendwer irgendeine Idee wieso das so passiert bzw. was man anders machen könnte?

Meine Funktion zum Annehmen von Antworten:

    Public Function GetResponse() As String

        Dim reader As New StreamReader(mailstream)

        Dim buffer As New System.Text.StringBuilder


        While reader.Peek > 0

            System.Threading.Thread.Sleep(100)

            buffer.Append(reader.ReadLine + vbCrLf)

        End While

        Return buffer.ToString

    End Function