cs_CanisLupus
Messages postés3757Date d'inscriptionmardi 23 septembre 2003StatutMembreDernière intervention13 mars 2006
-
29 juil. 2004 à 22:05
medgaza
Messages postés1Date d'inscriptionlundi 13 août 2007StatutMembreDernière intervention24 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.
medgaza
Messages postés1Date d'inscriptionlundi 13 août 2007StatutMembreDernière intervention24 août 2007 24 août 2007 à 12:16
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
capuccino_fr
Messages postés113Date d'inscriptionvendredi 5 mars 2004StatutMembreDernière intervention11 février 2008 30 juil. 2007 à 09:08
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)
capuccino_fr
Messages postés113Date d'inscriptionvendredi 5 mars 2004StatutMembreDernière intervention11 février 2008 30 juil. 2007 à 09:04
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
zn415
Messages postés62Date d'inscriptionsamedi 23 juin 2007StatutMembreDernière intervention21 novembre 2015 27 juil. 2007 à 20:35
J'obtiens "tmp" non déclaré lorsque j'utilise votre classe. Désolé si c'est évident,Je débute...
cs_Children
Messages postés84Date d'inscriptionlundi 5 février 2007StatutMembreDernière intervention29 avril 2009 24 mai 2007 à 18:13
En faite moi j'ai remplacerà la ligne 51 Wait(6000)par wait (500), et ça va beaucoup plus vite! :)
capuccino_fr
Messages postés113Date d'inscriptionvendredi 5 mars 2004StatutMembreDernière intervention11 février 2008 23 mars 2005 à 11:10
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_jipef
Messages postés55Date d'inscriptionlundi 23 août 2004StatutMembreDernière intervention 1 août 2008 28 août 2004 à 13:38
à CanisLupus c'est effectivement simple et fonctionnel
note 11/10 !!!
capuccino_fr
Messages postés113Date d'inscriptionvendredi 5 mars 2004StatutMembreDernière intervention11 février 2008 10 août 2004 à 10:16
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_CanisLupus
Messages postés3757Date d'inscriptionmardi 23 septembre 2003StatutMembreDernière intervention13 mars 200620 30 juil. 2004 à 22:11
Sûr, c pourquoi g mis un 10 pour encourager la recherche.
Scalpweb
Messages postés1467Date d'inscriptionsamedi 13 mars 2004StatutMembreDernière intervention 5 mai 20104 30 juil. 2004 à 13:10
Oui oui, ça fonctionne aussi, et c'est rapide... Mais bon, c'est tout de même une bonne source.
cs_CanisLupus
Messages postés3757Date d'inscriptionmardi 23 septembre 2003StatutMembreDernière intervention13 mars 200620 29 juil. 2004 à 22:05
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.
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