IP判断是哪一段~！（已解决）

天空中的鸟人

Case $Button5       
        $ip = StringSplit(GUICtrlRead($Input1), '.')
        If $ip[0] <> 4 Then
        MsgBox(0, "提示", "请输入一个标准的IP地址! ")
        Else
        Switch $ip[4]
                Case 1 To 127
                Switch $ip
                Case 59
                MsgBox(0, "提示 1", "vlan1")
                Case 121
                MsgBox(0, "提示 3", "vlan3")
                Case 192
                MsgBox(0, "提示 5", "vlan5")
                EndSwitch
                Case 130 To 255
                Switch $ip[1]
                Case 59
                MsgBox(0, "提示 2", "vlan2")
                Case 121
        MsgBox(0, "提示 4", "vlan4")
                Case 192
        MsgBox(0, "提示", "vlan")
        EndSwitch
                Case Else
                MsgBox(0, "提示 3", "查找不到Vlan")
        EndSwitch

EndIf


        EndSwitch
===========
想判断IP段数。
比如192.168.1.1-129 为Vlan  1
     192.168.1.130-255 为vlan 2
     192.168.2.1-129 为 VLAN 3
     192.168.2.130-255  为VLAN 4
     121.10.107.1-129  为VLAN 5
     121.10.107.130-255 VLAN 6
      113.107.107.1-129 为VLAN7
     113.107.107.130.-255 为VLAN8
59.34.197. 1-129  为vlan 9
    59.34.197.13.-255  vlan 10
如此下去，就是说前面三位是我指定的IP，然后再判断第4位   1-129为一段VLAN  130-255又为一段vlan

502762378

我想知道你的情况是不是一条vlan一个网关？

502762378

我想知道你的情况是不是一条vlan一个网关？

user3000

回复 1# 天空中的鸟人
昨晚在"网管联盟"逛, 半天没见有人给你回复, 所以给你作了一点回复,  想让你得到一点启发.
但没想, 你还没解决问题啊, 应该是你对判断语句的掌握还是太生疏了!
这里给你完整的判断吧, 省得你又继续问的问, 但希望你自己要好好消化才是, 这毕竟是最基础的东西来的.

    $ip = StringSplit(GUICtrlRead($Input1), '.')
If $ip[0] <> 4 Then
        MsgBox(0, "提示", "请输入一个标准的IP地址! ")
Else
        Switch $ip[4]
                Case 1 To 128
                        If $ip[1] = 59 And $ip[2] = 34 And $ip[3] = 197 Then
                                MsgBox(0, "提示 1", "vlan1")
                        ElseIf $ip[1] = 121 And $ip[2] = 10 And $ip[3] = 119 Then
                                MsgBox(0, "提示 3", "vlan3")
                        ElseIf $ip[1] = 192 And $ip[2] = 168 And $ip[3] = 100 Then
                                MsgBox(0, "提示 5", "vlan5")
                        Else
                                MsgBox(0, "提示 3", "查找不到Vlan")
                        EndIf
                Case 130 To 255
                        If $ip[1] = 59 And $ip[2] = 34 And $ip[3] = 197 Then
                                MsgBox(0, "提示 1", "vlan2")
                        ElseIf $ip[1] = 121 And $ip[2] = 10 And $ip[3] = 119 Then
                                MsgBox(0, "提示 4", "vlan4")
                        ElseIf $ip[1] = 192 And $ip[2] = 168 And $ip[3] = 100 Then
                                MsgBox(0, "提示", "vlan")
                        Else
                                MsgBox(0, "提示 3", "查找不到Vlan")
                        EndIf
        EndSwitch
EndIf

天空中的鸟人

猿粪啊，太高兴了，谢谢，写的第一个东西，~！！~