-
- Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" ( _
- ByRef lpSFlags As Long, ByVal lpszConnectionName As String, _
- ByVal dwNameLen As Long, ByVal dwReserved As Long) As Long
-
- Public Function IsConnected() As Boolean
- ' Cette fonction vérifie si une connexion réseau est active
- Dim lgLen As Long, lgFlags As Long
- Dim stNomConnexion As String
- Dim blConnected As Boolean
- lgLen = 256
- stNomConnexion = Space$(lgLen)
- blConnected = InternetGetConnectedStateEx(lgFlags, stNomConnexion, lgLen, 0&)
- IsConnected = blConnected
- End Function
-
Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" ( _
ByRef lpSFlags As Long, ByVal lpszConnectionName As String, _
ByVal dwNameLen As Long, ByVal dwReserved As Long) As Long
Public Function IsConnected() As Boolean
' Cette fonction vérifie si une connexion réseau est active
Dim lgLen As Long, lgFlags As Long
Dim stNomConnexion As String
Dim blConnected As Boolean
lgLen = 256
stNomConnexion = Space$(lgLen)
blConnected = InternetGetConnectedStateEx(lgFlags, stNomConnexion, lgLen, 0&)
IsConnected = blConnected
End Function