检测输入的IP是否合法

小菜kks · 发表于 2010-8-23 20:49:47

太神奇了，这段代码我尽然能看懂，哈哈

yao1377 · 发表于 2010-8-26 15:42:30

非常感谢。学习了
_GUICtrlIpAddress_Create

liufenglg · 发表于 2010-8-26 16:09:53

好多都还看不懂啊

liufenglg · 发表于 2010-8-26 16:09:59

Dim $reIP
$inputIP = InputBox("请输入IP", "请输入有效的IP地址", "")

CheckIP($inputIP)

If $reIP =1 Then
MsgBox(0,"结果", $inputIP & "是一个有效的IP地址！")
Else
MsgBox(0,"结果", $inputIP & "不是一个有效的IP地址！")
EndIf

Func CheckIP($IP)
$IP_array=StringSplit($IP, ".",1)
If Not @error And $IP_array[0] = 4 Then
      For $i = 1 To $IP_array[0]
         If StringIsInt($IP_array[$i]) = 0 Or $IP_array[$i] < 0 Or $IP_array[$i] > 255 Then
            $reIP=0
            ExitLoop
         Else
            $reIP=1
         EndIf
   Next
Else
   $reIP=0
EndIf
Return $reIP
EndFunc

lsqyx528 · 发表于 2010-8-26 16:30:30

回复 1# yEn

你这个也太复杂了吧！！

lsqyx528 · 发表于 2010-8-26 16:31:26

回复 7# afan

顶这个，这个多好啊！！

dragon0000 · 发表于 2011-6-26 16:42:25

谢谢楼主分享！！！

leon460 · 发表于 2011-7-21 13:38:10

学习了，正好使用

		自动登录	找回密码
密码			加入

[原创] 检测输入的IP是否合法

浏览过的版块