Imports System.net.sockets
Imports System.Net
Module POP3
    Sub Main()
        Dim mysoket As Socket
        mysoket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
        mysoket.Connect(New IPEndPoint(IPAddress.Parse("192.168.7.85"),  110 ))

        Dim s As String
        Dim bbuf As Byte()

        Dim kol As Integer
        While True
            Dim bbuf2( 255 ) As Byte

            kol = mysoket.Receive(bbuf2,  255 ,  0 )

            If kol =  0  Then Exit While
            s = System.Text.Encoding.ASCII.GetString(bbuf2)

            Console.WriteLine(s)

            s = Console.ReadLine()

            bbuf = System.Text.Encoding.ASCII.GetBytes(s.ToCharArray())

            System.Array.Clear(bbuf,  0 , bbuf.Length)

            mysoket.Send(bbuf, bbuf.Length,  0 )

            If s.StartsWith(".") Then
                Exit While
            End If
        End While

        mysoket.Close()
    End Sub