按下表所示设置各控件的属性。

 

控件 名称 描述

Textbox txtHost 用于输入邮件服务器的名称或地址

Textbox txtUserName 输入用户名

Textbox txtPassword 输入密码

Textbox txtBody 显示邮件内容

Listview lvMessages 显示邮件清单

Command Button cmdCheckMail 用于启动接收并显示邮件的子程序

Command Button cmdExit 退出程序

 

将名为txtBody的文本框的Multiline属性设为True,Scrollbars属性设为3-Both。选择ListView控件,打开其属性对话框,在列首标签页中插入四个列,文本分别为: "From", "Subject", "Date", "Size",然后将该控件的View属性设为3-lvwReport。

 

直观的界面显示你是如何使用本程序的。首先输入邮件服务器的名称或地址,然后是你的用户名和密码。最报按检查邮件按钮。接下来,我们就会看到在ListView中显示的邮件列表了。点选其中的一项,邮件的内容就会显示在下面的文本框中。

 

从程序的外观及VB由事件驱动的本质,我们可以猜出我们只需要处理两个事件:cmdCheckMail_Click和lvMessages_ItemClick.至于cmdExit中的事件我想就不必说了。先别急,让我们一步步来看看本程序的代码是怎样的。首先看看检查邮件按钮。当你按下这个按钮后,程序会首先检查文本框中的内容,然后调用Winsock的Connect方法连上远程服务器。下面是程序代码:

 

Private Sub cmdCheckMail_Click()

 

检查除txtBody之外所有文本框的内容是否为空

For Each c In Controls

If TypeOf c Is TextBox And c.Name <> "txtBody" Then

  If Len(c.Text) = 0 Then

  MsgBox c.Name & " cant be empty", vbCritical

Exit Sub

End If

End If

Next

改变当前进程状态的值

m_State = POP3_Connect

关闭socket以防它已被另一个进程打开

Winsock1.Close

重置 local port的值,Windows Socket会自动寻找一个新值

这样做是为了防止出现 "地址正在被使用"的错误,

这种情况通常出现在Winsock控件已被前一个进程所使用

Winsock1.LocalPort = 0

POP3服务器通常用端口110来等待连接请求

因此我们要让Winsock控件用这个端口连上服务器。

Winsock1.Connect txtHost, 110

 

End Sub

 

除了下面这个语句之外,其它都一目了然。

 

m_State = POP3_Connect

 

现在就让我来解释一下这个语句。当触发了cmdCheckMail_Click事件后,所运行的程序代码的目的是要连上远程邮件服务器。下面要进行的操作就转由在Winsock控件的DataArrival事件中的代码来控制了。

 

每次当Winsock收到数据时,都会触发DataArrival事件。根据已收到的数据和你所发出的命令,程序才知道应执行在该事件中的哪一部分代码,以真正完成数据的接收。

 

为了让程序记住你上次发出的命令,或者说当前进程的状态,我们使用了m_State变量。该变量存放你事先定义好的一个特殊的数据类型:POP3States的值。

 

Private Enum POP3States

  POP3_Connect

  POP3_USER

  POP3_PASS

  POP3_STAT

  POP3_RETR

  POP3_DELE

  POP3_QUIT

End Enum