Privat fungera IncIP (ByVal ip som stränger) som stränger
Dunkel arr som stränger ()
Dunkelt a som heltal
Dunkelt b som heltal
Dunkelt c som heltal
Dunkelt D som heltal
arr = ip. Splittring (”. ”)
a = Integer.Parse (arr (0))
b = Integer.Parse (arr (1))
c = Integer.Parse (arr (2))
D = Integer.Parse (arr (3)) + 1
Om D = 256 därefter
D = 0
c = c + 1
Avsluta om
Om c = 256 därefter
c = 0
b = b + 1
Avsluta om
Om b = 256 därefter
b = 0
a = a + 1
Avsluta om
Om a = 256 därefter
a = 127
Avsluta om
IncIP = String.Format (”{0}. {1}. {2}. {3}”, a, b, c, D)
Avsluta fungerar
|