PETIT LOGICIEL PERMETTANT DE SURVEILLER UNE LIAISON ADSL

Imports System
Imports System.Threading
Module pingctrlerreur
    Sub Main(ByVal cmdArgs() As String)
        Dim millisecondsTimeout As Integer
        Dim Connecte As Boolean
        Dim nouveaunom, vrainouveaunom As String
        Dim AdressesPing(3) As String
        Dim IpAddr, Codret As String
        Dim Ping As New Net.NetworkInformation.Ping
        Dim PingReply As Net.NetworkInformation.PingReply
        millisecondsTimeout = 30000
        Connecte = False
        If My.Computer.FileSystem.FileExists("test.txt") Then
            nouveaunom = "C" & DateString & TimeString & ".txt"
            vrainouveaunom = Replace(nouveaunom, ":", "")
            My.Computer.FileSystem.RenameFile("test.txt", vrainouveaunom)
        End If
        If cmdArgs.Length > 0 Then
            For argNum As Integer = 0 To UBound(cmdArgs, 1)
                AdressesPing(argNum) = cmdArgs(argNum)
            Next argNum
        Else
            AdressesPing(0) = "194.2.0.50"
            AdressesPing(1) = "82.122.13.170"
            AdressesPing(2) = "193.253.160.3"
        End If
        My.Computer.FileSystem.WriteAllText("C:test.txt", _
        "PING sur " & AdressesPing(0) & " " & AdressesPing(1) & " " & AdressesPing(2) & " " & " le " & DateString & " " & " à " & TimeString & Chr(13), True)
        While True
            Try
                ' On envoit la requete du ping
                IpAddr = AdressesPing(0)
                PingReply = Ping.Send(IpAddr)
                ' Test du code retour du Ping
                If PingReply.Status <> Net.NetworkInformation.IPStatus.Success Then
                    CodRet = PingReply.Status.ToString
                    Throw New Net.NetworkInformation.NetworkInformationException(9999)
                End If
                ' si la connection est déjà connue, on ne fait rien sinon on la note dans le fichier
                If Not Connecte Then
                    Connecte = True
                    My.Computer.FileSystem.WriteAllText("C:test.txt", "C" & "," & "1," & AdressesPing(0) & "," & DateString & "," & TimeString & Chr(13), True)
                End If
            Catch ex As Exception
                ' En cas d'erreur ping deuxieme IP
                Try
                    ' On envoit la requete du ping
                    IpAddr = AdressesPing(1)
                    PingReply = Ping.Send(IpAddr)
                    If PingReply.Status <> Net.NetworkInformation.IPStatus.Success Then
                        Throw New Net.NetworkInformation.NetworkInformationException(9999)
                    End If
                    ' On affiche le résultat du ping
                    ' tant que ça marche, on ne fait rien
                    ' si le ping ne marche pas le catch ex as exception doit prendre le controle
                Catch ex1 As Exception
                    ' En cas d'erreur sur deuxieme IP ping troisieme IP
                    Try
                        ' On envoit la requete du ping
                        IpAddr = AdressesPing(2)
                        PingReply = Ping.Send(IpAddr)
                        If PingReply.Status <> Net.NetworkInformation.IPStatus.Success Then
                            Throw New Net.NetworkInformation.NetworkInformationException(9999)
                        End If
                        ' On affiche le résultat du ping
                        ' tant que ça marche, on ne fait rien
                        ' si le ping ne marche pas le catch ex as exception doit prendre le controle
                    Catch ex2 As Exception
                        ' En cas d'erreur sur la troisième IP : 
                        ' si la deconnection est déjà connue on ne fait rien sinon 
                        ' on écrit la deconnection dans le fichier
                        ' et on note la déconnection
                        If Connecte Then
                            Connecte = False
                            My.Computer.FileSystem.WriteAllText("C:test.txt", "D" & "," & "1," & AdressesPing(0) & "," & DateString & "," & TimeString & " " & "Code Retour = " & Codret & " " & Chr(13), True)
                        End If
                    End Try
                End Try
            End Try

            ' Pause de 15 seconde entre chaque ping
            System.Threading.Thread.Sleep(30000)
        End While
    End Sub

End Module

Télécharger le zip

02 novembre 2007 09:53:03 :

Correction du code qui ne marchait pas très bien. Le module s'appelle PingCTRLErreurs, il suffit de l'appeler en lui donnant en paramétre trois adresse à pinguer. Il ne fait aucun contrôle sur les adresses, on peut donner trois fois la même. Si on en donne pas trois cela provoque une erreur.

07 janvier 2008 14:41:57 :

code non fourni la premiere fois par erreur!