时间:2002.02.27 于重庆 主题:VB邮件检查程序 内容:VB邮件检查程序（一） 按下表所示设置各控件的属性。 控件 名称 描述 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 ControlsIf TypeOf c Is TextBox And c.Name <> "txtBody" ThenIf Len(c.Text) = 0 ThenMsgBox c.Name & " can注释：t be empty", vbCriticalExit SubEnd IfEnd IfNext注释：改变当前进程状态的值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 POP3StatesPOP3_ConnectPOP3_USERPOP3_PASSPOP3_STATPOP3_RETRPOP3_DELEPOP3_QUITEnd Enum VB邮件检查程序（二） 下面是Winsock的DataArrival事件中的代码。该代码的绝大部分是注释以向你解释程序所做的每一步。如果你觉得闷的话就跳过不看就是了。 Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim strData As String Static intMessages As Integer 注释：要下载的消息数（也就是邮件数）Static intCurrentMessage As Integer 注释：已下载的消息数Static strBuffer As String 注释：正在下载的消息的缓冲 将收到的数据存放在strData变量中Winsock1.GetData strData If Left$(strData, 1) = "+" Or m_State = POP3_RETR Then注释：如果来自服务器的回应的第一个字符为加号注释：表明服务器已收到你发出的命令并等待下一个命令注释：如果服务器返回的字符串的第一个字符为减号，那我们在这里就什么也做不了。注释：操作被转到ELSE后面部分的代码。注释：当处于数据接收状态时，来自服务器的字符串的第一个字符就可能不是加号或减号，所以要用到第二个条件注释：m_State = POP3_RETR (正在接收消息的状态)Select Case m_StateCase POP3_Connect注释：注释：重置消息数intMessages = 0 注释：注释：改变进程状态m_State = POP3_USER注释：注释：向服务器发出带参数的USER命令注释：参数是信箱名注释：别忘了在命令的最后加上vbCrLf Winsock1.SendData "USER " & txtUserName & vbCrLf注释：这是本次事件的结束，下次开始跳过上一部分，而从下面开始执行注释： Case POP3_USER部分Case POP3_USER 注释：如果用户名检查通过就进行下一部分注释：现在向服务器发送你的密码 注释：改变进程的状态m_State = POP3_PASS注释：注释：向服务器发送PASS命令，以你的密码为参数Winsock1.SendData "PASS " & txtPassword & vbCrLfCase POP3_PASS注释：注释：如果服务器通过了你的身份验证，我们就可以向服务器发送STAT命令了注释：作为对STAT的回应，服务器会传回你邮箱中的消息数及大小注释：注释：改变当前进程的状态m_State = POP3_STAT注释：注释：现在发送STAT命令Winsock1.SendData "STAT" & vbCrLfCase POP3_STAT注释：注释：服务器对STAT的回应看上去象这样注释："+OK 0 0" (邮箱中没有邮件)或 "+OK 3 7564"注释：(邮箱中有邮件).显然，我们必须找到来自服务器返回的字符串中的第一个数字 intMessages = CInt(Mid$(strData, 5, InStr(5, strData, " ") - 5))If intMessages > 0 Then注释：注释：如果邮箱中有邮件注释：改变进程的状态m_State = POP3_RETR注释：intCurrentMessage = intCurrentMessage + 1注释：注释：现在准备向服务器发送RETR命令注释：以便接收第一条消息Winsock1.SendData "RETR 1" & vbCrLfElse注释：如果邮箱中没有邮件就断开同服务器的连接结束进程 m_State = POP3_QUITWinsock1.SendData "QUIT" & vbCrLfMsgBox "You have not mail.", vbInformationEnd IfCase POP3_RETR注释：在接收邮件时执行下面执行下面的代码注释：邮件可能会很大，并触发多次DataArrival事件注释：接收到的数据被存放在 strBuffer变量中strBuffer = strBuffer & strData注释：注释：用下面的语句判断消息的结束注释：邮件是以小数点结尾的If InStr(1, strBuffer, vbLf & "." & vbCrLf) Then注释：注释：邮件下载完毕注释：注释：删除由服务器返回的第一行字符串strBuffer=Mid$(strBuffer, InStr(1, strBuffer, vbCrLf)+2)注释：注释：删除最后一个只有小数点的字符strBuffer = Left$(strBuffer, Len(strBuffer) - 3)注释：注释：把消息存放在m_colMessages集合中Set m_oMessage = New CMessagem_oMessage.CreateFromText strBufferm_colMessages.Add m_oMessage, m_oMessage.MessageIDSet m_oMessage = Nothing注释：注释：清空缓冲，准备接收下一条邮件strBuffer = ""注释：注释：将已收的邮件数同服务器目前的邮件数作比较If intCurrentMessage = intMessages Then注释：如果相等，表示已接收完所有的邮件注释：所以发送一个QUIT命令给服务器m_State = POP3_QUITWinsock1.SendData "QUIT" & vbCrLfElse注释：如果二者不等，表明还有邮件没有接收 intCurrentMessage = intCurrentMessage + 1注释：注释：改变当前进程的状态m_State = POP3_RETR注释：注释：向服务器发出RETR命令接收下一个邮件Winsock1.SendData "RETR " & CStr(intCurrentMessage) & vbCrLfEnd IfEnd IfCase POP3_QUIT注释：不管我们收到什么样的邮件，记得关闭同服务器的连接Winsock1.Close注释：现在调用 ListMessages子程序，以便在ListView中显示收到的邮件Call ListMessagesEnd SelectElse注释：下面的错误处理的代码注释：只须关闭socket并将来自服务器的回应显示出来就行了。注释：即使是那些高级的邮件接收程序所做也不外如此Winsock1.CloseMsgBox "POP3 Error: " & strData, _vbExclamation, "POP3 Error"End If End Sub 一切看上去都一目了然，除了下面的语句： Set m_oMessage = New CMessagem_oMessage.CreateFromText strBufferm_colMessages.Add m_oMessage, m_oMessage.MessageIDSet m_oMessage = Nothing
评论