Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Jak sprawdzic czy dany nr IP jest poprawny?
lop



Typ: neutral
Postów: 9
Zarejestrowany: Sep 2004
Jak sprawdzic czy dany nr IP jest poprawny?

Witam )
Czy wie ktos w jaki sposob mozna sprawdzic czy dany adres ip jest wpisany poprawnie?
Przyklad: mamy forme a na niej textboxa i chcemy zeby klikając jakis przycisk program sprawdzil czy wpisany do niego ip jest poprawny, czyli czy ma cztery wartosci (0-255) odzielone kropkami, itp. Z gory dzieki za odp i fajnie jakby ktos rzucil jakis przykladzik...

27-03-2005 23:24
Pokaż profil lop  Wyślij email do lop        3710088
bisiek




Typ: neutral
Postów: 487
Zarejestrowany: Jul 2003

W vb6:

a = split(ip,"."
if ubound(a) <> 3 then 'zły ip
for i = 0 to 3
if a <> cstr(val(a)) then 'zły ip
next
'dobry ip


_____________________________________________
www.mob.abc.pl - moja strona o VB

28-03-2005 19:12
Pokaż profil bisiek  Wyślij email do bisiek   Odwiedź stronę bisiek       3380672
Chudy
[TLHW]Wiktor



Typ: moderator
Postów: 574
Zarejestrowany: Aug 2002

Funkcja podobna do kodu Biśka lecz troszke bardziej odporna:
Public Function CheckIP(IP As String) As Boolean
    Dim I As Integer
    X = Split(IP, "." )
    If UBound(X) <> 3 Then Exit Function
    For I = 0 To 3
        If Len(X(I)) > 3 Or X(I) = "" Or Not IsNumeric(X(I)) Then Exit Function
        If Val(X(I)) < 0 Or Val(X(I)) > 255 Then Exit Function
    Next
    CheckIP = True
   

End Function


Przykład zastosowania:
Private Sub Command1_Click()
    If CheckIP("80.48.246.2" ) Then
        MsgBox "IP poprawny !"
    Else
        MsgBox "IP niepoprawny !"
    End If
End Sub


[Post edytowany dnia 29-03-2005 15:02 przez Chudy]


_____________________________________________
Projekt "Thunder Cannons" nadchodzi...

29-03-2005 15:01
Pokaż profil Chudy  Wyślij email do Chudy   Odwiedź stronę Chudy       1220895
Wszystkich odpowiedzi: 2 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1