test 3 PING avant procedure

Bonjour,

je veux faire 3 ping avant de lancer une procédure et si l'un des 3 ping échoues je recommence au ping numero 1, comment faire ?

merci de votre aide

Bonjour,

Code:

---

1 2 3 4 5 6

IF My.Computer.Network.Ping("Addresse") THEN ' Ping OK ELSE ' Ping NOK END IF

---