Comment savoir si je suis vraiment connecté sur internet ou pas

**imparator_42** · 02/03/2009, 18h27

Bonjour je n'arrive pas bien capté avec le logiciel si j'ai vraiment une connexion internet ou pas.

Pour ça j'utilise INET mais ça beug, le logiciel ne marche pas partout (enfin quand je change de pc... ce qui est bizarre...)

sinon winsock capte si je suis connecté au réseau ou pas...

donc... je ne sais pas trop comment faire...
si quelqu'un veut bien m'expliquer ....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Inet1_StateChanged(ByVal State As Integer)
InternetDurumu = State
End Sub
 
 
If A = 9 Then
    Inet1.OpenURL ("http://www.free.Fr")
    If InternetDurumu = 10 Then
    Label2.ForeColor = &H8000&
    Label2.Caption = "Vous êtes connecté"
    Else: Label2.ForeColor = &HFF&
    Label2.Caption = "Vous n'êtes pas connecté"
    MsgBox "Pas de connexion", vbCritical, "Uyari"
    'Unload Me
    End If
End If

Mais le nombre 10.... ça dépend des PC ...

Merci de votre aide.

**ProgElecT** · 02/03/2009, 18h49

Salut
Fais un F2, choisis Library InetCtlsObjects => StateConstants, c'est l'enumaration des valeurs que peut prendre State recuperable dans le seul evenement de la sub Inet1_StateChanged, un F1 sur l'un d'eux, tu obtiens encor plus de renseignement.

Mais le nombre 10.... ça dépend des PC ...

10 ou icDisconnected correspondant à:
- La déconnexion du contrôle avec l'ordinateur hôte est réussie.
Ce qui laisse sous entendre que tu a bien fais une connexion, mais quelle prend fin.

**imparator_42** · 02/03/2009, 19h02

Merci progelect
Comment je l'utilise ....
tu pourrais m'expliquer ça ?

**Remi95** · 02/03/2009, 21h01

Ce code répond-t-il à ta question ?
http://vb.developpez.com/faq/?page=Reseau#online

**imparator_42** · 03/03/2009, 00h11

Non , désolé , ceci ne marche que pour savoir si je suis connecté au réseau ou pas... mais pas internet...

Je peux être connecté à un réseau mais pas avoir internet...

**ucfoutu** · 03/03/2009, 08h57

Bonjour,

ce qui suit te retournera True (si connecté à Internet) ou False (si non connecté à Internet)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Declare Function IsNetworkAlive Lib "SENSAPI.DLL" (ByRef lpdwFlags As Long) As Long
 
Private Sub Command2_Click()
    MsgBox verifions()
End Sub
 
Private Function verifions() As Boolean
  verifions = IIf(IsNetworkAlive(0) = 0, False, True)
End Function

Ca te va ?
Tu peux toujours, en plus, mettre si tu le souhaites cette vérification dans un timer...

Et si tu le souhaites (en plus), il est même possible de connaître le type de connection (LAN, WAN, etc...)... Dis-nous...

Etait-ce ton voeu ?