Comment tester si une machine est active sur le réseaux en vb

Bonjour,

J'ai développé une petite application qui fait un certain nombre de chose.

Je voudrais sur ma form principale qu'il soit affiché dans un textbox ou autre l'état d'une machine c'est à dire si elle est présente ou pas sur le réseaux (ping ???) mais je n'arrive pas a mettre cela en place.

J'aimerai que cette vérification soit fait toute les minutes tant que le programme est ouvert et en tache de font.

Est ce que quelqu'un peut m'éclairer sur ce sujet.

Merci par avance.

Voici un exemple extrait de la documentation en ligne :

Code:

---

1 2 3 4 5

If My.Computer.Network.Ping("198.01.01.01") Then MsgBox("Server pinged successfully.") Else MsgBox("Ping request timed out.") End If

---

Il suffit de l'associer à un Timer.

Merci pour votre réponse,
comment puis je associé ce code à un timer pour que se code s'exécute toute les 1mins et en tache de fond ?

Le plus simple, c'est de déplacer le composant depuis la boîte à outils (Icône en forme de chronomètre) vers votre fenêtre en mode « Design » afin de créer une instance automatiquement.
Sélectionner la nouvelle instance, normalement « Timer1 » dans le bas de la fenêtre, pour modifier l’intervalle dans la fenêtre des Propriétés (Touche F4) qui est par défaut de 100 ms. Ou le rentrer directement dans la gestion de l’évènement « New » après « InitializeComponent() » :

Code:

---

Timer1.Interval = 60000

---

Double cliquer sur « Timer1 » dans le bas de l’écran pour accéder à la gestion de l’évènement qui se reproduira maintenant chaque minute.

Code:

---

1 2 3

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick TextBox1.Text = My.Computer.Network.Ping("x.x.x.x”).ToString End Sub

---

Il faut maintenant activer le Timer, soit dans ses propriétés en mettant « Enabled » à True ou en faisant la même chose dans la gestion de l’évènement « New », par exemple :

Code:

---

Timer1.Enabled = True

---

Merci beaucoup pour cette aide c'est exactement ce que je recherchais.

Sujet clos