验证IP合法性
方法一:
Function IsValidIPAddress(ByVal strIPAddress As String) As Boolean
On Error GoTo Handler
Dim varAddress As Variant
Dim n As Long
Dim lCount As Long
varAddress = Split(strIPAddress, ".", , vbTextCompare)
If IsArray(varAddress) Then
For n = LBound(varAddress) To UBound(varAddress)
lCount = lCount + 1
varAddress(n) = CByte(varAddress(n))
Next
IsValidIPAddress = (lCount = 4)
End If
Handler:
End Function
Access软件网交流QQ群(群号:198465573) |