Détecter une connection à internet

Contenu du snippet

Ce code est en fait une fonction qui permet de savoir si l'utilisateur est connecté à Internet.
Je tiens à préciser que ce code n'est pas de moi mais qu'il provient du site docvb.free.fr .

NB: Ce code permet aussi de détecter une connection réseau.

@+ et bonne prog

Source / Exemple :


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

Conclusion :


PS: je l'ai mis dans la rubrique API car je crois que c'est la plus appropriée.

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.