Netzwerk Trennen über ListBox auswahl ! HILFE !

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von TVX.

    Netzwerk Trennen über ListBox auswahl ! HILFE !

    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 !

    VB.NET-Quellcode

    1. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    3. Shell("netsh interface set interface Lan-Verbindung DISABLED")
    4. End Sub
    6. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    8. Shell("netsh interface set interface Lan-Verbindung ENABLE")
    10. 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 :

    VB.NET-Quellcode

    1. Shell("netsh interface set interface Lan-Verbindung DISABLED")


    SOLL ES NUN AUSSEHEN:

    VB.NET-Quellcode

    1. Shell("netsh interface set interface" + ListBox1.SelectedItem + " ENABLE")




    UND DAS IST NUN DAS GANZE KONSTRUKT :

    VB.NET-Quellcode

    1. Imports System.Net.NetworkInformation
    2. Public Class Form1
    5. Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
    6. Shell("netsh interface set interface" + ListBox1.SelectedItem + " DISABLED")
    7. End Sub
    9. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    10. ' NetzwerkInterface-Objekt
    11. Dim oInterface As NetworkInterface
    13. ' ListBox-Inhalt löschen
    14. ListBox1.Items.Clear()
    16. ' alle verfügbaten Netzwerk-Interfaces durchlaufen
    17. For Each oInterface In NetworkInterface.GetAllNetworkInterfaces()
    18. With oInterface
    19. ' nur wenn es sich um kein LoopBack/Tunnel-Interface handelt...
    20. If .NetworkInterfaceType <> NetworkInterfaceType.Loopback AndAlso .NetworkInterfaceType <> NetworkInterfaceType.Tunnel Then
    22. ' Name der Netzwerkverbindung, Status und MAC-Adresse
    23. ' in die ListBox schreiben
    24. ListBox1.Items.Add(.Name.ToString)
    25. End If
    26. End With
    27. Next
    28. End Sub
    30. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    31. Shell("netsh interface set interface" + ListBox1.SelectedItem + " ENABLE")
    32. End Sub
    33. End Class


    ?( ?( ?( Warum geht das nicht ?( ?( ?(

    Admin Rechte wurden berücksichtigt :!:


    Vielen Dank im Voraus :!:
    LG Andre..

    Ausgehend von dem Beispiel weiter oben:

    ALSO STATT SO :
    Visual Basic Quellcode
    1
    Shell("netsh interface set interface Lan-Verbindung DISABLED")
    SOLL ES NUN AUSSEHEN:
    Visual Basic Quellcode
    1
    Shell("netsh interface set interface" + ListBox1.SelectedItem + " ENABLE")


    davon kann ich nur eines sagen. Das unten wird nie das oben ergeben, da nach "interface" ein Leerraum fehlt -> "interface ". Ob dies nun der Fehler ist kann ich dir nicht sagen. Aber wenn es den Leerraum braucht möglicherweise schon. Außerdem in C# werden Strings durch + verknüpft. In VB nicht -> '&'.

    Ach ja wichtig:
    Egal welche Idioten dir sagen, dass du Shell verwenden sollst... glaubs nicht. Shell kommt ausm letzen Jahrhundert und ist mehr als veraltet. Heute wurden die ganzen alten Dinge abgelöst. In diesem Fall durch die Process Klasse. In der Kurzform kannst du "Shell" einfach durch Process.Start ersetzen und hinten die nötigen Argumente angeben. Dies entspricht der heutigen Zeit und ist auch wesentlich Flexibler als Shell...
    In deinem Fall müsste wenn mich nicht alles täuscht dies z.b. so funktionieren

    VB.NET-Quellcode

    1. Process.Start("netsh", "interface set interface Lan-Verbindung ENABLE")


    Opensource Audio-Bibliothek auf github: KLICK, im Showroom oder auf NuGet.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „thefiloe“ ()

    So ihr lieben ich Danke euch vielmals - ! ES GEHT !

    Das mit dem ((Option Strict On )) hab ich mir grad mal gesucht und werds mir durchlesen !

    VB.NET-Quellcode

    1. Option Strict On
    2. Imports System.Net.NetworkInformation
    3. Public Class Form1
    10. Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
    12. Process.Start("netsh", "interface set interface " & ListBox1.SelectedItem.ToString & " ENABLE")
    15. End Sub
    17. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    18. ' NetzwerkInterface-Objekt
    19. Dim oInterface As NetworkInterface
    21. ' ListBox-Inhalt löschen
    22. ListBox1.Items.Clear()
    24. ' alle verfügbaten Netzwerk-Interfaces durchlaufen
    25. For Each oInterface In NetworkInterface.GetAllNetworkInterfaces()
    26. With oInterface
    27. ' nur wenn es sich um kein LoopBack/Tunnel-Interface handelt...
    28. If .NetworkInterfaceType <> NetworkInterfaceType.Loopback AndAlso .NetworkInterfaceType <> NetworkInterfaceType.Tunnel Then
    30. ' Name der Netzwerkverbindung, Status und MAC-Adresse
    31. ' in die ListBox schreiben
    32. ListBox1.Items.Add(.Name)
    33. End If
    34. End With
    35. Next
    36. End Sub
    38. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    40. Process.Start("netsh", "interface set interface " & ListBox1.SelectedItem.ToString & " DISABLED")
    43. End Sub
    45. Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
    47. End Sub
    48. End Class


    LG Andre..

Facebook
Telefonspende