Ouvrez un nouveau fichier de forme. Dans votre espace de travail en studio visuel, à droite; cliquez sur le nom du projet dans la boîte à outils Explorateur de solutions. Sélectionnez Ajouter un formulaire. Une nouvelle forme apparaît dans votre espace de travail.
Définissez l'adresse IP ou le nom de domaine de l'ordinateur que vous voulez faire un ping. Le code ci-dessous alloue une variable avec une adresse IP définie. La variable de timeout indique à l'ordinateur quand arrêter la recherche d'une réponse de la machine distante.
Dim myIP As String = "192.168.0.1"
TimeOutValue Dim As Integer = 120
Allouer de la mémoire pour la classe de ping. Avant d'utiliser la classe de ping, il doit être appelé et enregistré dans une variable.
Dim pingComputer Comme Ping Ping = new ()
Ping l'ordinateur. Le code suivant utilise la méthode d'envoi pour tester l'adresse IP désignée à l'étape 2.
Dim theReply Comme PingReply = pingComputer.Send (myIP)
Vérifiez que la commande a réussi. Une réponse de succès est retourné à la propriété d'état dans la variable theReply. Le code ci-dessous est enroulé autour du code qui indique à l'application quoi faire si l'ordinateur sur le réseau a répondu.
Si theReply.Status = IPStatus.Success
End If
Afficher la réponse. Le code ci-dessous affiche la réponse à la console que si le ping a réussi.
Si theReply.Status = IPStatus.Success
Console.WriteLine ("IP: {0}", TheReply.Address.ToString ())
Console.WriteLine ("Durée du voyage: {0}", TheReply.RoundtripTime)
End If