初始化项目

BLV_Studio/Test/NetworkHelp.vb

@@ -0,0 +1,49 @@
+Imports System.Collections.Generic
+Imports System.ComponentModel
+Imports System.Data
+Imports System.Drawing
+Imports System.Linq
+Imports System.Text
+Imports System.Threading.Tasks
+Imports System.Windows.Forms
+Imports System.Management
+
+Public Class NetworkHelp
+
+
+    Public Shared Sub SetNetworkAdapter()
+        Dim inPar As ManagementBaseObject = Nothing
+        Dim outPar As ManagementBaseObject = Nothing
+        Dim mc As ManagementClass = New ManagementClass("Win32_NetworkAdapterConfiguration")
+        Dim moc As ManagementObjectCollection = mc.GetInstances()
+
+        For Each mo As ManagementObject In moc
+            If Not CBool(mo("IPEnabled")) Then Continue For
+            inPar = mo.GetMethodParameters("EnableStatic")
+            inPar("IPAddress") = New String() {"192.168.1.10"}
+            inPar("SubnetMask") = New String() {"255.255.0.0"}
+            outPar = mo.InvokeMethod("EnableStatic", inPar, Nothing)
+            inPar = mo.GetMethodParameters("SetGateways")
+            inPar("DefaultIPGateway") = New String() {"172.17.123.254"}
+            outPar = mo.InvokeMethod("SetGateways", inPar, Nothing)
+            inPar = mo.GetMethodParameters("SetDNSServerSearchOrder")
+            inPar("DNSServerSearchOrder") = New String() {"114.114.114.114", "202.97.224.69"}
+            outPar = mo.InvokeMethod("SetDNSServerSearchOrder", inPar, Nothing)
+            Exit For
+        Next
+    End Sub
+    Public Shared Sub button2_Click()
+        Dim mc As ManagementClass = New ManagementClass("Win32_NetworkAdapterConfiguration")
+        Dim moc As ManagementObjectCollection = mc.GetInstances()
+
+        For Each mo As ManagementObject In moc
+            If Not CBool(mo("IPEnabled")) Then Continue For
+            mo.InvokeMethod("SetDNSServerSearchOrder", Nothing)
+            mo.InvokeMethod("EnableStatic", Nothing)
+            mo.InvokeMethod("SetGateways", Nothing)
+            mo.InvokeMethod("EnableDHCP", Nothing)
+            Exit For
+        Next
+    End Sub
+
+End Class