[VB6] Savoir si un ping est effectué [Résolu]

Messages postés
707
Date d'inscription
jeudi 5 mai 2005
Dernière intervention
5 janvier 2010
- 13 nov. 2006 à 16:09 - Dernière réponse :
Messages postés
292
Date d'inscription
mercredi 25 octobre 2006
Dernière intervention
27 novembre 2009
- 14 nov. 2006 à 13:16
Bonjour à tous!
J'ai un petit souci... Je cherche à faire un ping sur un serveur ( ca, j ai réussi...) et surtout je voudrais récupérer le résultat de ce ping (réussi ou pas) et ca je n y arrive pas. Alors j'ai bien trouvé qeulques sources; mais la technique pour récupérer le résultat me parait à chaque fois bien compliquée; surtout sachant qur pour faire la même chose en java, ca ne prends pas plus de trois lignes!
Est ce que quelqu'un aurait une solution, juste pour récupérer ce résultat puis afficher ok si le ping est correctement réalisé?

Merci d'avance!

         (Si la réponse vous convient, appuyez sur réponse acceptée...).

                           Noubliez pas de lire le REGLEMENT 
Afficher la suite 

Votre réponse

7 réponses

Meilleure réponse
Commenter la réponse de ShareVB
Messages postés
292
Date d'inscription
mercredi 25 octobre 2006
Dernière intervention
27 novembre 2009
- 13 nov. 2006 à 17:31
0
Merci
Salut tof,
le plus simple et le plus court c'est d'utiliser ms dos si tu veux pas te prendre la tete

Ligne = "ping 192.168.1.1"
Open App.Path & "/Resultat.txt" For Output As #1 ' fichier de reception
Close #1
Ping  = "command.com /c " & Ligne & " > " & Resultat

...4lignes..(le resultat de ton ping sera dans le fichier "Resultat.txt")

sinon pour les autres techniques j'en parle meme pas car c'est plus long niveau code(Subclassing),etc..<--- juste pour le resultat
Commenter la réponse de le cancre
Messages postés
292
Date d'inscription
mercredi 25 octobre 2006
Dernière intervention
27 novembre 2009
- 13 nov. 2006 à 17:33
0
Merci
remplace
Ping  = "command.com /c " & Ligne & " > " & Resultat
par
Ping  = "command.com /c " & Ligne & " > " & App.Path & "/Resultat.txt"
Commenter la réponse de le cancre
Messages postés
707
Date d'inscription
jeudi 5 mai 2005
Dernière intervention
5 janvier 2010
- 14 nov. 2006 à 10:46
0
Merci
Merci 891984 Le cancre, mais ta technique ne marche pas du tout chez moi... Je ne recois rien dans le fichier résultat!
quand à tes sources  =11585 ShareVB, la premiere ne marche pas, et j'avais vu les autres, mais je cherchais justement à les simplifier...
Mais bon, je pense que je ne pourrai pas simplifier, alors je vais me pencher dessus! Merci à vous deux, et si quelqu un d'autre a une solution, n'hesitez pas lol!

         (Si la réponse vous convient, appuyez sur réponse acceptée...).

                           Noubliez pas de lire le REGLEMENT 
Commenter la réponse de tof008
Messages postés
2717
Date d'inscription
vendredi 28 juin 2002
Dernière intervention
13 janvier 2016
- 14 nov. 2006 à 10:55
Commenter la réponse de ShareVB
Messages postés
707
Date d'inscription
jeudi 5 mai 2005
Dernière intervention
5 janvier 2010
- 14 nov. 2006 à 11:59
0
Merci
Merci pour ton aide ShareVB. J'ai un peu étudié les différents codes que tu m'a conseillé et j'ai réussi à en sortir ce que je voulais! J'ai juste un peu de mal avec certaines parties comme le montre mo, autre post de la matinée!!!!


Merci pour votre disponibilité....





         (Si la réponse vous convient, appuyez sur réponse acceptée...).




                           Noubliez pas de lire le REGLEMENT 
Commenter la réponse de tof008
Messages postés
292
Date d'inscription
mercredi 25 octobre 2006
Dernière intervention
27 novembre 2009
- 14 nov. 2006 à 13:16
0
Merci
Salut tof

oui désolé j'ai oublié "Shell" dans mon exemple
j'viens de testé mon nouveau code et il marche

Private Sub Command1_Click()
Dim Ligne As String
Ligne = "ping 192.168.1.1"
Call MsDos(Ligne, "c:\Resultat.txt")
End Sub

Sub MsDos(Ligne As String, url As String)
If Dir(url, vbHidden) = "" Then
Open url For Output As #1
Close #1
DoEvents
Call MsDos(Ligne, url)
End If
Ping = "command.com /c " & Ligne & " > " & url
Shell Ping
End Sub
(tu dois attendre 1 à 2seconde,pour ke le résultat s'affiche dans le fichier...le temps que ms dos fasse le ping)

sinon pour les autres techniques j'en parle meme pas car c'est plus long niveau code  ....( <----- mon ancienne phrase)

mais si tu veux tenté  regarde ma source " générateur de trame ip/icmp
tu peux faire un ping en "echo request"

Type 8 & Code 0
http://www.vbfrance.com/codes/GENERATEUR-TRAME-IP-ICMP_40282.aspx

mais tu auras besoin d'un sniffeur pour récuperé le resultat
http://www.vbfrance.com/codes/SNIFFEUR-TRAME-TCP-UDP-ICMP_40033.aspx
Commenter la réponse de le cancre

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.