Función privada IncIP (IP de ByVal como secuencia) como secuencia
Arr dévil como secuencia ()
Amortiguar a como número entero
Amortiguar b como número entero
Amortiguar c como número entero
Amortiguar d como número entero
arr = IP. Fractura (“.")
a = Integer.Parse (arr (0))
b = Integer.Parse (arr (1))
c = Integer.Parse (arr (2))
d = Integer.Parse (arr (3)) + 1
Si d = 256 entonces
d = 0
c = c + 1
Terminar si
Si c = 256 entonces
c = 0
b = b + 1
Terminar si
Si b = 256 entonces
b = 0
a = a + 1
Terminar si
Si a = 256 entonces
a = 127
Terminar si
IncIP = String.Format (“{0}. {1}. {2}. {3}”, a, b, c, d)
Función del final
|