一个IP库地址转化算法

 

Function ChangeIp(strIP)
   On Error Resume Next
   Dim intIp, arrIp
   arrIp = Split(strIP,".")
   intIp=0
   If UBound(arrIp )<>3 Then
      ChangeIp=0
      Exit Function
   End If
   For i=0 To 3
       intIp=intIp+(CInt(arrIp (i))*(256^(3-i)))
   Next
   ChangeIp=intIp
   If Err Then ChangeIp=0
End Function