Public Class HostConfig
    Public Ischeck As Boolean =False 
    Public LoadIP As String
    Public IPType As String
    Public IPMask As String     '掩码
    Public IPGateway As String  '网关
    Public IPDNS As String
    Public Port As String
    Public Remark As String     '备注
    Public ServerIP As String
    Public ServerPort As String


    Public Function IFNetworkFormat(ByRef attribute As String, val As String) As Boolean

        If String.IsNullOrEmpty(val) Then Return False
        Dim buff() As String = val.Trim.Split(".")
        If buff.Length <> 4 Then Return False
        For Each index In buff
            If Not IsNumeric(index) Then Return False
            If index < 0 OrElse index > 255 Then Return False
        Next
        attribute = val.Trim
        Return True
    End Function

    Public Function IFPortisNumber(ByRef attribute As String, val As String) As Boolean
        If String.IsNullOrEmpty(val) Then Return False
        If Not IsNumeric(val.Trim) Then Return False
        If CInt（val.Trim） < 0 OrElse CInt（val.Trim） > 65535 Then Return False
        attribute = val
        Return True
    End Function

End Class