IP判断是哪一段~！（已解决）
本帖最后由 天空中的鸟人 于 2012-5-16 17:03 编辑Case $Button5
$ip = StringSplit(GUICtrlRead($Input1), '.')
If $ip <> 4 Then
MsgBox(0, "提示", "请输入一个标准的IP地址! ")
Else
Switch $ip
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
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 为Vlan1
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.-255vlan 10
如此下去，就是说前面三位是我指定的IP，然后再判断第4位 1-129为一段VLAN130-255又为一段vlan 我想知道你的情况是不是一条vlan一个网关？ 我想知道你的情况是不是一条vlan一个网关？ 回复 1# 天空中的鸟人
昨晚在"网管联盟"逛, 半天没见有人给你回复, 所以给你作了一点回复,想让你得到一点启发.
但没想, 你还没解决问题啊, 应该是你对判断语句的掌握还是太生疏了!
这里给你完整的判断吧, 省得你又继续问的问, 但希望你自己要好好消化才是, 这毕竟是最基础的东西来的.
$ip = StringSplit(GUICtrlRead($Input1), '.')
If $ip <> 4 Then
MsgBox(0, "提示", "请输入一个标准的IP地址! ")
Else
Switch $ip
Case 1 To 128
If $ip = 59 And $ip = 34 And $ip = 197 Then
MsgBox(0, "提示 1", "vlan1")
ElseIf $ip = 121 And $ip = 10 And $ip = 119 Then
MsgBox(0, "提示 3", "vlan3")
ElseIf $ip = 192 And $ip = 168 And $ip = 100 Then
MsgBox(0, "提示 5", "vlan5")
Else
MsgBox(0, "提示 3", "查找不到Vlan")
EndIf
Case 130 To 255
If $ip = 59 And $ip = 34 And $ip = 197 Then
MsgBox(0, "提示 1", "vlan2")
ElseIf $ip = 121 And $ip = 10 And $ip = 119 Then
MsgBox(0, "提示 4", "vlan4")
ElseIf $ip = 192 And $ip = 168 And $ip = 100 Then
MsgBox(0, "提示", "vlan")
Else
MsgBox(0, "提示 3", "查找不到Vlan")
EndIf
EndSwitch
EndIf 猿粪啊，太高兴了，谢谢，写的第一个东西，{:face (319):}~！！~
页:
[1]