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(totalnum>0) 　　 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.Length>4) 　　　 { 　　　　 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[@more@]

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/8781179/viewspace-921316/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/8781179/viewspace-921316/