Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Connection internet

Connection internet

4 réponses
Avatar
John
Bonjour,

Est-il possible de détecter si un utilisateur a une connection internet
active. ?


Merci de vos réponses
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel.j
Bonsoir,
Une idée ici:
http://dj.joss.free.fr/web.htm#testconnection


--
Daniel
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- Foire Aux Questions Microsoft Public Fr Excel
FAQ MPFE
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- Adresse: http://dj.joss.free.fr/faq.htm


"John" a écrit dans le message de news:
O1$
Bonjour,

Est-il possible de détecter si un utilisateur a une connection internet
active. ?


Merci de vos réponses






Avatar
Jacques
Bonjour,

Est-il possible de détecter si un utilisateur a une connection internet
active. ?


Merci de vos réponses






Private Const INTERNET_CONNECTION_MODEM = &H1
Private Const INTERNET_CONNECTION_LAN = &H2
Private Const INTERNET_CONNECTION_PROXY = &H4
Private Const INTERNET_CONNECTION_MODEM_BUSY = &H8
Private Const INTERNET_RAS_INSTALLED = &H10
Private Const INTERNET_CONNECTION_OFFLINE = &H20
Private Const INTERNET_CONNECTION_CONFIGURED = &H40

Private Declare Function InternetGetConnectedState Lib "wininet.dll"
(ByRef lpSFlags As Long, ByVal dwReserved As Long) As Long

Public Function IsConnectedToInternet(Optional ConnectMode As Integer)
As Boolean
Dim lResult As Long

IsConnectedToInternet = InternetGetConnectedState(lResult, 0&)
ConnectMode = lResult
End Function


--
Cordialement,

Jacques.

Avatar
Jacques
Bonsoir,

Bonsoir,
Une idée ici:
http://dj.joss.free.fr/web.htm#testconnection



Pour info, ne fonctionne pas sous XP, ni W2K,
la clé "Remote access" n'est pas présente. En tout cas
pas systèmatiquement.

--
Cordialement,

Jacques.

Avatar
Daniel.j
Oui en effet.
C'est une procédure qui date un peu :O))

J'ai ajouté celle qui fonctionne avec XP.
DAniel

"Jacques" a écrit dans le message de
news:
Bonsoir,

Bonsoir,
Une idée ici:
http://dj.joss.free.fr/web.htm#testconnection



Pour info, ne fonctionne pas sous XP, ni W2K,
la clé "Remote access" n'est pas présente. En tout cas
pas systèmatiquement.

--
Cordialement,

Jacques.