Visual C#编写实现POP3的程序

　　1.打开VS.NET 2003.

　　2.新建一个WinForm Application.3.添加命名空间

using System;using System.Drawing;using System.Collections;using System.ComponentModel;using System.Windows.Forms;using System.Data;using System.Net;using System.Net.Sockets;using System.Text;using System.IO;

　　4.主要代码

　　为了防止界面在连接服务器时死锁,我另开了一个线程

private void button1_Click(object sender, System.EventArgs e){　Thread myThread=new Thread(new ThreadStart(TreadGet));　myThread.Start();}private void TreadGet(){　ConnectToServer();　LogonServer();　GetEmailList();}//连接服务器private void ConnectToServer(){　this.myClient=new TcpClient();　try　{　　this.myClient.Connect(this.serverNameTextBox.Text,110);　　this.messageListBox.Items.Add("连接服务器成功");　　//初始化网络流,数据就是通过这个对象读出来的　　ns=this.myClient.GetStream();　　sr=new StreamReader(ns);　　sw=new StreamWriter(ns);　}　catch(Exception ex)　{　　this.messageListBox.Items.Add(ex.Message);　}}//验证用户名,密码private void LogonServer(){　result=sr.ReadLine();　this.messageListBox.Items.Add(result);　sw.WriteLine("USER "+this.nameTextBox.Text);　sw.Flush();　result=sr.ReadLine();　if(result.Substring(0,3)=="-ER")　{　　this.messageListBox.Items.Add("没有这个用户名");　　return;　}　sw.WriteLine("PASS "+this.passTextBox.Text);　sw.Flush();　try　{　　result=sr.ReadLine();　}　catch(IOException ioex)　{　　this.messageListBox.Items.Add(ioex.Message);　　return;　}　if(result.Substring(0,4)=="-ERR")　{　　this.messageListBox.Items.Add("无法登录,可能使用户名密码错误!");　　return;　}　this.messageListBox.Items.Add("登录成功");　}//获取邮件列表private void GetEmailList(){　string from=null;　string subject=null;　sw.WriteLine("stat");　sw.Flush();　result=sr.ReadLine();　// MessageBox.Show(result);　string[] nummessage=result.Split(' ');　int totalnum=Convert.ToInt32(nummessage[1]);　if(totalnum0)　　this.messageListBox.Items.Add("你有"+totalnum.ToString()+"邮件");　else　　this.messageListBox.Items.Add("邮箱里没有邮件");　for(int i=1;i=totalnum;i++)　{　　sw.WriteLine("top "+i.ToString()+" 0");　　sw.Flush();　　result=sr.ReadLine();　　while(true)　　{　　　result=sr.ReadLine();　　　if(result==".")　　　　break;　　　if(result.Length4)　　　{　　　　if(result.Substring(0,5)=="From:")　　　　　from=result ;　　　　if(result.Substring(0,8)=="Subject:")　　　　　subject=result ;　　　}　　}　　this.listBox1 .Items.Add(i.ToString()+" "+from+ " "+ subject);　}}private void button2_Click(object sender, System.EventArgs e){　this.listBox1.Items.Clear();}

　　参考资料

　　网络邮件收取使用的是Pop3协议，了解Pop3协议有助于我们加深对邮件系统的理解。而且使用Pop3协议你还可以直接telnet 到邮件服务器上去收信。

　　一般telnet Pop3 Server 110后就可以用这些命令了，大小写不敏感， 不包括口令本身，注意不要让口令回显，等验证通过后再允许回显好了。

　　user username 用户认可

　　pass password 认可 执行成功则状态转换

　　apop name,digest 认可一种安全传输口令的办法，执行成功导致状态转换，请参见RFC 1321 。

　　stat 处理请求server回送邮箱统计资料，如邮件数、 邮件总字节数

　　uidl n 处理 server返回用于该指定邮件的唯一标识， 如果没有指定，返回所有的。

　　list n 处理 server返回指定邮件的大小等

　　retr n 处理 server返回邮件的全部文本

　　dele n 处理 server标记删除，quit命令执行时才真正删除

　　rset 处理撤消所有的dele命令

　　top n,m 处理 返回n号邮件的前m行内容，m必须是自然数

　　noop 处理 server返回一个肯定的响应

　　quit client 希望结束会话。如果server处于"处理" 状态，则现在进入"更新"状态，删除那些标记成删除的邮件。如果server处于"认可"状态， 则结束会话时server不进入"更新"状态 。

　　使用telnet 的一个完整的收信例子如下：

　　telnet pop3Server 110　　user username　　pass ****　　stat　　list　　retr 1　　retr 2　　...　　dele 1　　dele 2　　...　　quit