找回密码
 加入
搜索
楼主: yEn

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

 火... [复制链接]
发表于 2010-8-23 20:49:47 | 显示全部楼层
太神奇了,这段代码我尽然能看懂,哈哈
发表于 2010-8-26 15:42:30 | 显示全部楼层
非常感谢。学习了
_GUICtrlIpAddress_Create
发表于 2010-8-26 16:09:53 | 显示全部楼层
好多都还看不懂啊
发表于 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
发表于 2010-8-26 16:30:30 | 显示全部楼层
回复 1# yEn


    你这个也太复杂了吧!!
发表于 2010-8-26 16:31:26 | 显示全部楼层
回复 7# afan


    顶这个,这个多好啊!!
发表于 2011-6-26 16:42:25 | 显示全部楼层
谢谢楼主分享!!!
发表于 2011-7-21 13:38:10 | 显示全部楼层
学习了,正好使用
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-12-23 09:06 , Processed in 0.068174 second(s), 15 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表