TESTER UNE CONNECTION INTERNET - PING

Messages postés
3758
Date d'inscription
mardi 23 septembre 2003
Statut
Modérateur
Dernière intervention
13 mars 2006
- - Dernière réponse : medgaza
Messages postés
1
Date d'inscription
lundi 13 août 2007
Statut
Membre
Dernière intervention
24 août 2007
- 24 août 2007 à 12:16
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/25004-tester-une-connection-internet-ping

Afficher la suite 
cs_CanisLupus
Messages postés
3758
Date d'inscription
mardi 23 septembre 2003
Statut
Modérateur
Dernière intervention
13 mars 2006
10 -
Pas mal ton truc, mais j'en ai un autre qui marche bien et qui est plus simple :

Ds projets/composants :
Microsoft internet Transfert Control 6.0 (SP6)
et un controle Inet sur une form

' ----------------------------------
' DETECTION SI ACCES INTERNET VALIDE
' ----------------------------------
Function Acces_Internet() As String
Dim ret

Acces_Internet = "KO"

Form1.Inet1.AccessType = icUseDefault
Form1.Inet1.OpenURL "http://www.microsoft.com"
ret = Form1.Inet1.GetHeader("Server")
Form1.Inet1.Cancel

If InStr(1, ret, "Microsoft", 1) Then
Acces_Internet = "OK"
End If

End Function

Explication :
On essaie de télécharger le header de crosoft (ou le site web de ton choix). Si tu arrives à lire les infos de ce header, c que tu a un accès internet.
Avantage : si ds ta boite tu as un intranet mais pas de cnx vers l'internet (extérieur) ça te dit "KO" pas d'internet.

Je pense qu'en VB.NET ça doit marcher aussi mais faut tester.

Cordialement

CanisLupus
Scalpweb
Messages postés
1468
Date d'inscription
samedi 13 mars 2004
Statut
Membre
Dernière intervention
5 mai 2010
-
Oui oui, ça fonctionne aussi, et c'est rapide... Mais bon, c'est tout de même une bonne source.
cs_CanisLupus
Messages postés
3758
Date d'inscription
mardi 23 septembre 2003
Statut
Modérateur
Dernière intervention
13 mars 2006
10 -
Sûr, c pourquoi g mis un 10 pour encourager la recherche.
capuccino_fr
Messages postés
113
Date d'inscription
vendredi 5 mars 2004
Statut
Membre
Dernière intervention
11 février 2008
-
Merci beaucoup des encouragements, apres quelques mois de pratique, je me dis que le .Net a vraiment ses charmes... :D
mais tout est si compliqué a trouver, que l'on se créé ses propres astuces, alors si ca peut servir

@+
Capuccino_fr
cs_jipef
Messages postés
56
Date d'inscription
lundi 23 août 2004
Statut
Membre
Dernière intervention
1 août 2008
-
à CanisLupus c'est effectivement simple et fonctionnel
note 11/10 !!!