Discussion :

[fredx76]

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.

[Bob Langlade]

Voici un exemple extrait de la documentation en ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[fredx76]

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 ?

[Bob Langlade]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Timer1.Enabled = True

[fredx76]

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

Sujet clos