初始化项目

BLV_Studio/Control/HostConfig.vb

@@ -0,0 +1,35 @@
+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