Public Declare Function inet_addr Lib "ws2_32" _
 (ByVal lpszAddress As String) As Long
Public Const INADDR_NONE = &HFFFFFFFF
Public Function IsIPAddress(ByVal strAddress As String) As Boolean
    If inet_addr(strAddress) <> INADDR_NONE Then
            IsIPAddress = True
    Else
            IsIPAddress = False
    End If
End Function

附   件:

点击附件下载

演   示: