Função confidencial IncIP (IP de ByVal como a corda) como a corda
Arr não ofuscante como a corda ()
Escurecer a como o inteiro
Escurecer b como o inteiro
Escurecer c como o inteiro
Escurecer d como o inteiro
arr = IP. Separação (“.")
a = Integer.Parse (arr (0))
b = Integer.Parse (arr (1))
c = Integer.Parse (arr (2))
d = Integer.Parse (arr (3)) + 1
Se d = 256 então
d = 0
c = c + 1
Terminar se
Se c = 256 então
c = 0
b = b + 1
Terminar se
Se b = 256 então
b = 0
a = a + 1
Terminar se
Se a = 256 então
a = 127
Terminar se
IncIP = String.Format (“{0}. {1}. {2}. {3}”, a, b, c, d)
Função do fim
|