Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Ping

Ping

7 réponses
Avatar
Daniel
Bonjour,

Je recherche comment faire un ping sur une adresse IP en VB.net.

Merci par avance.

cordialement
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Fred
Dans son message e%
Daniel nous dit :

Bonjour,

Je recherche comment faire un ping sur une adresse IP en VB.net.

Merci par avance.

cordialement



Bonjour,
Un exemple complet ici :
http://support.microsoft.com/default.aspx?scid=kb;en-us;828993

--
Fred
http://www.cerbermail.com/?3kA6ftaCvT
Avatar
Daniel
Merci,

Mais j'ai à peine ouvert la page que des mots de tête sont apparut.

Tous ca pour un simple ping. Je déprime.



Encore merci



cordialement,



"Fred" a écrit dans le message de news:

Dans son message e%
Daniel nous dit :

Bonjour,

Je recherche comment faire un ping sur une adresse IP en VB.net.

Merci par avance.

cordialement



Bonjour,
Un exemple complet ici :
http://support.microsoft.com/default.aspx?scid=kb;en-us;828993

--
Fred
http://www.cerbermail.com/?3kA6ftaCvT



Avatar
Megaten
Tu exagere il ne s'agit pas d'une page mais d'un livre tu as
vraimant pris un coup sur la tete ... moi aussi
Bon ping


Daniel a écrit :
Merci,

Mais j'ai à peine ouvert la page que des mots de tête sont apparut.

Tous ca pour un simple ping. Je déprime.



Encore merci



cordialement,



"Fred" a écrit dans le message de news:


Dans son message e%
Daniel nous dit :


Bonjour,

Je recherche comment faire un ping sur une adresse IP en VB.net.

Merci par avance.

cordialement



Bonjour,
Un exemple complet ici :
http://support.microsoft.com/default.aspx?scid=kb;en-us;828993

--
Fred
http://www.cerbermail.com/?3kA6ftaCvT








Avatar
Fred
Dans son message
Megaten nous dit :

Tu exagere il ne s'agit pas d'une page mais d'un livre tu as
vraimant pris un coup sur la tete ... moi aussi
Bon ping



:D
Voyons ! Un copier/coller et cela fonctionne.
Testé bien sûr ;-)
Après on prend le temps de comprendre avec un tube d'aspirine à
proximité.

Plus sérieusement. Je ne sais pas s'il y a plus simple. Si vous trouvez
je suis preneur aussi !

--
Fred
http://www.cerbermail.com/?3kA6ftaCvT
Avatar
Sebastien Bovo [MS]
Bonjour,

Autre technique :

Lancer la commande externe "ping.exe" et récupérer le résultat.





Dim Commande As String = "ping"
Dim Parametres As String = "MaMachine"
Dim Timeout As Integer = 0

Dim Sortie As StreamReader
Dim TxtSortie As String
Dim Succes As Boolean = False

Try
Dim MonProcess As New Process
MonProcess.StartInfo.FileName = Commande
MonProcess.StartInfo.Arguments = Parametres
MonProcess.StartInfo.UseShellExecute = False
MonProcess.StartInfo.CreateNoWindow = True
MonProcess.StartInfo.RedirectStandardOutput = True
MonProcess.Start()

If Timeout = 0 Then
Sortie = MonProcess.StandardOutput
TxtSortie = Sortie.ReadToEnd()
MonProcess.WaitForExit()
Else
Succes = MonProcess.WaitForExit(Timeout * 1000)
If Succes Then
Sortie = MonProcess.StandardOutput
TxtSortie = Sortie.ReadToEnd()
Else
TxtSortie = "Expiration du delai de " & Timeout & " secondes"
End If
End If
Catch ex As Exception
Throw New Exception("Exception lors du lancement de la ligne de
commande")
Finally
Sortie.Close()
End Try







--
Cordialement,

Sebastien Bovo
Microsoft France
----------
Ce message est fourni en l'état, sans garantie d'aucune sorte, et ne vous
confère aucun droit. Vous assumez tous les risques liés à son utilisation.


"Fred" wrote in message
news:
Dans son message
Megaten nous dit :

Tu exagere il ne s'agit pas d'une page mais d'un livre tu as
vraimant pris un coup sur la tete ... moi aussi
Bon ping



:D
Voyons ! Un copier/coller et cela fonctionne.
Testé bien sûr ;-)
Après on prend le temps de comprendre avec un tube d'aspirine à proximité.

Plus sérieusement. Je ne sais pas s'il y a plus simple. Si vous trouvez je
suis preneur aussi !

--
Fred
http://www.cerbermail.com/?3kA6ftaCvT



