begin process at 2012 02 17 02:21:09
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Réseau & Internet

 > PETIT LOGICIEL PERMETTANT DE SURVEILLER UNE LIAISON ADSL

PETIT LOGICIEL PERMETTANT DE SURVEILLER UNE LIAISON ADSL


 Information sur la source

Note :
Aucune note
Catégorie :Réseau & Internet Classé sous :surveillance, liaison, ADSL, ping Niveau :Débutant Date de création :26/10/2007 Date de mise à jour :07/01/2008 14:41:54 Vu / téléchargé :10 745 / 713

Auteur : noussibeau

Ecrire un message privé
Commentaire sur cette source (0)
Ajouter un commentaire et/ou une note

 Description

Par ping sur divers sites supposés répondre selon le principe suivant :
le premier est pingué, s'il répond pas de problème
sinon le second est pingué, si répond pas de problème
sinon le troisième est pingué, s'il répond pas de probleme
si le troisieme lui aussi ne répond pas, on considére que l'ADSL est coupé, une message de déconnection est écrit dans un fichier appelé test.txt : il commence par D (comme déconnection!) et contient la date et l'heure du constats
le programme continue. Lorsque la connection est rétablie, un message est écrit dans le fichier test. Il commence par C (comme connection!) et contient l'heure ..
Ce programme peut tourner perpétuellement ..
Au début il vérifie si test.txt existe et si oui en fait une sauvegarde avant de le remettre à zéro et de commencer à l'utiliser. Le premier message donne les adresses à pinguer (données en paramètre) et l'heure de lancement.
Voilà bon usage!!

Source

  • 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
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

 Conclusion

en position de force pour discuter de la qualité de votre liaison avec un forunisseur

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Historique

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!

 Sources de la même categorie

Source avec Zip Source avec une capture GESTIONNAIRE DE TÉLÉCHARGEMENT, AVEC REPRISE ET MULTITHREADI... par Madx23
Source avec Zip Source avec une capture CONVERTIR DU TEXTE RTF EN CODE HTML ET VICE-VERSA par vicosta
Source avec Zip Source avec une capture DICTIONAIRE TEXT/AUDIO/VISUELLE ANGLAIS AVEC WEBBROWSER CONT... par majnounmajda
Source avec Zip Source .NET (Dotnet) NSLOOKUP EN VB.NET OU COMMENT FAIRE UNE REQÛETE DNS EN PRÉCI... par ShareVB
Source avec Zip Source avec une capture MINI SEVEUR HTTP AVEC INTERFACE GRAPHIQUE ET IMPLÉMENTATIONS... par lemout

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture PING (SOCKET MODE RAW) par EBArtSoft
Source avec Zip Source avec une capture HANDLISTER par Christ_OFF
Source avec Zip LCK **** GESTION DE PARC INFORMATIQUE par toonsy12
Source avec Zip RASSEMBLER PLUSIEURS TABLES par malcomxw
Source avec Zip Source avec une capture Source .NET (Dotnet) TRACEROUTE, TRAÇAGE DE SERVEUR OU D'IP par zavier666

Commentaires et avis

Aucun commentaire pour le moment.

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Outlook et Adsl [ par CHRISTOPHE ] Salut,Voila la situation.J'ai deux PC reliés par un LAN.Le premier est connecté à internet par une liaison Adsl.Le second partage cette liaison grâce Outlook et adsl urgent !!! [ par CHRISTOPHE ] Salut,Voila la situation.J'ai deux PC reliés par un LAN.Le premier est connecté à internet par une liaison Adsl.Le second partage cette liaison grâce Attaquer un serveur SQL via une liaison ADSL de 512 [ par francisco ] Bonjour à tousJ'ai un problème et j'espère franchement que vous m'aidiezNous avons developpé sous vb6, une application de caisse déconnectée qui neces Problème de liaison entre une application et un serveur SQL [ par wacssine ] Bonjour,Mon problème c'est que je veus lier mon application avec un serveur SQL et l'utilisateur doit choisir la base dans le serveur sur laquelle va liste d'appareil à partir d'un ping [ par jon51 ] bonjour,je suis en ce moment sur mon prjet pour mon BTS que je dévellope en VB 2005 expresse, je voudrais que grace a un ping une liste d'appareil pré Communication PC Automate par liaison ethernet [ par Flewms ] Dans le cadre de mon stage de fin d'étude (DUT GEII), je dois réaliser la communication entre un PC et un Automate Siemens S7-300 via la liaison ether liaison automate PC [ par iverson59 ] Bonjour,je suis actuellement en stage, et je dois pouvoir récupérer toutes les sources contenues dans des automates Télémécanique pour faire un traite Liaison Word et VB.2008 [ par samuss ] Bonjour tout le monde, Après avoir pas mal chercher je n'ai pas trouvé mon bonheur, je m'explique je suis en train de créer un logiciel de gestion de Surveillance d'une base de données avec un service Windows ? [ par oo7jb5 ] < dialogue entre access et un terminal via une liaison série [ par yoann_b29 ] Bonjour,J'ai fait une base de données sous access, et maintenant, je doit pouvoir lancer un terminal (du type hyperterminal ou teraterm...)et y envoye


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,733 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales