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 :
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 :
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
Quelqu'un aurait-il une solution pour pallier à ce problème ?L'exception PingException n'a pas été gérée
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.
Partager