• دانلود ایمیل از سرور pop3
    #1
    Note 
    کد:
    Imports System
    Imports System.Net.Sockets
    Imports System.Text
    Imports System.IO

    کد php:
    Module POP3Message1


        Dim Server 
    As TcpClient
        Dim NetStrm 
    As NetworkStream
        Dim RdStrm 
    As StreamReader

        
    Public Function connect() As Integer
            Dim POP3Account 
    As String
            POP3Account 
    "mail.mavensystems.biz"
            
    If POP3Account.Trim "" Then Exit Function
            Try
                
    Server = New TcpClient(POP3Account.Trim110)
                
    NetStrm Server.GetStream
                RdStrm 
    = New StreamReader(Server.GetStream)
            Catch 
    exc As Exception
                MsgBox
    (exc.Message)

                Exit Function
            
    End Try

            
    Dim user As String
            user 
    "test@mavensystems.biz"
            
    Dim data As String "USER " user.Trim vbCrLf
            Dim szData
    () As Byte System.Text.Encoding.ASCII.GetBytes(data.ToCharArray())
            
    NetStrm.Write(szData0szData.Length)
            
    Dim POPResponse As String
            POPResponse 
    RdStrm.ReadLine
            
    If POPResponse.Substring(04) = "-ERR" Then
                MsgBox
    ("Invalid user Name")
                Return -
    1
            End 
    If
            
    Dim password As String
            password 
    "test1234"
            
    data "PASS " password vbCrLf
            szData 
    System.Text.Encoding.ASCII.GetBytes(data.ToCharArray())
            
    NetStrm.Write(szData0szData.Length)
            
    POPResponse RdStrm.ReadLine
            
    If POPResponse.Substring(04) = "-ERR" Then
                MsgBox
    ("Invalid Passwprd")
                Return (-
    1)
            
    End If
            
    data "STAT" vbCrLf
            szData 
    System.Text.Encoding.ASCII.GetBytes(data.ToCharArray())
            
    NetStrm.Write(szData0szData.Length)
            
    POPResponse RdStrm.ReadLine
            
    If POPResponse.Substring(04) = "-ERR" Then
                MsgBox
    ("could not log your in")
                Return -
    1
            End 
    If
            
    data "Stat" vbCrLf
            szData 
    System.Text.Encoding.ASCII.GetBytes(data.ToCharArray())
            
    NetStrm.Write(szData0szData.Length)
            
    POPResponse RdStrm.ReadLine
            
    If POPResponse.Substring(04) = "-ERR" Then
                MsgBox
    ("could not log your in")
                Return -
    1
            End 
    If
            
    Dim parts() As String
            parts 
    POPResponse.Split(" ")
            
    Dim messagestotsize As Integer

            
    'messages = parts(3)
            messages = CInt(parts(1))
            Return messages



        End Function
        Public Function DeleteMessage(ByVal msgIndex As Integer)
            Dim data As String = "DELE " & msgIndex.ToString & vbCrLf
            Dim SzData() As Byte = System.Text.Encoding.ASCII.GetBytes(data.ToCharArray())
            NetStrm.Write(SzData, 0, SzData.Length)
            Dim tmpString As String = RdStrm.ReadLine()
            If tmpString.Substring(0, 4) = "-ERR" Then
                MsgBox("Could Not Delete Message")
                Return (-1)
            Else
                Return 11
            End If
        End Function
        Public Function Quit()
            Dim data As String = "Quit " & vbCrLf
            Dim szData() As Byte = System.Text.Encoding.ASCII.GetBytes(data.ToCharArray())
            NetStrm.Write(szData, 0, szData.Length)
            Dim tmpString As String = RdStrm.ReadLine()
        End Function
        Public Structure Message
            Dim _From As String
            Dim _To As String
            Dim _Date As String
            Dim _Subject As String
            Dim _CC As String
            Dim _BCC As String
            Dim _Body As String
            Dim _Received As String
        End Structure
        Public Function CreateFromText(ByVal strMessage As String) As Message
            Dim Mssg As New Message
            Dim brkPos As Integer
            Dim Header As String
            Dim Headers() As String
            Dim Body As String
            Dim vField As Object
            Dim strHeader As String
            Dim HeaderName As String
            Dim HeaderValue As String


            brkPos = InStr(1, strMessage, vbCrLf & vbCrLf)
            If brkPos Then
                Header = strMessage.Substring(0, brkPos - 1)
                Body = strMessage.Substring(brkPos + 1, _
                strMessage.Length - Header.Length - 3)
                Mssg._Body = Body
            Else
                Throw New Exception("Invalid Message Format")
                Exit Function
            End If
            Headers = Split(Header, vbCrLf)
            Dim _header As String
            For Each _header In Headers
                brkPos = _header.IndexOf(":")
                If brkPos >= 0 Then
                    HeaderName = _header.Substring(0, brkPos)
                Else
                    HeaderName = ""
                End If
                HeaderValue = _header.Substring(brkPos + 1)
                Select Case HeaderName.ToLower
                    Case "received"
                        Mssg._Received = HeaderValue
                    Case "from"
                        Mssg._From = HeaderValue
                    Case "to"
                        Mssg._To = HeaderValue
                    Case "cc"
                        Mssg._CC = HeaderValue
                    Case "bcc"
                        Mssg._BCC = HeaderValue
                    Case "subject"
                        Mssg._Subject = HeaderValue
                    Case "date"
                        Mssg._Date = HeaderValue
                End Select
            Next
            Return Mssg
        End Function
        Function GetMessage(ByVal msgindex As Integer) As String
            Dim tmpString As String
            Dim Data As String
            Dim SzData() As Byte
            Dim msg As String
            Try
                Data = "RETR " & msgindex.ToString & vbCrLf
                SzData = System.Text.Encoding.ASCII.GetBytes(Data.ToCharArray())
                NetStrm.Write(SzData, 0, SzData.Length)
                tmpString = RdStrm.ReadLine()
                If tmpString.Substring(0, 4) <> "-ERR" Then
                    While (tmpString <> ".")
                        msg = msg & tmpString & vbCrLf
                        tmpString = RdStrm.ReadLine
                    End While
                End If
            Catch exc As InvalidOperationException
                MsgBox("Message Retrival Failed: " & vbCrLf & Err.ToString())
            End Try
            Return msg
        End Function
    End Module 


    کد php:
    'Add new module in your project and add this code in to your module only copy and paste no need to do any of changes....

    '
    ----------------------------------------------------------------------------------
    YOu add new form in your project gave name Frminbox and copy and paste this code.


    Imports System
    Imports System
    .Net.Sockets
    Imports System
    .Text
    Imports System
    .IO


    Public Class FrmInbox

        Inherits System
    .Windows.Forms.Form

        
        Dim Server 
    As TcpClient
        Dim NetStrm 
    As NetworkStream
        Dim RdStrm 
    As StreamReader


        
        
    Private Sub CmdDownload_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles CmdDownload.Click

            Dim i 
    As Integer
            Dim msg 
    As POP3Message1.Message
            Dim msgstring 
    As String
            Dim messages1 
    As Integer
            Me
    .Cursor Cursors.WaitCursor
           

           messages1 
    connect()

                If 
    messages1 = -1 Then
                    Me
    .Cursor Cursors.Default
                    Exit 
    Sub
                End 
    If
                
    Dim originalCaption As String Me.Text
                
    For 1 To messages1
                    Me
    .Text "Downloading Message " i.ToString "/" _
                    messages1
    .ToString
                    Dim msgitem 
    As New ListViewItem
                    msgstring 
    GetMessage(i)
                    
    msg CreateFromText(msgstring)
                    
    msgitem.Text msg._From
                    msgitem
    .SubItems.Add(msg._Subject)
                    
    msgitem.SubItems.Add(msg._Date)
                
    ListView1.Items.Add(msgitem)
                
    TextBox1.AppendText(msg._Body vbCrLf)
                
    Next
                Me
    .Text originalCaption
            Me
    .Cursor Cursors.Default

        
    End Sub

       

        
    Private Sub ListView1_Click(ByVal sender As System.ObjectByVal e As System.EventArgs)
            
    Dim messages As Integer
            
    'Dim objPOP3 As POP3Message
            TextBox1.Text = GetMessage(ListView1.SelectedIndices(0) + 1)

        End Sub


        Private Sub ListView1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ListView1.KeyUp
            If e.KeyCode = Keys.Delete Then
                If DeleteMessage(ListView1.SelectedIndices(0) + 1) >= 0 Then
                    ListView1.Items(ListView1.SelectedIndices(0)).Text = "DELETED"
                    ListView1.Items(ListView1.SelectedIndices(0)).SubItems.Clear()
                    MsgBox("Your Email Message is Deleted", MsgBoxStyle.Information, "Delete Message")
                End If
            End If
        End Sub

        Private Sub CmdClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdClose.Click
            Call Quit()
            ListView1.Items.Clear()
        End Sub

        
    End Class 

    پاسخ
    ایجاد موضوع جدید   پاسخ به موضوع  

    کاربرانِ درحال بازدید از این موضوع:   1 مهمان