Private Funktion IncIP (ByVal IP als Schnur) als Schnur
Schwaches arr als Schnur ()
A als ganze Zahl verdunkeln
B als ganze Zahl verdunkeln
C als ganze Zahl verdunkeln
D als ganze Zahl verdunkeln
arr = IP. Spalte („.")
a = Integer.Parse (arr (0))
b = Integer.Parse (arr (1))
c = Integer.Parse (arr (2))
d = Integer.Parse (arr (3)) + 1
Wenn d = 256 dann
d = 0
c = c + 1
Beenden wenn
Wenn c = 256 dann
c = 0
b = b + 1
Beenden wenn
Wenn b = 256 dann
b = 0
a = a + 1
Beenden wenn
Wenn a = 256 dann
a = 127
Beenden wenn
IncIP = String.Format („{0}. {1}. {2}. {3}“, a, b, c, d)
Enden-Funktion
|