POP3 form : POP3 « Socket Network « VB.Net Tutorial

Home
VB.Net Tutorial
1.Language Basics
2.Data Type
3.Operator
4.Statements
5.Date Time
6.Class Module
7.Development
8.Collections
9.Generics
10.Attributes
11.Event
12.LINQ
13.Stream File
14.GUI
15.GUI Applications
16.Windows Presentation Foundation
17.2D Graphics
18.I18N Internationlization
19.Reflection
20.Regular Expressions
21.Security
22.Socket Network
23.Thread
24.Windows
25.XML
26.Database ADO.net
27.Design Patterns
VB.Net
VB.Net by API
VB.Net Tutorial » Socket Network » POP3 
22.24.1.POP3 form
POP3 form
'Visual Basic.Net JingCai Programming 100 Examples
'Author: Yong Zhang
'Publisher: Water Publisher China
'ISBN: 750841156

Imports System.IO
Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Imports System.Reflection.Emit

Imports System.Windows.Forms

public class PopClientForm
   public Shared Sub Main
        Application.Run(New Form1)
   End Sub
End class
Public Class Form1
  Inherits System.Windows.Forms.Form

  Public Sub New()
    MyBase.New()

    InitializeComponent()
    sHost = SetupForm.txtHost.Text
    sPort = SetupForm.txtPort.Text
    sUser = SetupForm.txtUser.Text
    sPass = SetupForm.txtPassword.Text

    showObject(False)
  End Sub

  Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
    If disposing Then
      If Not (components Is NothingThen
        components.Dispose()
      End If
    End If
    MyBase.Dispose(disposing)
  End Sub

  Private components As System.ComponentModel.IContainer

  Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
  Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
  Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
  Friend WithEvents ToolBar1 As System.Windows.Forms.ToolBar
  Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
  Friend WithEvents mnuProfile As System.Windows.Forms.MenuItem
  Friend WithEvents mnuExit As System.Windows.Forms.MenuItem
  Friend WithEvents btnReceive As System.Windows.Forms.ToolBarButton
  Friend WithEvents btnPrevious As System.Windows.Forms.ToolBarButton
  Friend WithEvents btnNext As System.Windows.Forms.ToolBarButton
  Friend WithEvents StatusBar1 As System.Windows.Forms.StatusBar
  Friend WithEvents Panel1 As System.Windows.Forms.Panel
  Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
  Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
  Friend WithEvents Panel2 As System.Windows.Forms.Panel
  Friend WithEvents txtMessage As System.Windows.Forms.TextBox
  Friend WithEvents Panel3 As System.Windows.Forms.Panel
  Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
  Friend WithEvents lstLog As System.Windows.Forms.ListBox
  Friend WithEvents StatusBarPanel1 As System.Windows.Forms.StatusBarPanel
  Friend WithEvents Label1 As System.Windows.Forms.Label
  <System.Diagnostics.DebuggerStepThrough()Private Sub InitializeComponent()
    Me.components = New System.ComponentModel.Container()
    Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1))
    Me.MainMenu1 = New System.Windows.Forms.MainMenu()
    Me.MenuItem1 = New System.Windows.Forms.MenuItem()
    Me.mnuProfile = New System.Windows.Forms.MenuItem()
    Me.MenuItem3 = New System.Windows.Forms.MenuItem()
    Me.mnuExit = New System.Windows.Forms.MenuItem()
    Me.ToolBar1 = New System.Windows.Forms.ToolBar()
    Me.btnReceive = New System.Windows.Forms.ToolBarButton()
    Me.btnPrevious = New System.Windows.Forms.ToolBarButton()
    Me.btnNext = New System.Windows.Forms.ToolBarButton()
    Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
    Me.StatusBar1 = New System.Windows.Forms.StatusBar()
    Me.StatusBarPanel1 = New System.Windows.Forms.StatusBarPanel()
    Me.Panel1 = New System.Windows.Forms.Panel()
    Me.TabControl1 = New System.Windows.Forms.TabControl()
    Me.TabPage1 = New System.Windows.Forms.TabPage()
    Me.Panel2 = New System.Windows.Forms.Panel()
    Me.txtMessage = New System.Windows.Forms.TextBox()
    Me.Panel3 = New System.Windows.Forms.Panel()
    Me.Label1 = New System.Windows.Forms.Label()
    Me.TabPage2 = New System.Windows.Forms.TabPage()
    Me.lstLog = New System.Windows.Forms.ListBox()
    CType(Me.StatusBarPanel1, System.ComponentModel.ISupportInitialize).BeginInit()
    Me.Panel1.SuspendLayout()
    Me.TabControl1.SuspendLayout()
    Me.TabPage1.SuspendLayout()
    Me.Panel2.SuspendLayout()
    Me.Panel3.SuspendLayout()
    Me.TabPage2.SuspendLayout()
    Me.SuspendLayout()
    '
    'MainMenu1
    '
    Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1})
    '
    'MenuItem1
    '
    Me.MenuItem1.Index = 0
    Me.MenuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuProfile, Me.MenuItem3, Me.mnuExit})
    Me.MenuItem1.Text = "&File"
    '
    'mnuProfile
    '
    Me.mnuProfile.Index = 0
    Me.mnuProfile.Text = "&Profile"
    '
    'MenuItem3
    '
    Me.MenuItem3.Index = 1
    Me.MenuItem3.Text = "-"
    '
    'mnuExit
    '
    Me.mnuExit.Index = 2
    Me.mnuExit.Text = "E&xit"
    '
    'ToolBar1
    '
    Me.ToolBar1.AllowDrop = True
    Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.btnReceive, Me.btnPrevious, Me.btnNext})
    Me.ToolBar1.ButtonSize = New System.Drawing.Size(3535)
    Me.ToolBar1.DropDownArrows = True
    Me.ToolBar1.ImageList = Me.ImageList1
    Me.ToolBar1.Name = "ToolBar1"
    Me.ToolBar1.ShowToolTips = True
    Me.ToolBar1.Size = New System.Drawing.Size(27438)
    Me.ToolBar1.TabIndex = 0
    '
    'btnReceive
    '
    Me.btnReceive.Text = "Mail"
    '
    'btnPrevious
    '
    Me.btnPrevious.Enabled = False
    Me.btnPrevious.Text = "Prev."
    '
    'btnNext
    '
    Me.btnNext.Enabled = False
    Me.btnNext.Text = "Next"

    Me.StatusBar1.Location = New System.Drawing.Point(0295)
    Me.StatusBar1.Name = "StatusBar1"
    Me.StatusBar1.Panels.AddRange(New System.Windows.Forms.StatusBarPanel() {Me.StatusBarPanel1})
    Me.StatusBar1.Size = New System.Drawing.Size(27424)
    Me.StatusBar1.TabIndex = 2

    Me.StatusBarPanel1.AutoSize = System.Windows.Forms.StatusBarPanelAutoSize.Spring
    '
    'Panel1
    '
    Me.Panel1.Controls.AddRange(New System.Windows.Forms.Control() {Me.TabControl1})
    Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
    Me.Panel1.Location = New System.Drawing.Point(038)
    Me.Panel1.Name = "Panel1"
    Me.Panel1.Size = New System.Drawing.Size(274257)
    Me.Panel1.TabIndex = 3
    '
    'TabControl1
    '
    Me.TabControl1.Controls.AddRange(New System.Windows.Forms.Control() {Me.TabPage1, Me.TabPage2})
    Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Fill
    Me.TabControl1.Name = "TabControl1"
    Me.TabControl1.SelectedIndex = 0
    Me.TabControl1.Size = New System.Drawing.Size(274257)
    Me.TabControl1.TabIndex = 2
    '
    'TabPage1
    '
    Me.TabPage1.Controls.AddRange(New System.Windows.Forms.Control() {Me.Panel2, Me.Panel3})
    Me.TabPage1.Location = New System.Drawing.Point(421)
    Me.TabPage1.Name = "TabPage1"
    Me.TabPage1.Size = New System.Drawing.Size(266232)
    Me.TabPage1.TabIndex = 0
    Me.TabPage1.Text = "POP3"
    '
    'Panel2
    '
    Me.Panel2.Controls.AddRange(New System.Windows.Forms.Control() {Me.txtMessage})
    Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill
    Me.Panel2.DockPadding.All = 2
    Me.Panel2.Location = New System.Drawing.Point(024)
    Me.Panel2.Name = "Panel2"
    Me.Panel2.Size = New System.Drawing.Size(266208)
    Me.Panel2.TabIndex = 1
    '
    'txtMessage
    '
    Me.txtMessage.Dock = System.Windows.Forms.DockStyle.Fill
    Me.txtMessage.Location = New System.Drawing.Point(22)
    Me.txtMessage.Multiline = True
    Me.txtMessage.Name = "txtMessage"
    Me.txtMessage.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
    Me.txtMessage.Size = New System.Drawing.Size(262204)
    Me.txtMessage.TabIndex = 2
    Me.txtMessage.Text = ""
    '
    'Panel3
    '
    Me.Panel3.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label1})
    Me.Panel3.Dock = System.Windows.Forms.DockStyle.Top
    Me.Panel3.Name = "Panel3"
    Me.Panel3.Size = New System.Drawing.Size(26624)
    Me.Panel3.TabIndex = 0
    '
    'Label1
    '
    Me.Label1.Location = New System.Drawing.Point(88)
    Me.Label1.Name = "Label1"
    Me.Label1.Size = New System.Drawing.Size(8415)
    Me.Label1.TabIndex = 2
    Me.Label1.Text = "POP3 Message:"
    '
    'TabPage2
    '
    Me.TabPage2.Controls.AddRange(New System.Windows.Forms.Control() {Me.lstLog})
    Me.TabPage2.Location = New System.Drawing.Point(421)
    Me.TabPage2.Name = "TabPage2"
    Me.TabPage2.Size = New System.Drawing.Size(302308)
    Me.TabPage2.TabIndex = 1
    Me.TabPage2.Text = "Transaction"
    Me.TabPage2.Visible = False
    '
    'lstLog
    '
    Me.lstLog.Dock = System.Windows.Forms.DockStyle.Fill
    Me.lstLog.HorizontalScrollbar = True
    Me.lstLog.ItemHeight = 12
    Me.lstLog.Name = "lstLog"
    Me.lstLog.Size = New System.Drawing.Size(302308)
    Me.lstLog.TabIndex = 0
    '
    'Form1
    '
    Me.AutoScaleBaseSize = New System.Drawing.Size(515)
    Me.ClientSize = New System.Drawing.Size(274319)
    Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Panel1, Me.StatusBar1, Me.ToolBar1})
    Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
    Me.MaximizeBox = False
    Me.Menu = Me.MainMenu1
    Me.Name = "Form1"
    Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
    Me.Text = "POP3"
    CType(Me.StatusBarPanel1, System.ComponentModel.ISupportInitialize).EndInit()
    Me.Panel1.ResumeLayout(False)
    Me.TabControl1.ResumeLayout(False)
    Me.TabPage1.ResumeLayout(False)
    Me.Panel2.ResumeLayout(False)
    Me.Panel3.ResumeLayout(False)
    Me.TabPage2.ResumeLayout(False)
    Me.ResumeLayout(False)

  End Sub

  Private SetupForm As New Form2()

  Private tcpClient As New System.Net.Sockets.TcpClient()
  Private networkStream As Stream

  Private totalMail, currentMail, mailSize As Integer

  Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgsHandles ToolBar1.ButtonClick
    Dim flag As Boolean

    If e.Button Is btnReceive Then
      Try
        If receiveMail() Then
          If totalMail > Then
            currentMail = 1

            flag = showMail(currentMail)
            showObject(True)
          Else
            MessageBox.Show("There is no mail.""POP3", MessageBoxButtons.OK, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1)
          End If
        Else
          showObject(False)
        End If
      Catch ex As Exception
        lstLog.Items.Add("Socket: " & ex.ToString())
      End Try
    End If

    If e.Button Is btnPrevious Then
      currentMail = currentMail - 1
      If (currentMail <= 1Then currentMail = 1
      If (Not showMail(currentMail)) Then currentMail = currentMail + 1
      showObject(True)
    End If

    If e.Button Is btnNext Then
      currentMail = currentMail + 1
      If (currentMail >= totalMailThen currentMail = totalMail
      If (Not showMail(currentMail)) Then currentMail = currentMail - 1
      showObject(True)
    End If
  End Sub

  Private Sub mnuProfile_Click(ByVal sender As System.Object, ByVal e As System.EventArgsHandles mnuProfile.Click
    SetupForm.ShowDialog()
  End Sub

  Private Sub mnuExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgsHandles mnuExit.Click
    tcpClient.Close()

    End
  End Sub

  Private Function receiveMail() As Boolean
    Dim strHost, strPort, strUser, strPass As String
    Dim strTo, strSubject, strMsg As String

    Dim bytes(tcpClient.ReceiveBufferSizeAs Byte
    Dim strResponse As String = Nothing

    strHost = SetupForm.txtHost.Text
    strPort = SetupForm.txtPort.Text
    strUser = SetupForm.txtUser.Text
    strPass = SetupForm.txtPassword.Text

    lstLog.Items.Clear()

    Try
      lstLog.Items.Add("C: Trying to connect to host " & strHost & ", port: " & strPort)

      tcpClient.Connect(strHost, Int32.Parse(strPort))

      networkStream = tcpClient.GetStream()

      If Not POP3Response() Then Return False

      strMsg = "USER " & strUser
      If (Not POP3Request(strMsg)) Then Return False

      If (Not POP3Response()) Then Return False

      strMsg = "PASS " & strPass
      If (Not POP3Request(strMsg)) Then Return False

      If (Not POP3Response()) Then Return False

      strMsg = "STAT"
      If (Not POP3Request(strMsg)) Then Return False

      networkStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize))

      strResponse = Encoding.ASCII.GetString(bytes)

      lstLog.Items.Add("S: " & strResponse.ToString())

      If (Not strResponse.StartsWith("+OK")) Then
        MessageBox.Show(strResponse.ToString()"POP3 Error", MessageBoxButtons.OK, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1)
        Return False
      End If

      Dim strTemp() As String
      strTemp = strResponse.Split(" ")
      totalMail = Int32.Parse(strTemp(1).Trim)
      mailSize = Int32.Parse(strTemp(2).Trim)

      Return True
    Catch ex As Exception
      tcpClient.Close()

      lstLog.Items.Add(ex.ToString())
      Return False
    End Try
  End Function

  Private Sub showObject(ByVal flag As Boolean)
    If (flagThen
      btnReceive.Enabled = False

      If ((totalMail > 1And (currentMail = 1)) Then
        btnPrevious.Enabled = False
        btnNext.Enabled = True
      ElseIf ((currentMail < totalMailAnd (currentMail > 1)) Then
        btnPrevious.Enabled = True
        btnNext.Enabled = True
      ElseIf ((currentMail = totalMailAnd (currentMail > 1)) Then
        btnPrevious.Enabled = True
        btnNext.Enabled = False
      End If
    Else
      btnPrevious.Enabled = False
      btnNext.Enabled = False
      btnReceive.Enabled = True

      txtMessage.Clear()
      lstLog.Items.Clear()
    End If
  End Sub

  Private Function showMail(ByVal mailNo As IntegerAs Boolean
    Dim strMsg, strTemp As String
    Dim strContent As String = Nothing
    Dim blnFlag As Boolean = True
    Dim bytes(tcpClient.ReceiveBufferSizeAs Byte
    Dim strResponse As String = Nothing
    Dim byteMsg() As Byte

    Try
      strMsg = "RETR " & mailNo
      If (Not POP3Request(strMsg)) Then Return False

      Do
        networkStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize))

        strResponse = Encoding.ASCII.GetString(bytes)

        If blnFlag Then
          If (Not strResponse.StartsWith("+OK")) Then
            MessageBox.Show(strResponse.ToString()"POP3 Error", MessageBoxButtons.OK, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1)
            Return False
          End If
          blnFlag = False
        End If

        strContent = strContent & strResponse.Trim.ToString

        Dim cNull As Char = ControlChars.NullChar

        byteMsg = Encoding.ASCII.GetBytes(strContent.Trim(cNull).ToCharArray())

        strTemp = Encoding.ASCII.GetString(byteMsg, 0, byteMsg.Length - 2)

        If (strTemp.Trim().EndsWith(".")) Then
          Exit Do
        End If
      Loop

      txtMessage.Text = strContent

      StatusBar1.Text = "Total: " & totalMail & " (Size: " & mailSize & ") Current: " & mailNo

      Return True
    Catch ex As Exception
      lstLog.Items.Add(ex.ToString())
      Return False
    End Try
  End Function

  Private Function POP3Response() As Boolean
    Dim bytes(tcpClient.ReceiveBufferSizeAs Byte
    Dim strResponse As String = Nothing

    Try
      networkStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize))

      strResponse = Encoding.ASCII.GetString(bytes)

      lstLog.Items.Add("S: " & strResponse.ToString())

      If Not strResponse.StartsWith("+OK"Then
        lstLog.Items.Add("POP3Response Error.")

        tcpClient.Close()
        Return False
      Else
        Return True
      End If
    Catch ex As Exception
      lstLog.Items.Add("POP3Response Error: " & ex.ToString())
      tcpClient.Close()
      Return False
    End Try
  End Function

  Private Function POP3Request(ByVal strMsg As StringAs Boolean
    Dim byteMsg() As Byte

    strMsg = strMsg & ControlChars.CrLf

    Try
      byteMsg = Encoding.ASCII.GetBytes(strMsg.ToCharArray())

      networkStream.Write(byteMsg, 0, byteMsg.Length)

      lstLog.Items.Add("C: " & strMsg.ToString())
      Return True
    Catch ex As Exception
      lstLog.Items.Add("POP3Request Error: " & ex.ToString())

      tcpClient.Close()

      Return False
    End Try
  End Function
End Class

Module Module1
  Public sHost As String
  Public sPort As String
  Public sUser As String
  Public sPass As String
End Module

Public Class Form2
    Inherits System.Windows.Forms.Form

    Public Sub New()
        MyBase.New()

        InitializeComponent()

    End Sub

    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is NothingThen
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    Private components As System.ComponentModel.IContainer

  Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
  Friend WithEvents txtHost As System.Windows.Forms.TextBox
  Friend WithEvents txtPort As System.Windows.Forms.TextBox
  Friend WithEvents txtUser As System.Windows.Forms.TextBox
  Friend WithEvents btnOK As System.Windows.Forms.Button
  Friend WithEvents btnCancel As System.Windows.Forms.Button
  Friend WithEvents txtPassword As System.Windows.Forms.TextBox
  Friend WithEvents Label5 As System.Windows.Forms.Label
  Friend WithEvents Label6 As System.Windows.Forms.Label
  Friend WithEvents Label7 As System.Windows.Forms.Label
  Friend WithEvents Label8 As System.Windows.Forms.Label
  <System.Diagnostics.DebuggerStepThrough()Private Sub InitializeComponent()
    Me.GroupBox1 = New System.Windows.Forms.GroupBox()
    Me.txtPassword = New System.Windows.Forms.TextBox()
    Me.txtUser = New System.Windows.Forms.TextBox()
    Me.txtPort = New System.Windows.Forms.TextBox()
    Me.txtHost = New System.Windows.Forms.TextBox()
    Me.Label5 = New System.Windows.Forms.Label()
    Me.Label6 = New System.Windows.Forms.Label()
    Me.Label7 = New System.Windows.Forms.Label()
    Me.Label8 = New System.Windows.Forms.Label()
    Me.btnOK = New System.Windows.Forms.Button()
    Me.btnCancel = New System.Windows.Forms.Button()
    Me.GroupBox1.SuspendLayout()
    Me.SuspendLayout()
    '
    'GroupBox1
    '
    Me.GroupBox1.Controls.AddRange(New System.Windows.Forms.Control() {Me.txtPassword, Me.txtUser, Me.txtPort, Me.txtHost, Me.Label5, Me.Label6, Me.Label7, Me.Label8})
    Me.GroupBox1.Location = New System.Drawing.Point(35)
    Me.GroupBox1.Name = "GroupBox1"
    Me.GroupBox1.Size = New System.Drawing.Size(240135)
    Me.GroupBox1.TabIndex = 0
    Me.GroupBox1.TabStop = False
    Me.GroupBox1.Text = "POP3 Server"
    '
    'txtPassword
    '
    Me.txtPassword.Location = New System.Drawing.Point(7098)
    Me.txtPassword.Name = "txtPassword"
    Me.txtPassword.PasswordChar = Microsoft.VisualBasic.ChrW(42)
    Me.txtPassword.Size = New System.Drawing.Size(16022)
    Me.txtPassword.TabIndex = 3
    Me.txtPassword.Text = ""
    '
    'txtUser
    '
    Me.txtUser.Location = New System.Drawing.Point(7072)
    Me.txtUser.Name = "txtUser"
    Me.txtUser.Size = New System.Drawing.Size(16022)
    Me.txtUser.TabIndex = 2
    Me.txtUser.Text = "leo_huang"
    '
    'txtPort
    '
    Me.txtPort.Location = New System.Drawing.Point(7046)
    Me.txtPort.Name = "txtPort"
    Me.txtPort.Size = New System.Drawing.Size(16022)
    Me.txtPort.TabIndex = 1
    Me.txtPort.Text = "110"
    '
    'txtHost
    '
    Me.txtHost.Location = New System.Drawing.Point(7020)
    Me.txtHost.Name = "txtHost"
    Me.txtHost.Size = New System.Drawing.Size(16022)
    Me.txtHost.TabIndex = 0
    Me.txtHost.Text = "192.168.1.59"
    '
    'Label5
    '
    Me.Label5.Location = New System.Drawing.Point(824)
    Me.Label5.Name = "Label5"
    Me.Label5.Size = New System.Drawing.Size(7015)
    Me.Label5.TabIndex = 0
    Me.Label5.Text = "Host:"
    '
    'Label6
    '
    Me.Label6.Location = New System.Drawing.Point(8102)
    Me.Label6.Name = "Label6"
    Me.Label6.Size = New System.Drawing.Size(7015)
    Me.Label6.TabIndex = 3
    Me.Label6.Text = "Password:"
    '
    'Label7
    '
    Me.Label7.Location = New System.Drawing.Point(876)
    Me.Label7.Name = "Label7"
    Me.Label7.Size = New System.Drawing.Size(7015)
    Me.Label7.TabIndex = 2
    Me.Label7.Text = "Login:"
    '
    'Label8
    '
    Me.Label8.Location = New System.Drawing.Point(850)
    Me.Label8.Name = "Label8"
    Me.Label8.Size = New System.Drawing.Size(7015)
    Me.Label8.TabIndex = 1
    Me.Label8.Text = "Port:"
    '
    'btnOK
    '
    Me.btnOK.Location = New System.Drawing.Point(28152)
    Me.btnOK.Name = "btnOK"
    Me.btnOK.Size = New System.Drawing.Size(8525)
    Me.btnOK.TabIndex = 4
    Me.btnOK.Text = "OK"
    '
    'btnCancel
    '
    Me.btnCancel.Location = New System.Drawing.Point(133152)
    Me.btnCancel.Name = "btnCancel"
    Me.btnCancel.Size = New System.Drawing.Size(8525)
    Me.btnCancel.TabIndex = 5
    Me.btnCancel.Text = "Cancel"
    '
    'Form2
    '
    Me.AutoScaleBaseSize = New System.Drawing.Size(515)
    Me.ClientSize = New System.Drawing.Size(247191)
    Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnCancel, Me.btnOK, Me.GroupBox1})
    Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
    Me.MaximizeBox = False
    Me.Name = "Form2"
    Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
    Me.Text = "POP3 Profile"
    Me.GroupBox1.ResumeLayout(False)
    Me.ResumeLayout(False)

  End Sub

  Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgsHandles MyBase.Load
    txtHost.Text = sHost
    txtPort.Text = sPort
    txtUser.Text = sUser
    txtPassword.Text = sPass
  End Sub

  Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgsHandles btnOK.Click
    If txtHost.Text = "" Or txtPort.Text = "" Or txtUser.Text = "" Then
      MessageBox.Show("Please enter the information.""POP3", MessageBoxButtons.OK, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1)
    Else
      sHost = txtHost.Text
      sPort = txtPort.Text
      sUser = txtUser.Text
      sPass = txtPassword.Text
      Me.Close()
    End If
  End Sub

  Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgsHandles btnCancel.Click
    Me.Close()
  End Sub
End Class
22.24.POP3
22.24.1.POP3 formPOP3 form
www.java2java.com | Contact Us
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.