IP計算(遞增)計算程式

f66666602

'**************************************
' Name: Add One to an IP Address. 127.0.
'     0.1 --> 127.0.0.2
' Description:This function will take an
'     IP address and add 1 to it. Say you send
'     127.0.0.1, it will return 127.0.0.2. Its
'     nice because if one of the ranges has a
'     255 in it (the biggest number an IP rang
'     e can have) it will automatically add 1
'     to the next range and make the origonal
'     one back to 0 again. i guess it could be
'     good for an ip range scanner or somthing
'     .
' By: Steve Sellers
'
' Inputs:you call it by putting AddOne("
'     127.0.0.1") where 127.0.0.1 is the IP yo
'     u want to add 1 to.
'
' Returns:The function AddOne returns a
'     string, so u need a variable or controll
'     to recieve the returned value. (string)
'
' Assumes:text1 = AddOne("127.0.0.1")
'
' Side Effects:if you try and add one to
'     a ip that isnt real if will give u error
'     s
'
'This code is copyrighted and has' limited warranties.Please see http://w
'     ww.Planet-Source-Code.com/vb/scripts/Sho
'     wCode.asp?txtCodeId=46824&lngWId=1'for details.'**************************************

Public Function AddOne(IP As String) As String
    Dim A As Long, B As Long, C As Long, D As Long
    Dim A1 As Long, B1 As Long, C1 As Long
    A1 = InStr(1, IP, ".")
    A = Mid(IP, 1, A1)
    IP = Mid(IP, A1 + 1, Len(IP) - A1)
    B1 = InStr(1, IP, ".")
    B = Mid(IP, 1, B1)
    IP = Mid(IP, B1 + 1, Len(IP) - B1)
    C1 = InStr(1, IP, ".")
    C = Mid(IP, 1, C1)
    IP = Mid(IP, C1 + 1, Len(IP) - C1)
    D = IP

    If D >= 255 Then

        If C >= 255 Then

            If B >= 255 Then

                If A >= 255 Then
                    'MsgBox "Unreal IP address"
                Else
                    A = A + 1
                End If
                B = 0
            Else
                B = B + 1
            End If
            C = 0
        Else
            C = C + 1
        End If
        D = 0
    Else
        D = D + 1
    End If
    AddOne = A & "." & B & "." & C & "." & D
End Function


Other 1 submission(s) by this author


Report Bad Submission
Use this form to notify us if this entry should be deleted (i.e contains no code, is a virus, etc.).
Reason:
Your Vote!
What do you think of this code(in the Beginner category)?
(The code with your highest vote will win this month's coding contest!)
Excellent  Good  Average  Below Average  Poor
See Voting Log
Other User Comments
7/11/2003 7:08:50 PM:Steve Sellers
Im awsome
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:

7/11/2003 8:16:24 PM:Coding Genius
you can split them into their seperate
parts much easier. Example:
A =
Split(TheIP,''.'')(0)
B =
Split(TheIP,''.'')(1)
-or-
Arr =
Split(TheIP,''.'')
A = Arr(0)
B =
Arr(1)
Also, the very last line can
be coded cleaner with the JOIN function.
Keep the Planet clean! If this comment was disrespectful, please report it:
Reason: