Détecter une connection à internet

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 198 fois - Téléchargée 46 fois

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

Ajouter un commentaire Commentaires
cs_chimi Messages postés 20 Date d'inscription mardi 4 avril 2006 Statut Membre Dernière intervention 21 avril 2008
25 août 2006 à 16:12
doit je mettre label.caption = isconnected
cs_chimi Messages postés 20 Date d'inscription mardi 4 avril 2006 Statut Membre Dernière intervention 21 avril 2008
25 août 2006 à 16:05
comment proceder pour le savoir
cs_Sator2 Messages postés 137 Date d'inscription samedi 11 septembre 2004 Statut Membre Dernière intervention 10 septembre 2006
23 nov. 2005 à 12:51
salut à tous si jamais j'ai une solution mais faut-il encore avoir un site internet, j'ai employé ce système pour la version de mon logiciel, dans un dossier du site on met un txt... avec par exemple 1.0.0 (la version du logiciel).
depuis le prog on va le lire... la deux possibilité le retour est 1.0.0 ou rien... si il ni a rien c'est qu'on est pas connecté... et par déduction if len(réponse) =0 then ben on est pas connecté....
logedu Messages postés 33 Date d'inscription mercredi 26 mars 2003 Statut Membre Dernière intervention 1 mars 2005
22 juil. 2004 à 14:28
Ce n'est pas une question de xp ou pas...
Si on est en réseau, la fonction indique simplement si on est ou non connecté sur le réseau (et pas sur internet)

Si quelqu'un a une idée pour tester la connexion internet en réseau elle sera la bien venue. J'ai cherché ici sans succès jusqu'à présent.
Frank339 Messages postés 164 Date d'inscription mardi 18 décembre 2001 Statut Membre Dernière intervention 19 décembre 2008
1 juil. 2003 à 14:21
je dirai meme plus...
il me fait l'état de mon réseau... l'xp connecté en réseau me dit qu'il est connecté au oueb, le truc c'est que j'ai pas partagé ma connection internet... :-s marche pas... mais effectivement pour un monoposte ca fonctionne very ouelle... (ca aura évité d'avoir un winsock)
5/10 (l'idée est bonne mais pas tout a fait au point...)

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.