36 lines
1.2 KiB
VB.net
36 lines
1.2 KiB
VB.net
|
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
|