Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Aide

Aide

2 réponses
Avatar
louis
Comment detecter que la connection internet est active? Je dois transmettre
des mails à partir d'un programme ecrit en VB6. La transmission ce fait
correctement lorsque la connection internet est active, mais pas de message
d'erreur si elle est inactive.
Merci de votre aide
Signaler un problème avec ce contenu

2 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
Zoury
Salut Louis! :O)

Regarde cet exemple :

'***
Option Explicit

Private Declare Function InternetGetConnectedState _
Lib "wininet" _
( _
ByRef dwFlags As Long, _
ByVal dwReserved As Long _
) As Long

Private Sub Main()
Debug.Print IsNetConnected
End Sub

Private Function IsNetConnected() As Boolean
IsNetConnected = InternetGetConnectedState(0&, 0&)
End Function
'***

--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/

Merci de poster les réponses au groupe afin d'en faire profiter à tous
"louis" wrote in message
news:bq5td9$acq$
Comment detecter que la connection internet est active? Je dois


transmettre
des mails à partir d'un programme ecrit en VB6. La transmission ce fait
correctement lorsque la connection internet est active, mais pas de


message
d'erreur si elle est inactive.
Merci de votre aide




Avatar
louis
Merci
Je vais étudier ta réponse.
Salut!



"Zoury" <yanick_lefebvre at hotmail dot com> a écrit dans le message de
news:
Salut Louis! :O)

Regarde cet exemple :

'***
Option Explicit

Private Declare Function InternetGetConnectedState _
Lib "wininet" _
( _
ByRef dwFlags As Long, _
ByVal dwReserved As Long _
) As Long

Private Sub Main()
Debug.Print IsNetConnected
End Sub

Private Function IsNetConnected() As Boolean
IsNetConnected = InternetGetConnectedState(0&, 0&)
End Function
'***

--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/

Merci de poster les réponses au groupe afin d'en faire profiter à tous
"louis" wrote in message
news:bq5td9$acq$
> Comment detecter que la connection internet est active? Je dois
transmettre
> des mails à partir d'un programme ecrit en VB6. La transmission ce fait
> correctement lorsque la connection internet est active, mais pas de
message
> d'erreur si elle est inactive.
> Merci de votre aide
>
>