Discussion :

[urbanspike]

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

[ludooo]

Tu peux peut-être utiliser la fonction String.Split pour scinder ton IP sur chaque "." détecté, tu incrémentes ton dernier numéro, et tu concatenes les éléments.

[smyley]

Pourquoi faire simple quand on peut faire compliqué ?

En C# :

Code c# :

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
28
29
30
31
32
33
 
        public static void MiniSwap([In,Out]byte[] tab, int i, int j)
        {
            byte b = tab[i];
            tab[i] = tab[j];
            tab[j] = b;
        }
 
        public static IPAddress AddToIp(IPAddress baseAdr, int value)
        {
            byte[] b = baseAdr.GetAddressBytes();
            MiniSwap(b, 0, 3);
            MiniSwap(b, 1, 2);
 
            b = BitConverter.GetBytes(BitConverter.ToInt32(b, 0) + value);
 
            MiniSwap(b, 0, 3);
            MiniSwap(b, 1, 2);
 
            return new IPAddress(b);
        }
 
        static void Main(string[] args)
        {
            IPAddress b = IPAddress.Parse("127.0.0.1");
            for (int i = 0; i < 600; i++)
            {
                b = AddToIp(b, 1);
                Console.WriteLine(b);
            }
            Console.WriteLine(AddToIp(b, 6000));
            Console.ReadLine();
          }

Et la traduction en vb :

Code vb :

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
28
29
 
Public Shared Sub MiniSwap(<[In](), Out()> ByVal tab As Byte(), ByVal i As Integer, ByVal j As Integer)
    Dim b As Byte = tab(i)
    tab(i) = tab(j)
    tab(j) = b
End Sub
 
Public Shared Function AddToIp(ByVal baseAdr As IPAddress, ByVal value As Integer) As IPAddress
    Dim b As Byte() = baseAdr.GetAddressBytes()
    MiniSwap(b, 0, 3)
    MiniSwap(b, 1, 2)
 
    b = BitConverter.GetBytes(BitConverter.ToInt32(b, 0) + value)
 
    MiniSwap(b, 0, 3)
    MiniSwap(b, 1, 2)
 
    Return New IPAddress(b)
End Function
 
Private Shared Sub Main(ByVal args As String())
    Dim b As IPAddress = IPAddress.Parse("127.0.0.1")
    For i As Integer = 0 To 599
        b = AddToIp(b, 1)
        Console.WriteLine(b)
    Next
    Console.WriteLine(AddToIp(b, 6000))
    Console.ReadLine()
End Sub