Avatar
Daniel
Bonjour,

je test ca immediatement

Merci

"Sebastien Bovo [MS]" a écrit dans le message
de news:
Bonjour,

Autre technique :

Lancer la commande externe "ping.exe" et récupérer le résultat.





Dim Commande As String = "ping"
Dim Parametres As String = "MaMachine"
Dim Timeout As Integer = 0

Dim Sortie As StreamReader
Dim TxtSortie As String
Dim Succes As Boolean = False

Try
Dim MonProcess As New Process
MonProcess.StartInfo.FileName = Commande
MonProcess.StartInfo.Arguments = Parametres
MonProcess.StartInfo.UseShellExecute = False
MonProcess.StartInfo.CreateNoWindow = True
MonProcess.StartInfo.RedirectStandardOutput = True
MonProcess.Start()

If Timeout = 0 Then
Sortie = MonProcess.StandardOutput
TxtSortie = Sortie.ReadToEnd()
MonProcess.WaitForExit()
Else
Succes = MonProcess.WaitForExit(Timeout * 1000)
If Succes Then
Sortie = MonProcess.StandardOutput
TxtSortie = Sortie.ReadToEnd()
Else
TxtSortie = "Expiration du delai de " & Timeout & " secondes"
End If
End If
Catch ex As Exception
Throw New Exception("Exception lors du lancement de la ligne de
commande")
Finally
Sortie.Close()
End Try







--
Cordialement,

Sebastien Bovo
Microsoft France
----------
Ce message est fourni en l'état, sans garantie d'aucune sorte, et ne vous
confère aucun droit. Vous assumez tous les risques liés à son utilisation.


"Fred" wrote in message
news:
Dans son message
Megaten nous dit :

Tu exagere il ne s'agit pas d'une page mais d'un livre tu as
vraimant pris un coup sur la tete ... moi aussi
Bon ping



:D
Voyons ! Un copier/coller et cela fonctionne.
Testé bien sûr ;-)
Après on prend le temps de comprendre avec un tube d'aspirine à
proximité.

Plus sérieusement. Je ne sais pas s'il y a plus simple. Si vous trouvez
je suis preneur aussi !

--
Fred
http://www.cerbermail.com/?3kA6ftaCvT







Avatar
Daniel
Ca marche trés bien.

Merci pour ton code

cordialement,

Daniel

"Daniel" a écrit dans le message de
news:
Bonjour,

je test ca immediatement

Merci

"Sebastien Bovo [MS]" a écrit dans le message
de news:
Bonjour,

Autre technique :

Lancer la commande externe "ping.exe" et récupérer le résultat.





Dim Commande As String = "ping"
Dim Parametres As String = "MaMachine"
Dim Timeout As Integer = 0

Dim Sortie As StreamReader
Dim TxtSortie As String
Dim Succes As Boolean = False

Try
Dim MonProcess As New Process
MonProcess.StartInfo.FileName = Commande
MonProcess.StartInfo.Arguments = Parametres
MonProcess.StartInfo.UseShellExecute = False
MonProcess.StartInfo.CreateNoWindow = True
MonProcess.StartInfo.RedirectStandardOutput = True
MonProcess.Start()

If Timeout = 0 Then
Sortie = MonProcess.StandardOutput
TxtSortie = Sortie.ReadToEnd()
MonProcess.WaitForExit()
Else
Succes = MonProcess.WaitForExit(Timeout * 1000)
If Succes Then
Sortie = MonProcess.StandardOutput
TxtSortie = Sortie.ReadToEnd()
Else
TxtSortie = "Expiration du delai de " & Timeout & " secondes"
End If
End If
Catch ex As Exception
Throw New Exception("Exception lors du lancement de la ligne de
commande")
Finally
Sortie.Close()
End Try







--
Cordialement,

Sebastien Bovo
Microsoft France
----------
Ce message est fourni en l'état, sans garantie d'aucune sorte, et ne vous
confère aucun droit. Vous assumez tous les risques liés à son
utilisation.


"Fred" wrote in message
news:
Dans son message
Megaten nous dit :

Tu exagere il ne s'agit pas d'une page mais d'un livre tu as
vraimant pris un coup sur la tete ... moi aussi
Bon ping



:D
Voyons ! Un copier/coller et cela fonctionne.
Testé bien sûr ;-)
Après on prend le temps de comprendre avec un tube d'aspirine à
proximité.

Plus sérieusement. Je ne sais pas s'il y a plus simple. Si vous trouvez
je suis preneur aussi !

--
Fred
http://www.cerbermail.com/?3kA6ftaCvT