104.htm

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

<p>邮件检查程序（二） </p>
<p></p>
<p></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>
<p> </p>