Ceci est un petit OCX (le premier que j'ai fait, il est vraiment tout simple) qui ajoute un composant en forme de compteur de vitesse, une icône de 32x32 pixel et qui indique la vitesse de ping d'une machine distante.
Je me sers d'un module "Ping" qui n'est pas de moi, je l'ai trouvé ici il y a longtemps et l'auteur est "KPD-Team 2000" (http://www.allapi.net/) merci à lui.
Si l'on dimentionne l'icône un peu plus haute, on peut également faire apparaître le nom de la machine distante.
Remarque: J'aurais pu faire bouger l'aiguille par trigo, mais le positionnement n'était pas super esthétique alors j'ai préféré définir moi-même le positionnement de cette aiguille.
Comme la réponse de ping peut aller jusqu'à 2 secondes, j'ai mis le timer à 2.5 secondes.
Les principales propriétés sont "Resultat", "Reponse", "BackColor", "Enabled", "Etat" et "Machine"
La propriété "Machine" est l'adresse IP (ou dns) de la machine à pinger
La propriété "Resultat" renvoie le délai en millisecondes ou le temps d'inactivité
La propriété "Réponse" renvoie True ou False si la machine distante réponds on non
La propriété "Etat", si elle est "Vide" enlève la petite LED en bas à droite, sinon elle devient vert si ok, rouge si pas ok et jaune si c'est à nouveau bon après interruption. Pour la remettre vert, on peut, par exemple, remettre cette propriété "Vert" par le code suivant:
Private Sub BoardPing1_Click()
BoardPing1.Etat = Vert
End Sub