' 有关的API声明和定义 Private Declare Function RasEnumConnections Lib " RasApi32.dll " Alias " RasEnumConnectionsA " (lpRasCon As Any, lpcb As Long , lpcConnections As Long ) As Long Private Declare Function RasGetConnectStatus Lib " RasApi32.dll " Alias " RasGetConnectStatusA " (ByVal hRasCon As Long , lpStatus As Any) As Long ' 常数和变量的设定 Const RAS95_MaxEntryName = 256