VB邮件检查程序（一）
ReadyGo!技术成就梦想
网络搜索
efish
2008-2-24 2:47:32
按下表所示设置各控件的属性。
控件名称描述
TextboxtxtHost用于输入邮件服务器的名称或地址
TextboxtxtUserName输入用户名
TextboxtxtPassword输入密码
TextboxtxtBody显示邮件内容
ListviewlvMessages显示邮件清单
CommandButtoncmdCheckMail用于启动接收并显示邮件的子程序
CommandButtoncmdExit退出程序
将名为txtBody的文本框的Multiline属性设为True,Scrollbars属性设为3-Both。选择ListView控件，打开其属性对话框，在“列首”标签页中插入四个列，文本分别为："From","Subject","Date","Size"，然后将该控件的View属性设为3-lvwReport。
直观的界面显示你是如何使用本程序的。首先输入邮件服务器的名称或地址，然后是你的用户名和密码。最报按检查邮件按钮。接下来，我们就会看到在ListView中显示的邮件列表了。点选其中的一项，邮件的内容就会显示在下面的文本框中。
从程序的外观及VB由事件驱动的本质，我们可以猜出我们只需要处理两个事件：cmdCheckMail_Click和lvMessages_ItemClick.至于cmdExit中的事件我想就不必说了。先别急，让我们一步步来看看本程序的代码是怎样的。首先看看“检查邮件”按钮。当你按下这个按钮后，程序会首先检查文本框中的内容，然后调用Winsock的Connect方法连上远程服务器。下面是程序代码：
PrivateSubcmdCheckMail_Click()
"检查除txtBody之外所有文本框的内容是否为空
ForEachcInControls
IfTypeOfcIsTextBoxAndc.Name<>"txtBody"Then
IfLen(c.Text)=0Then
MsgBoxc.Name&"can"tbeempty",vbCritical
ExitSub
EndIf
EndIf
Next
"改变当前进程状态的值
m_State=POP3_Connect
"关闭socket以防它已被另一个进程打开
Winsock1.Close
"重置localport的值，WindowsSocket会自动寻找一个新值
"这样做是为了防止出现"地址正在被使用"的错误,
"这种情况通常出现在Winsock控件已被前一个进程所使用
Winsock1.LocalPort=0
"POP3服务器通常用端口110来等待连接请求
"因此我们要让Winsock控件用这个端口连上服务器。
Winsock1.ConnecttxtHost,110
EndSub
除了下面这个语句之外，其它都一目了然。
m_State=POP3_Connect
现在就让我来解释一下这个语句。当触发了cmdCheckMail_Click事件后，所运行的程序代码的目的是要连上远程邮件服务器。下面要进行的操作就转由在Winsock控件的DataArrival事件中的代码来控制了。
每次当Winsock收到数据时，都会触发DataArrival事件。根据已收到的数据和你所发出的命令，程序才知道应执行在该事件中的哪一部分代码，以真正完成数据的接收。
为了让程序记住你上次发出的命令，或者说当前进程的状态，我们使用了m_State变量。该变量存放你事先定义好的一个特殊的数据类型：POP3States的值。
PrivateEnumPOP3States
POP3_Connect
POP3_USER
POP3_PASS
POP3_STAT
POP3_RETR
POP3_DELE
POP3_QUIT
EndEnum->
控件名称描述
TextboxtxtHost用于输入邮件服务器的名称或地址
TextboxtxtUserName输入用户名
TextboxtxtPassword输入密码
TextboxtxtBody显示邮件内容
ListviewlvMessages显示邮件清单
CommandButtoncmdCheckMail用于启动接收并显示邮件的子程序
CommandButtoncmdExit退出程序
将名为txtBody的文本框的Multiline属性设为True,Scrollbars属性设为3-Both。选择ListView控件，打开其属性对话框，在“列首”标签页中插入四个列，文本分别为："From","Subject","Date","Size"，然后将该控件的View属性设为3-lvwReport。
直观的界面显示你是如何使用本程序的。首先输入邮件服务器的名称或地址，然后是你的用户名和密码。最报按检查邮件按钮。接下来，我们就会看到在ListView中显示的邮件列表了。点选其中的一项，邮件的内容就会显示在下面的文本框中。
从程序的外观及VB由事件驱动的本质，我们可以猜出我们只需要处理两个事件：cmdCheckMail_Click和lvMessages_ItemClick.至于cmdExit中的事件我想就不必说了。先别急，让我们一步步来看看本程序的代码是怎样的。首先看看“检查邮件”按钮。当你按下这个按钮后，程序会首先检查文本框中的内容，然后调用Winsock的Connect方法连上远程服务器。下面是程序代码：
PrivateSubcmdCheckMail_Click()
"检查除txtBody之外所有文本框的内容是否为空
ForEachcInControls
IfTypeOfcIsTextBoxAndc.Name<>"txtBody"Then
IfLen(c.Text)=0Then
MsgBoxc.Name&"can"tbeempty",vbCritical
ExitSub
EndIf
EndIf
Next
"改变当前进程状态的值
m_State=POP3_Connect
"关闭socket以防它已被另一个进程打开
Winsock1.Close
"重置localport的值，WindowsSocket会自动寻找一个新值
"这样做是为了防止出现"地址正在被使用"的错误,
"这种情况通常出现在Winsock控件已被前一个进程所使用
Winsock1.LocalPort=0
"POP3服务器通常用端口110来等待连接请求
"因此我们要让Winsock控件用这个端口连上服务器。
Winsock1.ConnecttxtHost,110
EndSub
除了下面这个语句之外，其它都一目了然。
m_State=POP3_Connect
现在就让我来解释一下这个语句。当触发了cmdCheckMail_Click事件后，所运行的程序代码的目的是要连上远程邮件服务器。下面要进行的操作就转由在Winsock控件的DataArrival事件中的代码来控制了。
每次当Winsock收到数据时，都会触发DataArrival事件。根据已收到的数据和你所发出的命令，程序才知道应执行在该事件中的哪一部分代码，以真正完成数据的接收。
为了让程序记住你上次发出的命令，或者说当前进程的状态，我们使用了m_State变量。该变量存放你事先定义好的一个特殊的数据类型：POP3States的值。
PrivateEnumPOP3States
POP3_Connect
POP3_USER
POP3_PASS
POP3_STAT
POP3_RETR
POP3_DELE
POP3_QUIT
EndEnum->
-
相关文章
PING一个IP地址（向它发送一个数据包并等待回应)）
PING一个IP地址（向它发送一个数据包并等待回应)）
用VB编写标准CGI程序（上）
用VB编写标准CGI程序（上）
用VB编写异步多线程下载程序
用VB编写异步多线程下载程序
跟我学做记事本
跟我学做记事本
制作带有动画和声音的屏幕保护程序
制作带有动画和声音的屏幕保护程序
基于Win95的VB5串口通信程序
基于Win95的VB5串口通信程序
用VisualBasic5.0设计E-mail程序(MAPI)
用VisualBasic5.0设计E-mail程序(MAPI)
VB从零开始编外挂(九)
VB从零开始编外挂(九)
如何用VisualBasic编写小型的网络系统
如何用VisualBasic编写小型的网络系统
用VB6编写强力的windows隐藏引擎
用VB6编写强力的windows隐藏引擎
2秒记住本站域名
玩过泡泡龙吗？Readygo?Go! 再加上.Com.Cn的后缀，那就是大名小顶的ReadyGo.com.cn