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 ....
Mais le nombre 10.... ça dépend des PC ...
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
Merci de votre aide.
Partager