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

太神奇了，这段代码我尽然能看懂，哈哈{:face (280):}

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 = 4 Then
      For $i = 1 To $IP_array
         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

学习了，正好使用
页: 1 [2]
查看完整版本: 检测输入的IP是否合法