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

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 !!!
capuccino_fr
Messages postés
113
Date d'inscription
vendredi 5 mars 2004
Statut
Membre
Dernière intervention
11 février 2008
-
Mais c'était trop long, donc j'ai changé la solution. MAis celle ci reste fonctionnelle à 100%.
Un peu lente mais fonctionnelle.

J'ai ajouté (dans la partie explication finale) la solution que j'ai choisie pour un bon rapport temps / qualité.

Voilou
cs_Children
Messages postés
84
Date d'inscription
lundi 5 février 2007
Statut
Membre
Dernière intervention
29 avril 2009
-
En faite moi j'ai remplacerà la ligne 51 Wait(6000)par wait (500), et ça va beaucoup plus vite! :)
zn415
Messages postés
64
Date d'inscription
samedi 23 juin 2007
Statut
Membre
Dernière intervention
21 novembre 2015
-
J'obtiens "tmp" non déclaré lorsque j'utilise votre classe. Désolé si c'est évident,Je débute...
capuccino_fr
Messages postés
113
Date d'inscription
vendredi 5 mars 2004
Statut
Membre
Dernière intervention
11 février 2008
-
As-tu bien en haut de ta classe cette ligne : Imports System.IO ?
Il y a des chances que la ligne : Dim tmp As FileStream = File.Create("c:\testping.txt") ne soit pas reconnue dans ce cas
capuccino_fr
Messages postés
113
Date d'inscription
vendredi 5 mars 2004
Statut
Membre
Dernière intervention
11 février 2008
-
Si tu parles de l'appel de la fonction :
Dim monProcess As New System.Threading.Thread(AddressOf tmp.LancePing)

Mets plutot :
Dim monProcess As New System.Threading.Thread(AddressOf NomProc.LancePing)
medgaza
Messages postés
1
Date d'inscription
lundi 13 août 2007
Statut
Membre
Dernière intervention
24 août 2007
-
merci à tous le monde c'est justement ce qu'il me faut dans mon travail mais moi j'ai une serie de site web à pinger enregistrer dans un ficher .txt