Visual Basic

<br />
Public Const RAS_MAXENTRYNAME As Integer = 256<br />
Public Const RAS_MAXDEVICETYPE As Integer = 16<br />
Public Const RAS_MAXDEVICENAME As Integer = 128<br />
Public Const RAS_RASCONNSIZE As Integer = 412<br />
Public Const ERROR_SUCCESS = 0&<br />
<br />
Public Type RasEntryName<br />
dwSize As Long<br />
szEntryName(RAS_MAXENTRYNAME) As Byte<br />
End Type<br />
<br />
Public Type RasConn<br />
dwSize As Long<br />
hRasConn As Long<br />
szEntryName(RAS_MAXENTRYNAME) As Byte<br />
szDeviceType(RAS_MAXDEVICETYPE) As Byte<br />
szDeviceName(RAS_MAXDEVICENAME) As Byte<br />
End Type<br />
<br />
Public Declare Function RasEnumConnections Lib "rasapi32.DLL" _<br />
Alias "RasEnumConnectionsA" (lpRasConn As Any, lpcb As Long, _<br />
lpcConnections As Long) As Long<br />
Public Declare Function RasHangUp Lib "rasapi32.DLL" Alias _<br />
"RasHangUpA" (ByVal hRasConn As Long) As Long<br />
Public gstrISPName As String<br />
Public ReturnCode As Long<br />
<br />