~ Edito ~
12/03/2006 @ 13:39
Depuis la dernière mise à jour (qui remonte à... oulala plusieurs mois), un petit ménage de printemps s'impose. Ca tombe bien, c'est presque la période. Au menu, et progressivement sur les jours à venir, rafraîchissement de plusieurs fonctions et procédures, nouvelles APIs et nouveaux programmes. ~ Rechercher ~
~ Annuaire VB ~
~ Partenaires ~
|
Fonction : IsConnected 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 |