Funzione riservata IncIP (IP di ByVal come stringa) come stringa
Arr fioco come stringa ()
Oscurare la a come numero intero
Oscurare la b come numero intero
Oscurare la c come numero intero
Oscurare la d come numero intero
arr = IP. Spaccatura (“.")
a = Integer.Parse (arr (0))
b = Integer.Parse (arr (1))
c = Integer.Parse (arr (2))
d = Integer.Parse (arr (3)) + 1
Se d = 256 allora
d = 0
c = c + 1
Concluder se
Se c = 256 allora
c = 0
b = b + 1
Concluder se
Se b = 256 allora
b = 0
a = a + 1
Concluder se
Se a = 256 allora
a = 127
Concluder se
IncIP = String.Format (“{0}. {1}. {2}. {3}„, a, b, c, d)
Funzione di conclusione
|