Клиент для e-mail

Imports System.Drawing
Imports System.IO
Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Imports System.Threading
Imports System.Windows.Forms
 
 
Public Class PopCheck
 
    Inherits Form
    Public Shared hostname As New Windows.Forms.TextBox
    Public Shared messages As New Windows.Forms.ListBox
    Public Shared password As New Windows.Forms.TextBox
    Public Shared status As New Windows.Forms.TextBox
    Public Shared username As New Windows.Forms.TextBox
    Public Shared mailclient As TcpClient
    Public Shared ns As NetworkStream
    Public Shared sr As StreamReader
    Public Shared sw As StreamWriter
 
 
    Public Sub New()
    End Sub
 
    Public Shared Sub ButtonloginOnClick()
        status.Text = "Проверка..."
        Dim startlogin As New Thread(New ThreadStart(AddressOf loginandretr))
        startlogin.IsBackground = True
        startlogin.Start()
    End Sub
 
    Public Shared Sub ButtoncloseOnClick(ByVal obj As Object, ByVal ea As EventArgs)
        If ns IsNot Nothing Then
            sw.Close()
            sr.Close()
            ns.Close()
            mailclient.Close()
        End If
 
    End Sub
 
    Public Shared Sub loginandretr()
        Try
            Dim response As String
            Dim from As String = Nothing
            Dim subject As String = Nothing
            Dim totmessages As Integer
 
            Try
                mailclient = New TcpClient(hostname.Text, 110)
            Catch generatedExceptionName As SocketException
                status.Text = "Никак"
                Return
            End Try
 
            ns = mailclient.GetStream()
            sr = New StreamReader(ns)
            sw = New StreamWriter(ns)
 
            response = sr.ReadLine()
 
            sw.WriteLine("User " + username.Text)
            sw.Flush()
 
            response = sr.ReadLine()
            If response = "-ERR" Then
                status.Text = "Никак"
                Return
            End If
 
            sw.WriteLine("Pass " + password.Text)
            sw.Flush()
 
            Try
                response = sr.ReadLine()
            Catch generatedExceptionName As IOException
                status.Text = "Невозможно подключиться"
                Return
            End Try
            If response.Substring(0, 3) = "-ER" Then
                status.Text = "Сервер не доступен"
                Return
            End If
 
            sw.WriteLine("stat")
            sw.Flush()
 
            response = sr.ReadLine()
            Dim nummess As String() = response.Split(" "c)
            totmessages = Convert.ToInt16(nummess(1))
            If totmessages > 0 Then
                status.Text = "у вас" & totmessages & "сообщения"
            Else
                status.Text = "Сообщений нету"
            End If
 
            For i As Integer = 1 To totmessages
                sw.WriteLine("top " & i & " 0")
                sw.Flush()
                response = sr.ReadLine()
 
                While True
                    response = sr.ReadLine()
                    If response = "." Then
                        Exit While
                    End If
                    Try
 
                        If response.Length > 4 Then
                            If response.Substring(0, 5) = "От:" Then
                                from = response
                            End If
                            If response.Substring(0, 8) = "Сабж:" Then
                                subject = response
                            End If
                        End If
 
                    Catch ex As Exception
 
                    End Try
                End While
                Try
                    messages.Items.Add(i & "  " & from & "  " & subject)
                Catch
                End Try
 
            Next
        Catch
        End Try
 
    End Sub
 
    Public Shared Sub getmessagesDoubleClick(ByVal ind As Integer)
        Dim text As String = DirectCast(messages.Items(ind), String)
        Dim textarray As String() = text.Split(" "c)
        Dim sm As New ShowMessage(ns, textarray(0))
        sm.ShowDialog()
    End Sub
 
    Public Shared Sub Main()
        Application.Run(New PopCheck())
    End Sub
End Class
 
Class ShowMessage
    Inherits Form
    Public Sub New(ByVal ns As NetworkStream, ByVal messnumber As String)
        Dim sr As New StreamReader(ns)
        Dim sw As New StreamWriter(ns)
        Dim response As String
 
        Text = "Message " & messnumber
        Size = New Size(400, 380)
        ShowInTaskbar = False
 
        Dim display As New TextBox()
        display.Parent = Me
        display.Multiline = True
        display.Dock = DockStyle.Fill
        display.ScrollBars = ScrollBars.Both
 
        sw.WriteLine("retr " & messnumber)
        sw.Flush()
        response = sr.ReadLine()
 
        While False
            'response = sr.ReadLine()
            If response = "." Then
                Exit While
            End If
            'display.Text += response & vbCr & vbLf
        End While
    End Sub
End Class

                    PopCheck.hostname.Text = "pop.mail.ru"
                    PopCheck.username.Text = "user"
                    PopCheck.password.Text = "pass"
                    PopCheck.ButtonloginOnClick()
                    For i = 0 To PopCheck.messages.Items.Count - 1
                       textbox.text=textbox.text & vbcrlf & PopCheck.messages.Items(i).ToString
                    Next
                    PopCheck.getmessagesDoubleClick(5)

Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim mailman As New Chilkat.MailMan()
 
        Dim success As Boolean
        success = mailman.UnlockComponent("30-day trial")
        If (success <> True) Then
            MsgBox("Component unlock failed")
            Exit Sub
        End If
 
 
       
        mailman.MailHost = "POP.mail.ru"
 
 
        mailman.PopUsername = "ВАШ АККАУНТ"
        mailman.PopPassword = "ПАРОЛЬ ОТ АККАУНТА"
 
        Dim bundle As Chilkat.EmailBundle
      
        bundle = mailman.CopyMail()
 
        If (bundle Is Nothing) Then
            MsgBox(mailman.LastErrorText)
            Exit Sub
        End If
 
 
        Dim i As Long
        Dim email As Chilkat.Email
        For i = 0 To bundle.MessageCount - 1
            email = bundle.GetEmail(i)
            TextBox1.Text = TextBox1.Text & email.From & vbCrLf
            TextBox1.Text = TextBox1.Text & email.Subject _
                 & vbCrLf & vbCrLf
 
        Next
 
 
 
        mailman.Pop3EndSession()
 
 
    End Sub
End Class

 success = mailman.UnlockComponent("30-day trial")