VBA teste connexion internet
Résolu/Fermé
bzx5v5
Messages postés
4
Date d'inscription
dimanche 26 mai 2013
Statut
Membre
Dernière intervention
30 octobre 2013
-
26 mai 2013 à 21:49
bzx5v5 - 27 mai 2013 à 12:48
bzx5v5 - 27 mai 2013 à 12:48
A voir également:
- VBA teste connexion internet
- Formate de taxement connexion internet ✓ - Forum Matériel informatique
- Erreur 1004 vba ✓ - Forum VB / VBA
- Pas de connexion internet - Guide
- Formate de connexion internet ✓ - Forum Réseau
- Instagram connexion - Guide
3 réponses
Mike-31
Messages postés
18188
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
13 mars 2023
5 040
Modifié par Mike-31 le 26/05/2013 à 23:08
Modifié par Mike-31 le 26/05/2013 à 23:08
Salut,
Regarde avec ce code
Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long
Sub TestConnexionInternet()
If ConnectWeb = True Then
MsgBox "Computer is connected"
Else
MsgBox "Computer is not connected"
End If
End Sub
Public Function ConnectWeb() As Boolean
ConnectWeb = IIf(InternetGetConnectedState(0&, 0&) = 1, True, False)
End Function
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
Regarde avec ce code
Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long
Sub TestConnexionInternet()
If ConnectWeb = True Then
MsgBox "Computer is connected"
Else
MsgBox "Computer is not connected"
End If
End Sub
Public Function ConnectWeb() As Boolean
ConnectWeb = IIf(InternetGetConnectedState(0&, 0&) = 1, True, False)
End Function
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
Mytå
Messages postés
2969
Date d'inscription
mardi 20 janvier 2009
Statut
Contributeur
Dernière intervention
20 décembre 2016
928
26 mai 2013 à 22:32
26 mai 2013 à 22:32
Salut le Forum
Mytå
Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal lpszConnectionName As String, ByVal dwNameLen As Integer, ByVal dwReserved As Long) As Long
Public Function IsInternetConnected() As Boolean
Dim strConnType As String
Dim lngReturnStatus As Long
IsInternetConnected = False
lngReturnStatus = InternetGetConnectedStateEx(lngReturnStatus, strConnType, 254, 0)
If lngReturnStatus = 1 Then IsInternetConnected = True
End Function
Mytå