141.htm

vb功能实例介绍。详细、很好的实例说明。

<p>VB邮件检查程序</p>
<p></p>
<p>VB邮件检查程序（一） </p>
<p>按下表所示设置各控件的属性。</p>
<p></p>
<p>控件 名称 描述 </p>
<p>Textbox txtHost 用于输入邮件服务器的名称或地址 </p>
<p>Textbox txtUserName 输入用户名 </p>
<p>Textbox txtPassword 输入密码 </p>
<p>Textbox txtBody 显示邮件内容 </p>
<p>Listview lvMessages 显示邮件清单 </p>
<p>Command Button cmdCheckMail 用于启动接收并显示邮件的子程序 </p>
<p>Command Button cmdExit 退出程序 </p>
<p></p>
<p>将名为txtBody的文本框的Multiline属性设为True,Scrollbars属性设为3-Both。选择ListView控件，打开其属性对话框，在“列首”标签页中插入四个列，文本分别为： "From", "Subject", "Date", "Size"，然后将该控件的View属性设为3-lvwReport。 </p>
<p></p>
<p>直观的界面显示你是如何使用本程序的。首先输入邮件服务器的名称或地址，然后是你的用户名和密码。最报按检查邮件按钮。接下来，我们就会看到在ListView中显示的邮件列表了。点选其中的一项，邮件的内容就会显示在下面的文本框中。</p>
<p></p>
<p>从程序的外观及VB由事件驱动的本质，我们可以猜出我们只需要处理两个事件：cmdCheckMail_Click和lvMessages_ItemClick.至于cmdExit中的事件我想就不必说了。先别急，让我们一步步来看看本程序的代码是怎样的。首先看看“检查邮件”按钮。当你按下这个按钮后，程序会首先检查文本框中的内容，然后调用Winsock的Connect方法连上远程服务器。下面是程序代码：</p>
<p></p>
<p>Private Sub cmdCheckMail_Click()</p>
<p></p>
<p>注释：检查除txtBody之外所有文本框的内容是否为空</p>
<p>For Each c In Controls</p>
<p>If TypeOf c Is TextBox And c.Name <> "txtBody" Then</p>
<p>If Len(c.Text) = 0 Then</p>
<p>MsgBox c.Name & " can注释：t be empty", vbCritical</p>
<p>Exit Sub</p>
<p>End If</p>
<p>End If</p>
<p>Next</p>
<p>注释：改变当前进程状态的值</p>
<p>m_State = POP3_Connect</p>
<p>注释：关闭socket以防它已被另一个进程打开</p>
<p>Winsock1.Close</p>
<p>注释：重置 local port的值，Windows Socket会自动寻找一个新值</p>
<p>注释：这样做是为了防止出现 "地址正在被使用"的错误,</p>
<p>注释：这种情况通常出现在Winsock控件已被前一个进程所使用</p>
<p>Winsock1.LocalPort = 0</p>
<p>注释：POP3服务器通常用端口110来等待连接请求</p>
<p>注释：因此我们要让Winsock控件用这个端口连上服务器。</p>
<p>Winsock1.Connect txtHost, 110</p>
<p></p>
<p>End Sub </p>
<p></p>
<p>除了下面这个语句之外，其它都一目了然。 </p>
<p></p>
<p>m_State = POP3_Connect </p>
<p></p>
<p>现在就让我来解释一下这个语句。当触发了cmdCheckMail_Click事件后，所运行的程序代码的目的是要连上远程邮件服务器。下面要进行的操作就转由在Winsock控件的DataArrival事件中的代码来控制了。</p>
<p></p>
<p>每次当Winsock收到数据时，都会触发DataArrival事件。根据已收到的数据和你所发出的命令，程序才知道应执行在该事件中的哪一部分代码，以真正完成数据的接收。 </p>
<p></p>
<p>为了让程序记住你上次发出的命令，或者说当前进程的状态，我们使用了m_State变量。该变量存放你事先定义好的一个特殊的数据类型：POP3States的值。 </p>
<p></p>
<p>Private Enum POP3States</p>
<p>POP3_Connect</p>
<p>POP3_USER</p>
<p>POP3_PASS</p>
<p>POP3_STAT</p>
<p>POP3_RETR</p>
<p>POP3_DELE</p>
<p>POP3_QUIT</p>
<p>End Enum </p>
<p></p>
<p>VB邮件检查程序（二） </p>
<p>下面是Winsock的DataArrival事件中的代码。该代码的绝大部分是注释以向你解释程序所做的每一步。如果你觉得闷的话就跳过不看就是了。 </p>
<p></p>
<p>Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)</p>
<p></p>
<p>Dim strData As String</p>
<p></p>
<p>Static intMessages As Integer 注释：要下载的消息数（也就是邮件数）</p>
<p>Static intCurrentMessage As Integer 注释：已下载的消息数</p>
<p>Static strBuffer As String 注释：正在下载的消息的缓冲</p>
<p></p>
<p>将收到的数据存放在strData变量中</p>
<p>Winsock1.GetData strData</p>
<p></p>
<p>If Left$(strData, 1) = "+" Or m_State = POP3_RETR Then</p>
<p>注释：如果来自服务器的回应的第一个字符为加号</p>
<p>注释：表明服务器已收到你发出的命令并等待下一个命令</p>
<p>注释：如果服务器返回的字符串的第一个字符为减号，那我们在这里就什么也做不了。</p>
<p>注释：操作被转到ELSE后面部分的代码。</p>
<p>注释：当处于数据接收状态时，来自服务器的字符串的第一个字符就可能不是加号或减号，所以要用到第二个条件</p>
<p>注释：m_State = POP3_RETR (正在接收消息的状态)</p>
<p>Select Case m_State</p>
<p>Case POP3_Connect</p>
<p>注释：</p>
<p>注释：重置消息数</p>
<p>intMessages = 0 </p>
<p>注释：</p>
<p>注释：改变进程状态</p>
<p>m_State = POP3_USER</p>
<p>注释：</p>
<p>注释：向服务器发出带参数的USER命令</p>
<p>注释：参数是信箱名</p>
<p>注释：别忘了在命令的最后加上vbCrLf </p>
<p>Winsock1.SendData "USER " & txtUserName & vbCrLf</p>
<p>注释：这是本次事件的结束，下次开始跳过上一部分，而从下面开始执行</p>
<p>注释： Case POP3_USER部分</p>
<p>Case POP3_USER</p>
<p></p>
<p>注释：如果用户名检查通过就进行下一部分</p>
<p>注释：现在向服务器发送你的密码</p>
<p></p>
<p>注释：改变进程的状态</p>
<p>m_State = POP3_PASS</p>
<p>注释：</p>
<p>注释：向服务器发送PASS命令，以你的密码为参数</p>
<p>Winsock1.SendData "PASS " & txtPassword & vbCrLf</p>
<p>Case POP3_PASS</p>
<p>注释：</p>
<p>注释：如果服务器通过了你的身份验证，我们就可以向服务器发送STAT命令了</p>
<p>注释：作为对STAT的回应，服务器会传回你邮箱中的消息数及大小</p>
<p>注释：</p>
<p>注释：改变当前进程的状态</p>
<p>m_State = POP3_STAT</p>
<p>注释：</p>
<p>注释：现在发送STAT命令</p>
<p>Winsock1.SendData "STAT" & vbCrLf</p>
<p>Case POP3_STAT</p>
<p>注释：</p>
<p>注释：服务器对STAT的回应看上去象这样</p>
<p>注释："+OK 0 0" (邮箱中没有邮件)或 "+OK 3 7564"</p>
<p>注释：(邮箱中有邮件).显然，我们必须找到来自服务器返回的字符串中的第一个数字</p>
<p></p>
<p>intMessages = CInt(Mid$(strData, 5, InStr(5, strData, " ") - 5))</p>
<p>If intMessages > 0 Then</p>
<p>注释：</p>
<p>注释：如果邮箱中有邮件</p>
<p>注释：改变进程的状态</p>
<p>m_State = POP3_RETR</p>
<p>注释：</p>
<p>intCurrentMessage = intCurrentMessage + 1</p>
<p>注释：</p>
<p>注释：现在准备向服务器发送RETR命令</p>
<p>注释：以便接收第一条消息</p>
<p>Winsock1.SendData "RETR 1" & vbCrLf</p>
<p>Else</p>
<p>注释：如果邮箱中没有邮件就断开同服务器的连接结束进程</p>
<p></p>
<p>m_State = POP3_QUIT</p>
<p>Winsock1.SendData "QUIT" & vbCrLf</p>
<p>MsgBox "You have not mail.", vbInformation</p>
<p>End If</p>
<p>Case POP3_RETR</p>
<p>注释：在接收邮件时执行下面执行下面的代码</p>
<p>注释：邮件可能会很大，并触发多次DataArrival事件</p>
<p>注释：接收到的数据被存放在 strBuffer变量中</p>
<p>strBuffer = strBuffer & strData</p>
<p>注释：</p>
<p>注释：用下面的语句判断消息的结束</p>
<p>注释：邮件是以小数点结尾的</p>
<p>If InStr(1, strBuffer, vbLf & "." & vbCrLf) Then</p>
<p>注释：</p>
<p>注释：邮件下载完毕</p>
<p>注释：</p>
<p>注释：删除由服务器返回的第一行字符串</p>
<p>strBuffer=Mid$(strBuffer, InStr(1, strBuffer, vbCrLf)+2)</p>
<p>注释：</p>
<p>注释：删除最后一个只有小数点的字符</p>
<p>strBuffer = Left$(strBuffer, Len(strBuffer) - 3)</p>
<p>注释：</p>
<p>注释：把消息存放在m_colMessages集合中</p>
<p>Set m_oMessage = New CMessage</p>
<p>m_oMessage.CreateFromText strBuffer</p>
<p>m_colMessages.Add m_oMessage, m_oMessage.MessageID</p>
<p>Set m_oMessage = Nothing</p>
<p>注释：</p>
<p>注释：清空缓冲，准备接收下一条邮件</p>
<p>strBuffer = ""</p>
<p>注释：</p>
<p>注释：将已收的邮件数同服务器目前的邮件数作比较</p>
<p>If intCurrentMessage = intMessages Then</p>
<p>注释：如果相等，表示已接收完所有的邮件</p>
<p>注释：所以发送一个QUIT命令给服务器</p>
<p>m_State = POP3_QUIT</p>
<p>Winsock1.SendData "QUIT" & vbCrLf</p>
<p>Else</p>
<p>注释：如果二者不等，表明还有邮件没有接收</p>
<p></p>
<p>intCurrentMessage = intCurrentMessage + 1</p>
<p>注释：</p>
<p>注释：改变当前进程的状态</p>
<p>m_State = POP3_RETR</p>
<p>注释：</p>
<p>注释：向服务器发出RETR命令接收下一个邮件</p>
<p>Winsock1.SendData "RETR " & CStr(intCurrentMessage) & vbCrLf</p>
<p>End If</p>
<p>End If</p>
<p>Case POP3_QUIT</p>
<p>注释：不管我们收到什么样的邮件，记得关闭同服务器的连接</p>
<p>Winsock1.Close</p>
<p>注释：现在调用 ListMessages子程序，以便在ListView中显示收到的邮件</p>
<p>Call ListMessages</p>
<p>End Select</p>
<p>Else</p>
<p>注释：下面的错误处理的代码</p>
<p>注释：只须关闭socket并将来自服务器的回应显示出来就行了。</p>
<p>注释：即使是那些高级的邮件接收程序所做也不外如此</p>
<p>Winsock1.Close</p>
<p>MsgBox "POP3 Error: " & strData, _</p>
<p>vbExclamation, "POP3 Error"</p>
<p>End If</p>
<p></p>
<p>End Sub</p>
<p></p>
<p>一切看上去都一目了然，除了下面的语句：</p>
<p></p>
<p>Set m_oMessage = New CMessage</p>
<p>m_oMessage.CreateFromText strBuffer</p>
<p>m_colMessages.Add m_oMessage, m_oMessage.MessageID</p>
<p>Set m_oMessage = Nothing </p>
<p> </p>