<%@ Control Language="vb" AutoEventWireup="false" Codebehind="PopMail.ascx.vb" Inherits="code.PopMail1" %>
<form id="Form1" method="post" runat="server">
	<table width="100%">
		<tr>
			<TD align="right" width="50%">Server :</TD>
			<td align="left" width="50%">
				<asp:TextBox id="Srv" runat="server" Width="328px"></asp:TextBox>
			</td>
		</tr>
		<TR>
			<TD align="right" width="50%">User :</TD>
			<TD align="left" width="50%">
				<asp:TextBox id="Usr" runat="server" Width="328px" Wrap="False"></asp:TextBox></TD>
		</TR>
		<TR>
			<TD align="right" width="50%">Password :</TD>
			<TD align="left" width="50%">
				<asp:TextBox id="Passwd" runat="server" Width="328px" TextMode="Password"></asp:TextBox></TD>
		</TR>
		<TR>
			<TD align="right" width="50%"></TD>
			<TD align="left" width="50%">
				<asp:Button id="Button1" runat="server" Text="Check Logon"></asp:Button></TD>
		</TR>
		<TR>
			<TD align="middle" colSpan="2">
				<asp:Literal id="Answer" runat="server" Text="&amp;nbsp;"></asp:Literal></TD>
		</TR>
	</table>
</form>

Public Class PopMail1
    Inherits System.Web.UI.Control
    Protected WithEvents Srv As System.Web.UI.WebControls.TextBox
    Protected WithEvents Passwd As System.Web.UI.WebControls.TextBox
    Protected WithEvents Button1 As System.Web.UI.WebControls.Button
    Protected WithEvents Answer As System.Web.UI.WebControls.Literal
    Protected WithEvents Usr As System.Web.UI.WebControls.TextBox
 
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Page.IsPostBack Then
            Dim p As New pop3(Srv.Text)
            Dim success As Boolean = False
 
            success = p.logon(Usr.Text, Passwd.Text)
            p.logoff()
            If success Then
                Answer.Text = "Logon Successfull"
            Else
                Answer.Text = "Logon Unsuccessfull"
            End If
        End If
    End Sub
 
    Class pop3
        Private s As System.Net.Sockets.NetworkStream
        Private t As New System.Net.Sockets.TcpClient()
        Private Cnct As Boolean = False
 
        Public Sub New(ByVal Server As String)
            'open port 110 ( the pop3 port ) on the server
            Try
                'catch any error resuting from a bad server name
                t.Connect(Server, 110)
                s = t.GetStream()
                'check that the connection is okay
                If Left(getData(), 3) = "+OK" Then
                    Cnct = True
                End If
            Catch
            End Try
        End Sub
 
        Public Function logon(ByVal User As String, ByVal passwd As String) As Boolean
            Dim ret As String
 
            logon = False
 
            'make sure you have a connection
            If Cnct Then
                'send the username
                ret = SendCmd("user " + User)
 
                'if that was successfull, send the password
                If Left(ret, 3) = "+OK" Then
                    ret = SendCmd("pass " + passwd)
 
                    'if that was successfull set the return flas to true
                    If Left(ret, 3) = "+OK" Then
                        logon = True
                    End If
                End If
            End If
        End Function
 
        Public Function logoff() As String
            If Cnct Then
                logoff = SendCmd("QUIT")
            End If
        End Function
 
        Private Function SendCmd(ByVal Cmd As String) As String
            Dim bCmd As Byte()
            'byte encode the command
            bCmd = System.Text.Encoding.ASCII.GetBytes(Cmd + vbCrLf)
 
            'send the data
            s.Write(bCmd, 0, bCmd.Length)
            SendCmd = getData()
        End Function
 
        Private Function getData() As String
            Dim bData(t.ReceiveBufferSize) As Byte
            'get the response
            s.Read(bData, 0, bData.Length)
            'return the response
            getData = System.Text.Encoding.ASCII.GetString(bData)
        End Function
    End Class
 
End Class