最近突然想写个工具集合，包含了IP的设置，查了资料自己写了个IP格式判断的
Func PDGS($value)
        $IP=StringSplit($value,".")
        If $IP[0]=4 Then         
                For $i=1 to 4
                        $csz=$IP[$i]
                        $bdz="^\d{1,3}$"
                        $aReturn = StringRegExp($csz,$bdz, 3)
                        If Not IsArray($aReturn) Then
                                MsgBox(64,"警告",$value & " 中的 " & $csz & " 不是有效IP地址范围！")
                                Return False                                                       
                        Else
                                If $csz > 255 Then                                       
                                        MsgBox(64,"警告",$value & " 中的 " & $csz & " IP数值超出！")
                                        Return False                                               
                                EndIf
                        EndIf ;====>Not IsArray
                Next
                Return True
        Else
                MsgBox(64,"警告",$value & " IP地址格式错误！")       
                Return False
        EndIf
EndFunc