Приватная функция IncIP (ip ByVal как шнур) как шнур
Тусклое arr как шнур ()
Затемните a как интежер
Затемните b как интежер
Затемните c как интежер
Затемните d как интежер
arr = ip. Разделение («.")
a = Integer.Parse (arr (0))
b = Integer.Parse (arr (1))
c = Integer.Parse (arr (2))
d = Integer.Parse (arr (3)) + 1
Если d = 256 после этого
d = 0
c = c + 1
Закончитесь если
Если c = 256 после этого
c = 0
b = b + 1
Закончитесь если
Если b = 256 после этого
b = 0
a = a + 1
Закончитесь если
Если a = 256 после этого
a = 127
Закончитесь если
IncIP = String.Format («{0}. {1}. {2}. {3}», a, b, c, d)
Функция конца
|
