利用RAS调用在VB6.0中实现拨号上网

　　我们常用的软件如：JETCAR（现在为FLASHGET），GO！ZILLA等都具有拨号上网功能。那么，如何在自己编写的应用程序中也实现上述的功能呢？本文就利用RAS调用介绍在自己编写的应用程序如何实现拨号上网。

　　一.与拨号网络有关的结构和函数

　　1.RASDIALPARAMS95结构.其定义如下：

　　Public Type RASDIALPARAMS95
　dwSize As Long
　szEntryName(RAS95_MaxEntryName) As Byte
　szPhoneNumber(RAS95_MaxPhoneNumber) As Byte
　szCallbackNumber(RAS95_MaxCallbackNumber) As Byte
　szUserName(UNLEN) As Byte
　szPassword(PWLEN) As Byte
　szDomain(DNLEN) As Byte
End Type

　　其中，dwSize表示该结构的大小（以字节为单位）。szEntryName表示一个远程访问的入口名，也就是WINDOWS下的拨号网络中的连接图标小的文字；szEntryName参数可是是空串，表示仅与第一个有效的MODEM建立远程连接。szPhoneNumber为表示呼叫的号码。当szEntryName是空时，zPhoneNumber不能为空。szCallbackNumber表示回叫号码，一般都设为空。szUserName为建立远程访问的用户名。szPassword为建立远程访问的密码。szDomain为进行远程访问用户名和密码认证的域名。我们将szDomain设为空，表示远程访问的服务器也是该域名下的成员。

　　2.RASDIAL函数.其API声明为：

　　Public Declare Function RasDial Lib "RasApi32.DLL" Alias "RasDialA" (lpRasDialExtensions As Any, ByVal lpszPhonebook As String, lprasdialparams As Any, ByVal dwNotifierType As Long, lpvNotifier As Long, lphRasConn As Long) As Long