Hallo liebe Programmiergemeinde,
ich habe in meinem System mehrere LAN-Adapter (LAN-Verbindung 1, LAN-Verbindung 2, LAN-Verbindung 3).
Nun möchte ich dies durch ein kleines Programm mit mehreren Buttons aktivieren bzw. deaktivieren (ich bin noch neu im Programmieren, also steinigt mich bitte nicht gleich )
Hierfür habe ich schon gegoogelt und auch ein Code in C gefunden. Mit C kenne ich mich jedoch nicht aus und habe es versucht in VB (Ich benutze Visual-Studio) zuschreiben.
Der Original-Code in C sieht wie folgt aus :
Mein Code in VB sieht so aus
Nun versteh ich nicht so ganz, warum mir 6 Typen (SelectQuery, ManagementObjectSearcher, ...) als nicht deklariert angezeigt werden!? Könntet ihr mir bitte weiterhelfen?
ich habe in meinem System mehrere LAN-Adapter (LAN-Verbindung 1, LAN-Verbindung 2, LAN-Verbindung 3).
Nun möchte ich dies durch ein kleines Programm mit mehreren Buttons aktivieren bzw. deaktivieren (ich bin noch neu im Programmieren, also steinigt mich bitte nicht gleich )
Hierfür habe ich schon gegoogelt und auch ein Code in C gefunden. Mit C kenne ich mich jedoch nicht aus und habe es versucht in VB (Ich benutze Visual-Studio) zuschreiben.
Der Original-Code in C sieht wie folgt aus :
C#-Quellcode
- SelectQuery query = new SelectQuery("Win32_NetworkAdapter","NetConnectionStatus=2");
- 2ManagementObjectSearcher search = new ManagementObjectSearcher(query);
- 3foreach(ManagementObject result in search.Get())
- 4{
- 5 NetworkAdapter adapter = new NetworkAdapter(result);
- 6
- 7 // Identify the adapter you wish to disable here.
- 8 // In particular, check the AdapterType and
- 9 // Description properties.
- 10
- 11 // Here, we're selecting the LAN adapters.
- 12 if (adapter.AdapterType.Equals("Ethernet 802.3"))
- 13 {
- 14 adapter.Disable();
- 15 }
- 16}
-
Mein Code in VB sieht so aus
VB.NET-Quellcode
-
- Option Explicit On
- Option Strict On
- Imports System
- Imports System.Net.NetworkInformation
- Imports System.Management
- Public Class Form1
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- End Sub
- Private Sub LAN1deakt_Click(sender As Object, e As EventArgs) Handles LAN1deakt.Click
- Dim query As New SelectQuery("Win32_NetworkAdapter", "NetConnectionStatus=2")
- Dim search As New ManagementObjectSearcher(query)
- For Each result As ManagementObject In search.[Get]()
- Dim adapter As New NetworkAdapter(result)
- If adapter.AdapterType.Equals("LAN-Verbindung 1") Then
- adapter.Disable()
- End If
- Next
- End Sub
- Private Sub LAN1aktiv_Click(sender As Object, e As EventArgs) Handles LAN1aktiv.Click
- Dim query As New SelectQuery("Win32_NetworkAdapter", "NetConnectionStatus=2")
- Dim search As New ManagementObjectSearcher(query)
- For Each result As ManagementObject In search.[Get]()
- Dim adapter As New NetworkAdapter(result)
- If adapter.AdapterType.Equals("LAN-Verbindung 1") Then
- adapter.Enabled()
- End If
- Next
- End Sub
- End Class
Nun versteh ich nicht so ganz, warum mir 6 Typen (SelectQuery, ManagementObjectSearcher, ...) als nicht deklariert angezeigt werden!? Könntet ihr mir bitte weiterhelfen?