Soyez le premier à donner votre avis sur cette source.
Snippet vu 5 198 fois - Téléchargée 46 fois
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
25 août 2006 à 16:12
25 août 2006 à 16:05
23 nov. 2005 à 12:51
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é....
22 juil. 2004 à 14:28
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.
1 juil. 2003 à 14:21
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.