Vérifier la connection Internet

Comment vérifier si l'on est connecté à Internet !

C'est trés facile , si InternetGetConnectedState retourne la valeur  True cela signifie que l'ordinateur est connecté à Internet
est donc vous aurez le message "Vous êtes bien connecté à Internet !"


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

Private Sub Form_Load()

    If InternetGetConnectedState(0&, 0&) Then
        MsgBox "Vous êtes bien connecté à Internet !", vbInformation
    Else
        MsgBox "Vous n'êtes pas connecté à Internet", vbInformation
    End If

End Sub