在VB中模拟实现邮件传输

VB作为一种面向对象的Windows应用程序的开发软件，以其功能强大和简单易用的编程手段受到广大编程人员的喜爱。VB中提供了许多用于Windows程序设计的控件和大量的函数，本文就将告诉您怎样利用VB中的函数来实现邮件传输的功能。
首先我们在服务器上按照不同的帐号建立了不同的工作目录，采用NFS协议将多台PC终端连接到服务器。这样，邮件发送的问题就变成了文件从一个目录移到另一个目录的问题，在VB中可通过简单的Filecopy与Kill语句来完成。下面遇到的问题是如何接收到一个新邮件，并在应用中及时提醒用户邮件的到来。这就需要编写一个时刻运行的检测程序，在应用中直接加入这一过程后则原来应用中的操作得不到及时响应。这里我们采用了Dir，DoEvents，Shell三个函数解决了这个问题。
Dir：用于判断目录下是否有文件，及某个文件是否存在。
DoEvents：使CPU返回Windows控制，响应挂起事件。
Shell：在应用中执行其它应用程序。
Windows是一个多任务的操作系统，它在执行任务同时可检测事件并响应它。
利用这一特性，我们采用DoEvents和Shell可实现多个程序的同时运行。当应用程序启动后，我们用Shell同时启动P2程序。P2程序每隔10秒检测一次缓冲目录，若有文件到达则提示警告信息。一切操作过程中，用户感觉不到应用的中断。这里用DoEvents函数实现了应用程序的响应，用Dir函数检测缓冲目录，当应用程序退出时，同时生成一个标志文件FLAG．TXT。P2程序检测到后，结束运行并删除标志文件。警告信息可以使用声音，图像等多种方式，可根据各自的需求自行设计，编译后嵌入P2程序中，这里就不一一详述了。
程序代码如下：
应用程序P2：
Privatesub Form—Load（）
‘程序说明部分：
Dimyy
Dima，b，cAsString
DimabAsInteger
a=Time
a=Mid（a，7，1）(责任编辑：admin)

代码天下

搜索

热门标签

在VB中模拟实现邮件传输