如何校验IP地址

Question

Dim i  As Long, j As Long, k As Long, m As String
    j = 0
    For i = 1 To 4      '进行ip地址有效性验证
        k = InStr(j + 1, Text1.Text, ".")
        If k = 0 Then Exit For
        m = Mid$(Text1.Text, j + 1, k - j - 1)
        If IsNumeric(m) Then
            If Val(m) < 0 Or Val(m) > 255 Then Exit For
        Else
            Exit For
        End If
        j = k
    Next
    m = Mid(Text1.Text, j + 1)
    
    If i = 4 And Val(m) >= 0 And Val(m) < 256 Then
debug.print "IP 地址有效!"
    Else
        debug.print "IP 地址无效，请重新输入 !"         
    End If

Answer 1

调用inetaddr看看能否成功。
然后ping一下看看能否成功。