|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Redes/Comunicações)
|
|
 |
Título da Dica: Validar endereço de IP
|
 |
|
|
|
Postada em 11/4/2006 por ¨Hennyere¨
Public Function IsValidIP(Test As String) As Boolean
Dim SubNets() As String
Dim i As Integer
If LCase(Test) = "localhost" Then
IsValidIP = True
Exit Function
End If
If Len(Test) > 16 Then
IsValidIP = False
Exit Function
End If
SubNets = Split(Test, ".")
If UBound(SubNets) > 3 Then
IsValidIP = False
Exit Function
End If
For i = 0 To 3
If Not IsNumeric(SubNets(i)) Or SubNets(i) < 0 Or SubNets(i) > 255 Then
IsValidIP = False
Exit Function
End If
Next
IsValidIP = True
End Function
'Josefh Hennyere
|
|
|
|
|
