Detection connection internet

Question

voila mon probleme j'utilise une api pour teste l'etat de la connection a internet mais lorsque je debranche mon cable reseau(je suis connecter au web via le lan) il me dit que je suis toujours connecter.

voici mon code:

Option Explicit
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
Private Sub Form_Load()
        Dim Msg As String
        Dim Ret As Long

        Msg = String$(255, vbNullChar)
        Ret = InternetGetConnectedStateEx(Ret, Msg, 254, 0)
        MsgBox IIf(Ret = 1, "Vous êtes connectés à Internet en utilisant " & Msg, "Vous n'êtes pas connectés"), vbInformation
End Sub

thiosyiasar · Answer

Dans ton cas, je pinguerai un serveur qui à une bonne connexion et si le timeout est dépassé, je déduirant que je ne suis plus connecté !

Maintenant à partir de Window 2000, doit y a avoir une API  car on est de suite informé sur l'état de la connexion ! Teste www.AllApi.net

Detection connection internet

1 réponse

Discussions similaires