For x=1 to Len(content) bs = Mid(content, x, 1) If bs = "0" Or bs = "1" Or bs = "2" Or bs = "3" Or bs = "4" Or bs = "5" Or bs = "6" Or bs = "7" Or bs = "8" Or bs = "9" If Not t1 = "." d1+bs ElseIf Not t2 = "." d2+ bs ElseIf Not t3 = "." d3+ bs ElseIf Not t4 = ":" d4+ bs Else pp+ bs EndIf ElseIf bs = "." If Not d1 = "" And d2 = "" t1 = "." ElseIf Not d2 = "" And d3 = "" t2 = "." ElseIf Not d3 = "" And d4 = "" t3 = "." ElseIf Not pp = "" d1 = pp d2 = "" d3 = "" d4 = "" pp = "" t1 = "." t2 = "" t3 = "" t4 = "" EndIf Else If Not d4 = "" And pp = "" t4 = ":" ElseIf Val(pp) > 79 And Val(pp) < 9000 And Val(d1) < 255 And Val(d2) < 255 And Val(d3) < 255 And Val(d4) < 255 And Val(d1) > 0 And Val(d2) > 0 And Val(d3) > 0 And Val(d4) > 0 p+ 1 prx = d1 + t1 + d2 + t2 + d3 + t3 + d4 + t4 + pp If Not FindString(prx, "127.0.0.1", 1) For r = 1 To ArraySize(prox()) g = 0 If prox(r) = prx g = 1 EndIf Next If g = 0 prox(ArraySize(prox())) = prx ReDim prox(ArraySize(prox())+1) EndIf EndIf d1 = "" d2 = "" d3 = "" d4 = "" pp = "" t1 = "" t2 = "" t3 = "" t4 = "" Else d1 = "" d2 = "" d3 = "" d4 = "" pp = "" t1 = "" t2 = "" t3 = "" t4 = "" EndIf EndIf Next x