TESTER UNE CONNECTION INTERNET - PING
cs_CanisLupus
Messages postés
3757
Date d'inscription
mardi 23 septembre 2003
Statut
Membre
Dernière intervention
13 mars 2006
-
29 juil. 2004 à 22:05
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
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
https://codes-sources.commentcamarche.net/source/25004-tester-une-connection-internet-ping
24 août 2007 à 12:16
30 juil. 2007 à 09:08
Dim monProcess As New System.Threading.Thread(AddressOf tmp.LancePing)
Mets plutot :
Dim monProcess As New System.Threading.Thread(AddressOf NomProc.LancePing)
30 juil. 2007 à 09:04
Il y a des chances que la ligne : Dim tmp As FileStream = File.Create("c:\testping.txt") ne soit pas reconnue dans ce cas
27 juil. 2007 à 20:35
24 mai 2007 à 18:13
23 mars 2005 à 11:10
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
28 août 2004 à 13:38
note 11/10 !!!
10 août 2004 à 10:16
mais tout est si compliqué a trouver, que l'on se créé ses propres astuces, alors si ca peut servir
@+
Capuccino_fr
30 juil. 2004 à 22:11
30 juil. 2004 à 13:10
29 juil. 2004 à 22:05
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