Discussion :

[magicbisous-nours]

Bonjour,

J'ai créé une application qui effectue chaque minute un ping sur les serveurs de mon entreprise. voila le bout de code qui effectue cette tâche :

Code :

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

1
2
3
4
5
6
Dim siteResponds As Boolean = False
siteResponds = My.Computer.Network.Ping(serverIP)
 
If (siteResponds = False) Then
MsgBox("Le serveur " & serverIP & " ne répond pas.")
End If

Lorsque le serveur est en marche, tout va pour le mieu, mais lorsque le serveur ne répond pas, le programme plante et j'ai un super message d'erreur :

L'exception PingException n'a pas été gérée

Quelqu'un aurait-il une solution pour pallier à ce problème ?
Je voudrai simplement que lorsque le serveur ne répond pas, une msgbox s'affiche et me donne le nom du serveur qui ne répond pas.

Merci d'avance.

[magicbisous-nours]

En fait non, j'ai trouvé comment régler le problème en essayant un Try.

Si il y a une erreur, je la gère avec un catch et j'effectue les opérations necessaires.