如何判断一个字符串是合法的ip地址

[demiurge]

如何判断一个字符串是合法的ip地址

[hpygzhx520]

instr取第一个点的位置,判断从开头到第一个点的部分是否在0到255之间，于是得到第一段
instrrev取得最后一个点的位置，判断从最后一个点的位置到末尾是否在0到255之间，于是得到最后一段。
中间的应该会了吧？

[goodname008]

Option Explicit

Private Declare Function inet_addr Lib "ws2_32" (ByVal lpszAddress As String) As Long
Private Const INADDR_NONE = &HFFFFFFFF

Private Sub Form_Load()
Debug.Print IsIPAddress("127.0.0.1")
Debug.Print IsIPAddress("192.168.0.1")
Debug.Print IsIPAddress("61.135.131.180")
Debug.Print IsIPAddress("255.255.255.255")
Debug.Print IsIPAddress("999.999.999.999")
Debug.Print IsIPAddress("abcefg")
End Sub

Private Function IsIPAddress(ByVal strAddress As String) As Boolean
If inet_addr(strAddress) <> INADDR_NONE Then
IsIPAddress = True
Else
IsIPAddress = False
End If
End Function