word vba 实现获取新的IP地址的方法

Question

比如 原IP地址是 192.168.1.255 +1  变成192.168.2.0  而不是192.168.1.256

Answer 1

vc 代码 是这样  //获取下一个IP地址,下一个IP地址相当于前一个增加AutoIncCnt
CString GetNextIPName(CString IP1str,int AutoIncCnt)
{
   CString retstr=IP1str;
   BYTE ip1=192,ip2=168,ip3=1,ip4=1;
   ParseIP(IP1str,ip1,ip2,ip3,ip4);
   DWORD nextip=0;
   nextip=nextip*256+ip1;
   nextip=nextip*256+ip2;
   nextip=nextip*256+ip3;
   nextip=nextip*256+ip4;
   nextip=nextip+AutoIncCnt;
   retstr.Format("%d.%d.%d.%d",BYTE(nextip/256/256/256),BYTE(nextip/256/256%256),BYTE(nextip/256%256),BYTE(nextip%256));
   return retstr;
}

Answer 2

楼主试下这个：
Function GetNextIPName(IP1str As String, ByVal AutoIncCnt As Long) As String
   Dim aIPdn(3) As Long, aIPds() As String
   Dim i&, V&, C&, sR$
   aIPds = Split(IP1str, ".")
   For i = 0 To 3: aIPdn(i) = aIPds(i): Next
   C = 0
   For i = 3 To 0 Step -1
      V = C + aIPdn(i) + (AutoIncCnt And 255)
      aIPdn(i) = V And 255
      AutoIncCnt = AutoIncCnt \ 256
      C = V \ 256
      If ((C Or AutoIncCnt) = 0) Then Exit For
   Next
   sR = aIPdn(0)
   For i = 1 To 3: sR = sR & "." & aIPdn(i): Next
   GetNextIPName = sR
End Function

Answer 3

简化一下：
Function GetNextIPName(IP1str As String, ByVal AutoIncCnt As Long) As String
   Dim aIPdn(3) As Long, aIPds() As String
   Dim i&, V&, C&, sR$
   aIPds = Split(IP1str, ".")
   For i = 0 To 3: aIPdn(i) = aIPds(i): Next
   C = 0: sR = ""
   For i = 3 To 0 Step -1
      V = C + aIPdn(i) + (AutoIncCnt And 255)
      AutoIncCnt = AutoIncCnt \ 256
      sR = "." & (V And 255) & sR
      C = V \ 256
   Next
   GetNextIPName = Mid$(sR, 2)
End Function