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
|