Les mémos

Fermer Tables

Fermer Requêtes

Fermer Formulaires

Fermer Etats

Fermer Modules

Fermer Base

Fermer Automation

Fermer Administration

Fermer Registre

Fermer String

Fermer Email CDO

Fermer Outlook

Fermer Net

Fermer Dates - Heures

Fermer Fichiers

Fermer Références

Fermer Vrac

Je débute...

Fermer La normalisation

Fermer VBA

Attention
Aucun support
par émail !

Utilisez le forum pour les questions/réponses concernant MsAccess et les codes que vous trouverez sur ce site.
Visites

   visiteurs

   visiteurs en ligne

Net - Tester connexion

Vérifier si une connexion Internet est active

 

Connexion par modem RTC (Port COM), Cable ou ADSL (Port USB)

 

Declare Function InternetGetConnectedState Lib "wininet.dll" _
                        (lpdwFlags As Long, ByVal dwReserved As Long) As Boolean

 

Function fIsConnected() As Boolean

Dim Stat As Long

fIsConnected = (InternetGetConnectedState(Stat, 0&) <> 0)

End Function

 

Connexion via Réseau Local ou par Modem (RJ45)

 

Declare Function InternetOpen Lib "wininet.dll" _
                    Alias "InternetOpenA" _
                   (ByVal lpszAgent As String, _
                    ByVal dwAccessType As Long, _
                    ByVal lpszProxyName As String, _
                    ByVal lpszProxyBypass As String, _
                    ByVal dwFlags As Long) As Long

Declare Function InternetOpenUrl Lib "wininet.dll" _
                    Alias "InternetOpenUrlA" _
                    (ByVal hInet As Long, _
                     ByVal lpszUrl As String, _
                     ByVal lpszHeaders As String, _
                     ByVal dwHeadersLength As Long, _
                     ByVal dwFlags As Long, _
                     ByVal dwContext As Long) As Long

Declare Function InternetCloseHandle Lib "wininet.dll" _
                    (ByVal hInet As Long) As Long

Const INTERNET_OPEN_TYPE_PRECONFIG As Long = 0

Const INTERNET_FLAG_RELOAD As Long = &H80000000

Const INTERNET_FLAG_KEEP_CONNECTION As Long = &H400000

Const INTERNET_FLAG_NO_CACHE_WRITE As Long = &H4000000

 

' La Fonction

Function fOnLine() As Boolean

Dim hInet As Long

Dim hUrl As Long

Dim Flags As Long

hInet = InternetOpen("Test", INTERNET_OPEN_TYPE_PRECONFIG, _
                                                  vbNullString, vbNullString, 0&)

If hInet Then

Flags = INTERNET_FLAG_KEEP_CONNECTION Or _
           INTERNET_FLAG_NO_CACHE_WRITE Or _
           INTERNET_FLAG_RELOAD

hUrl = InternetOpenUrl(hInet, "http://www.microsoft.com", vbNullString, 0&, Flags, 0&)

If hUrl Then

fOnLine = True

Call InternetCloseHandle(hUrl)

Else

fOnLine = False

End If

End If

Call InternetCloseHandle(hInet)

End Function

 


Date de création : 01/11/2005 : 19:56
Dernière modification : 08/02/2010 : 02:04
Catégorie : Net
Page lue 5054 fois


Imprimer l'article Imprimer l'article

Recherche



Lettre d'information
Pour avoir des nouvelles de ce site, inscrivez-vous à notre Newsletter.
Captcha
Recopier le code :
Au sujet de l'auteur
L'auteur qui fréquente (fréquentait) le forum microsoft.public.fr.access a eu le plaisir d'être nommé MVP Office-Access de janvier 2003 à décembre 2011.

Qui sont les MVP ?

Divers ;-)
Nous contacter

Haut