当前位置:主页   - 电脑 - 程序设计 - VB
VB邮件检查程序(二)
来源:网络转载   作者:未知   更新时间:2009-01-14
收藏此页】    【字号    】    【打印】    【关闭
下面是Winsock的DataArrival事件中的代码。该代码的绝大部分是注释以向你解释程序所做的每一步。如果你觉得闷的话就跳过不看就是了。

PrivateSubWinsock1_DataArrival(ByValbytesTotalAsLong)

DimstrDataAsString

StaticintMessagesAsInteger'要下载的消息数(也就是邮件数)
StaticintCurrentMessageAsInteger'已下载的消息数
StaticstrBufferAsString'正在下载的消息的缓冲

将收到的数据存放在strData变量中
Winsock1.GetDatastrData

IfLeft$(strData,1)=" "Orm_State=POP3_RETRThen
'如果来自服务器的回应的第一个字符为加号
'表明服务器已收到你发出的命令并等待下一个命令
'如果服务器返回的字符串的第一个字符为减号,那我们在这里就什么也做不了。
'操作被转到ELSE后面部分的代码。
'当处于数据接收状态时,来自服务器的字符串的第一个字符就可能不是加号或减号,所以要用到第二个条件
'm_State=POP3_RETR(正在接收消息的状态)
SelectCasem_State
CasePOP3_Connect
'
'重置消息数
intMessages=0
'
'改变进程状态
m_State=POP3_USER
'
'向服务器发出带参数的USER命令
'参数是信箱名
'别忘了在命令的最后加上vbCrLf
Winsock1.SendData"USER"&txtUserName&vbCrLf
'这是本次事件的结束,下次开始跳过上一部分,而从下面开始执行
'CasePOP3_USER部分
CasePOP3_USER

'如果用户名检查通过就进行下一部分
'现在向服务器发送你的密码

'改变进程的状态
m_State=POP3_PASS
'
'向服务器发送PASS命令,以你的密码为参数
Winsock1.SendData"PASS"&txtPassword&vbCrLf
CasePOP3_PASS
'
'如果服务器通过了你的身份验证,我们就可以向服务器发送STAT命令了
'作为对STAT的回应,服务器会传回你邮箱中的消息数及大小
'
'改变当前进程的状态
m_State=POP3_STAT
'
'现在发送STAT命令
Winsock1.SendData"STAT"&vbCrLf
CasePOP3_STAT
'
'服务器对STAT的回应看上去象这样
'" OK00"(邮箱中没有邮件)或" OK37564"
'(邮箱中有邮件).显然,我们必须找到来自服务器返回的字符串中的第一个数字

intMessages=CInt(Mid$(strData,5,InStr(5,strData,"")-5))
IfintMessages>0Then
'
'如果邮箱中有邮件
'改变进程的状态
m_State=POP3_RETR
'
intCurrentMessage=intCurrentMessage 1
'
'现在准备向服务器发送RETR命令
'以便接收第一条消息
Winsock1.SendData"RETR1"&vbCrLf
Else
'如果邮箱中没有邮件就断开同服务器的连接结束进程

m_State=POP3_QUIT
Winsock1.SendData"QUIT"&vbCrLf
MsgBox"Youhavenotmail.",vbInformation
EndIf
CasePOP3_RETR
'在接收邮件时执行下面执行下面的代码
'邮件可能会很大,并触发多次DataArrival事件
'接收到的数据被存放在strBuffer变量中
strBuffer=strBuffer&strData
'
'用下面的语句判断消息的结束
'邮件是以小数点结尾的
IfInStr(1,strBuffer,vbLf&"."&vbCrLf)Then
'
'邮件下载完毕
'
'删除由服务器返回的第一行字符串
strBuffer=Mid$(strBuffer,InStr(1,strBuffer,vbCrLf) 2)
'
'删除最后一个只有小数点的字符
strBuffer=Left$(strBuffer,Len(strBuffer)-3)
'
'把消息存放在m_colMessages集合中
Setm_oMessage=NewCMessage
m_oMessage.CreateFromTextstrBuffer
m_colMessages.Addm_oMessage,m_oMessage.MessageID
Setm_oMessage=Nothing
'
'清空缓冲,准备接收下一条邮件
strBuffer=""
'
'将已收的邮件数同服务器目前的邮件数作比较
IfintCurrentMessage=intMessagesThen
'如果相等,表示已接收完所有的邮件
'所以发送一个QUIT命令给服务器
m_State=POP3_QUIT
Winsock1.SendData"QUIT"&vbCrLf
Else
'如果二者不等,表明还有邮件没有接收

intCurrentMessage=intCurrentMessage 1
'
'改变当前进程的状态
m_State=POP3_RETR
'
'向服务器发出RETR命令接收下一个邮件
Winsock1.SendData"RETR"&CStr(intCurrentMessage)&vbCrLf
EndIf
EndIf
CasePOP3_QUIT
'不管我们收到什么样的邮件,记得关闭同服务器的连接
Winsock1.Close
'现在调用ListMessages子程序,以便在ListView中显示收到的邮件
CallListMessages
EndSelect
Else
'下面的错误处理的代码
'只须关闭socket并将来自服务器的回应显示出来就行了。
'即使是那些高级的邮件接收程序所做也不外如此
Winsock1.Close
MsgBox"POP3Error:"&strData,_
vbExclamation,"POP3Error"
EndIf

EndSub

一切看上去都一目了然,除了下面的语句:

Setm_oMessage=NewCMessage
m_oMessage.CreateFromTextstrBuffer
m_colMessages.Addm_oMessage,m_oMessage.MessageID
Setm_oMessage=Nothing->


其它资源
来源声明

版权与免责声明
1、本站所发布的文章仅供技术交流参考,本站不主张将其做为决策的依据,浏览者可自愿选择采信与否,本站不对因采信这些信息所产生的任何问题负责。
2、本站部分文章来源于网络,其版权为原权利人所有。由于来源之故,有的文章未能获得作者姓名,署“未知”或“佚名”。对于这些文章,有知悉作者姓名的请告知本站,以便及时署名。如果作者要求删除,我们将予以删除。除此之外本站不再承担其它责任。
3、本站部分文章来源于本站原创,本站拥有所有权利。
4、如对本站发布的信息有异议,请联系我们,经本站确认后,将在三个工作日内做出修改或删除处理。
请参阅权责声明