用VB设计自己Email系统.pdfVIP

Visual Basic 6.0以其强大的功能为广大软件开发人员所喜爱，随着 Internet 的迅猛发展 VB6应用在网络方面的开发也越来越多。本文将介绍如何用 VB 设计一个自己的 E-mail 系统。 　　检查是否连通 Internet 　　在设计自己的 E-mail 系统时，我们需要检测系统是否连通 Internet,下文通过编写函 数 IsConnected 来判断 Internet 是否连通。帝尊： 　　在主程序中加入下列代码： 　　Private Sub Form_Load （） 　　If IsConnected = True Then 　　MsgBox （您已经连通了 Internet!） 　　End If 　　If IsConnected = False Then 　　MsgBox （您还没有连通 Internet!） 　　End If 　　End Sub 　　将下面的代码作为模块放在程序中： 　　Option Explicit 　　/有关注册的 API 声明和定义以便使用/ 　　Public Declare Function RasEnumConnections Lib RasApi32.dll Alias RasEnumConnectionsA （lpRasCon As Any, lpcb As Long