在VB中模擬實現(xiàn)郵件傳輸

2019-11-18 17:46:07

字體：大中小

供稿：網(wǎng)友

VB作為一種面向?qū)ο蟮腤indows應(yīng)用程序的開發(fā)軟件，以其功能強大和簡單易用的編程手段受到廣大編程人員的喜愛。VB中提供了許多用于Windows程序設(shè)計的控件和大量的函數(shù)，本文就將告訴您怎樣利用VB中的函數(shù)來實現(xiàn)郵件傳輸?shù)墓δ堋?br>首先我們在服務(wù)器上按照不同的帳號建立了不同的工作目錄，采用NFS協(xié)議將多臺PC終端連接到服務(wù)器。這樣，郵件發(fā)送的問題就變成了文件從一個目錄移到另一個目錄的問題，在VB中可通過簡單的Filecopy與Kill語句來完成。下面遇到的問題是如何接收到一個新郵件，并在應(yīng)用中及時提醒用戶郵件的到來。這就需要編寫一個時刻運行的檢測程序，在應(yīng)用中直接加入這一過程后則原來應(yīng)用中的操作得不到及時響應(yīng)。這里我們采用了Dir，DoEvents，Shell三個函數(shù)解決了這個問題。
Dir：用于判斷目錄下是否有文件，及某個文件是否存在。
DoEvents：使CPU返回Windows控制，響應(yīng)掛起事件。
Shell：在應(yīng)用中執(zhí)行其它應(yīng)用程序。
Windows是一個多任務(wù)的操作系統(tǒng)，它在執(zhí)行任務(wù)同時可檢測事件并響應(yīng)它。
利用這一特性，我們采用DoEvents和Shell可實現(xiàn)多個程序的同時運行。當(dāng)應(yīng)用程序啟動后，我們用Shell同時啟動P2程序。P2程序每隔10秒檢測一次緩沖目錄，若有文件到達(dá)則提示警告信息。一切操作過程中，用戶感覺不到應(yīng)用的中斷。這里用DoEvents函數(shù)實現(xiàn)了應(yīng)用程序的響應(yīng)，用Dir函數(shù)檢測緩沖目錄，當(dāng)應(yīng)用程序退出時，同時生成一個標(biāo)志文件FLAG．TXT。P2程序檢測到后，結(jié)束運行并刪除標(biāo)志文件。警告信息可以使用聲音，圖像等多種方式，可根據(jù)各自的需求自行設(shè)計，編譯后嵌入P2程序中，這里就不一一詳述了。
程序代碼如下：
應(yīng)用程序P2：
Colse＃1EndEndSub
本程序在簡體中文Win95，VisualBasic4．0上編譯通過。利用上面介紹的方法，我們可以編寫更多并行并發(fā)的應(yīng)用程序，提高我們計算機的利用效率。->