一个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

>>阅读原文<<