Hallo miteinander ich habe ein etwas schlichtes Problem dessen Antwort mich aber sehr interessiert !
Und zwar schalt ich ein Netzwerk Adapter Mit folgendem Code ein und aus !
OK DAS GEHT AUCH WUNDERBAR !
Nun soll er aber den Name der Verbindung über eine Listbox zugeführt werden (( und dann geht nichts mehr ))
ALSO STATT SO :
SOLL ES NUN AUSSEHEN:
UND DAS IST NUN DAS GANZE KONSTRUKT :
Warum geht das nicht
Admin Rechte wurden berücksichtigt
Vielen Dank im Voraus
LG Andre..
Und zwar schalt ich ein Netzwerk Adapter Mit folgendem Code ein und aus !
VB.NET-Quellcode
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- Shell("netsh interface set interface Lan-Verbindung DISABLED")
- End Sub
- Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
- Shell("netsh interface set interface Lan-Verbindung ENABLE")
- End Sub
OK DAS GEHT AUCH WUNDERBAR !
Nun soll er aber den Name der Verbindung über eine Listbox zugeführt werden (( und dann geht nichts mehr ))
ALSO STATT SO :
SOLL ES NUN AUSSEHEN:
UND DAS IST NUN DAS GANZE KONSTRUKT :
VB.NET-Quellcode
- Imports System.Net.NetworkInformation
- Public Class Form1
- Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
- Shell("netsh interface set interface" + ListBox1.SelectedItem + " DISABLED")
- End Sub
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- ' NetzwerkInterface-Objekt
- Dim oInterface As NetworkInterface
- ' ListBox-Inhalt löschen
- ListBox1.Items.Clear()
- ' alle verfügbaten Netzwerk-Interfaces durchlaufen
- For Each oInterface In NetworkInterface.GetAllNetworkInterfaces()
- With oInterface
- ' nur wenn es sich um kein LoopBack/Tunnel-Interface handelt...
- If .NetworkInterfaceType <> NetworkInterfaceType.Loopback AndAlso .NetworkInterfaceType <> NetworkInterfaceType.Tunnel Then
- ' Name der Netzwerkverbindung, Status und MAC-Adresse
- ' in die ListBox schreiben
- ListBox1.Items.Add(.Name.ToString)
- End If
- End With
- Next
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- Shell("netsh interface set interface" + ListBox1.SelectedItem + " ENABLE")
- End Sub
- End Class
Warum geht das nicht
Admin Rechte wurden berücksichtigt
Vielen Dank im Voraus
LG Andre..