Bonjour à tous,

Je cherche le moyen d'incrémenter de 1 une adresse ip contenu dans une variable string afin de tester un intervalle d'adresse. J'ai essayé un récupérant la fin de l'adresse mais le problème c'est que l'adresse ne contient jamais le même nombre de caractère :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Do While Not adresse_deb = adresse_fin
            getPingTime(adresse_deb)
            'fin_adresse = adresse_deb.Substring(10)
            'fin_adresse = fin_adresse + 1
            'adresse_deb = (adresse_deb.Substring(0, 10)) & fin_adresse
        Loop
 
Private Function getPingTime(ByVal adresseIP As String) As String
        ' AdresseIP : chaîne de caractère contenant l'adresse IP de l'hôte à "pinger"
        ' Instanciation d'un objet Ping
        Dim monPing As New Ping
        ' Objet PingReply qui nous permettra de récupérer le résultat
        Dim maReponsePing As PingReply
        Dim resultatPing As String = Nothing
        Try
            ' Récupération du résultat obtenu par la méthode Send()
            maReponsePing = monPing.Send(adresseIP, Nothing)
            ' Formatage du résultat avec récupération du temps en millisecondes
            ' grâce à la propriété RoundtripTime.
            resultatPing = "Réponse de " & adresseIP & " en " & maReponsePing.RoundtripTime.ToString & " ms."
            MsgBox(resultatPing)
        Catch ex As PingException
            ' Formatage de l'exception affichée
            resultatPing = "Impossible de joindre l'hôte : " & ex.Message
            Return resultatPing
        End Try
    End Function
Merci de l'aide