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

Question

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

ShareVB · Accepted Answer

salut,

http://www.activevb.de/tipps/vb6tipps/tipp0329.html
http://www.vbfrance.com/codes/LET-PING_5759.aspx
http://www.vbfrance.com/code.aspx?ID=57

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/iphlp/iphlp/icmpsendecho.asp

ShareVB

le cancre · Answer

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

le cancre · Answer

remplace 
Ping  = "command.com /c " & Ligne & " > " & Resultat
par 
Ping  = "command.com /c " & Ligne & " > " & App.Path & "/Resultat.txt"

tof008 · Answer

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

ShareVB · Answer

salut,

si les deux codes ci-dessous ne marche pas alors là :
http://www.vbfrance.com/codes/PING-VB-CINQ-FACONS-PROCEDER_36588.aspx
http://support.microsoft.com/default.aspx?scid=kb%3Ben-us%3B300197

ShareVB

tof008 · Answer

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

le cancre · Answer

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

[VB6] Savoir si un ping est effectué

7 réponses

Votre réponse

Discussions similaires