Fonction privée IncIP (IP de ByVal comme corde) comme corde
Faible arr comme corde ()
Obscurcir a comme nombre entier
Obscurcir b comme nombre entier
Obscurcir c comme nombre entier
Obscurcir d comme nombre entier
arr = IP. Fente (« .")
a = Integer.Parse (arr (0))
b = Integer.Parse (arr (1))
c = Integer.Parse (arr (2))
d = Integer.Parse (arr (3)) + 1
Si d = 256 puis
d = 0
c = c + 1
Finir si
Si c = 256 puis
c = 0
b = b + 1
Finir si
Si b = 256 puis
b = 0
a = a + 1
Finir si
Si a = 256 puis
a = 127
Finir si
IncIP = String.Format (« {0}. {1}. {2}. {3} », a, b, c, d)
Fonction de fin
|
