Zjištění, zda je nainstalován RAS
Deklarujte:
Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef _
lpdwFalgs As Long, ByVal dwReserved As Long) As Boolean Const
INTERNET_RAS_INSTALLED = 16
' Test naninstalování RAS
Function IsRASInstalled() As Boolean
Dim connStatus As Long
InternetGetConnectedState
connStatus, 0&
IsRASInstalled = (connStatus And INTERNET_RAS_INSTALLED)
End Function