WLAN/Lan Verbindung trennen, und wieder herstellen

TheGameSiders · 4. Februar 2013, 22:03

Hi.

Ich suche seit längerem eine elegante Lösung, wie ich meine Verbindung (Egal ob LAN oder WLAN) neustarten kann.

Gefunden habe ich das:

VB.NET-Quellcode

Shell("ipconfig /release")

Sah auch ganz gut aus, aber

1. Geht das nur bei WLAN (Freunde testeten) und nicht bei LAN
2. Verbindet sich das Netz nicht. In meinem Fall steht in meinem WLAN Programm: IP-Adresse wird bezogen..
Und man muss es manuell starten.

Gibt es eine bessere Lösung?

So das es für LAN und WLAN geht, und es sich richtig verbindet.

Geht das?

Danke

Mfg. TGS

EDIT: Mit dem WLAN hats sich geklärt, aber mit LAN weiss ich noch nicht!

TVX · 5. Februar 2013, 09:41

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

Pfad - Systemsteuerung\Netzwerk und Internet\Netzwerk- und Freigabecenter - öffnen
und den Namen des Netzwerks ablesen welches du schalten willst und in Code setzen !

Beispiel : LAN-Verbindung - oder - Hamachi - usw....

Dann kannst du es an (( ENABLE )) und aus (( DISABLED )) schalten !
LG Andre

ThuCommix · 5. Februar 2013, 13:59

Shell ist veraltet:

VB.NET-Quellcode

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

TheGameSiders · 5. Februar 2013, 16:24

Ich weiss, dass Shell veraltet ist, aber es tut seinen Job, und mehr als das tut das Programm ja auch nicht.

Auf jeden Fall danke Andre.
Nur den Code hatte ich schon.

Das Problem dabei ist, dass man den Namen kennen muss.

Und da das Tool für viele ist, und recht einfach sein sollte (Hotkeybasierend, mehr nicht)
wäre es besser, wenn es automatisch alle Verbindungen neustarten würde, damit man den Netzweknamen nicht eingeben muss.
Denn manche schaffen es nicht den rauszufinden, und bei XP und Windows 7 siehts ja auch wieder anders aus für die Leute..

Also gehts automatisch irgendwie, wie bei WLAN oder muss ich den Code wohl oder übel nehmen, und die Leute den Namen selber eingeben lassen?

Danke

Mfg. TGS

SpaceyX · 5. Februar 2013, 16:27

Das Ganze hat besimmt wieder was mit diesem Cheat zu tun, auf dessen Name ich grad nicht komme. Da hatten wir vor kurzem mal nen Thread dazu. Wozu sonst sollte man so etwas machen?

lag switch

TheGameSiders · 5. Februar 2013, 17:00

Das ist für ein Spiel und das heisst Modern Tapping, diese Art von Programm.
Nicht illegal oder sowas und es geht ja, nur halt nicht mit LAN ohne den Namen einzugeben..

TVX · 5. Februar 2013, 20:02

Damit kannst du alle adapter auslesen

VB.NET-Quellcode

Imports System.Net.NetworkInformation
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
' 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

Nur en Button + ne ListBox

zum meispiel das alle in der listbox selecktierten aus oder an gehen ,,oder so :wacko:

TheGameSiders · 5. Februar 2013, 20:07

Hi.

Erstmal danke.

Leider hats weder bei LAN noch bei WLAN geklappt.

Habs so gemacht:

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

Einen Fehler sehe ich nicht, und wenn ich den Namen der Verbindung eingebe, gehts auch nicht.
Nur bei Hamachi gehts irgendwie.

Hoffe auf Hilfe

Mfg. TGS

ThuCommix · 5. Februar 2013, 20:08

ListBox1.SelectedItem muss hier nicht eh noch ein ToString dahinter?

TheGameSiders · 5. Februar 2013, 20:34

Habs getestet, und es geht immernoch nicht...

BTW:
Wo kann ich deaktivierte Verbindungen wieder aktivieren bei Windows 7?

Myrax · 5. Februar 2013, 20:35

In den Adaptereinstellungen.

TVX · 5. Februar 2013, 21:53

Na ja aber ich würde vieleicht beim deaktievieren über die Namen bleiben

Karten über die ID abzuschalten erfordert meist um sie wieder in gang zu griegen einen Neustart ! :huh:

EDIT

DU BRAUCHST ADMIN RECHTE !

SAR-71 · 5. Februar 2013, 22:02

TheGameSiders schrieb:

1. Geht das nur bei WLAN (Freunde testeten) und nicht bei LAN

Klar geht das für LAN.
Man kann es auch in der Konsole ausprobieren:

"ipconfig /release" schließt alle aktive Netzwerkverbindungen (ausgenommen USB-Netzwerkgeräte)
"ipconfig /renew" stellt wieder eine Verbindung her.

Mein Rechner ist per LAN verkabelt und es klappt es alles wunderbar.

Mfg.
SAR

TVX · 6. Februar 2013, 10:24

Hey SAR-71 Treffer versenkt :thumbsup:

Habs gerade getestet hab LAN - TOP :thumbsup:

(( 3x Button + 1x TextBox für ipß Anzeige bei bedarf ))

VB.NET-Quellcode

Imports System.Net.Dns
Public Class Form1
Dim Merker As Integer = 0
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
TopMost = True ' Fenster immer im Fordergrund !
End Sub
'IP Adressen zum ansehen durchblättern .
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If Merker = 0 Then
On Error Resume Next
TextBox1.Text = GetHostEntry(GetHostName).AddressList.GetValue(0).ToString
ElseIf Merker = 1 Then
On Error Resume Next
TextBox1.Text = GetHostEntry(GetHostName).AddressList.GetValue(1).ToString
ElseIf Merker = 2 Then
On Error Resume Next
TextBox1.Text = GetHostEntry(GetHostName).AddressList.GetValue(2).ToString
ElseIf Merker = 3 Then
On Error Resume Next
TextBox1.Text = GetHostEntry(GetHostName).AddressList.GetValue(3).ToString
ElseIf Merker = 4 Then
On Error Resume Next
TextBox1.Text = GetHostEntry(GetHostName).AddressList.GetValue(4).ToString
ElseIf Merker = 5 Then
End If
Merker += 1
If Merker = 5 Then Merker = 0
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Try
Shell("ipconfig /release") 'Trennen
Catch ex As Exception
End Try
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Try
Shell("ipconfig /renew") 'herstellen
Catch ex As Exception
End Try
End Sub
'WURDE UNTER WIN 7 ERFOLGREICH GETESTET !
End Class

Link mit fertiger Projekt Mappe - VB 2012:

Netzwerk Schalter v2.rar

www71.zippyshare.com/v/30542473/file.html

LG Andre :thumbsup:

TheGameSiders · 6. Februar 2013, 13:48

Hi.

Danke, dass ihr immer den selben Code anders verpackt postet

Naja aber bei einem Freund der LAN hat, geht nichtmal das mit CMD direkt.
Er bleibt einfach online.

Wodran kann das liegen?

Und immernoch: Auch ich mit WLAN kann es nicht deaktivieren mit dem 1. Code von Andre, obwohl ich ihn in der Listbox ausgewählt habe..

Mfg. TGS

ThuCommix · 6. Februar 2013, 13:57

Wenn es bei deinen Freund nichtmal mit der CMD geht, wie sollen wir dir dann helfen ..?

TheGameSiders · 6. Februar 2013, 14:37

Ja ich dachte halt, dass es bei keinem LAN geht, weil ich nur ihn habe zum testen.

Kann jemand mal testen ob mein Tool geht, der LAN hat?

F11 zum trennen, F12 zum verbinden.

Wäre sehr dankbar!

Mfg. TGS

TVX · 6. Februar 2013, 14:50

Hab ihn getestet -der geht nicht -aber ich weis auch warum -- zumindest in dieser art und weise !

Bestimmte Arten von cmd Dateien brauchen bestimmte rechte die offenbar nur schwer zu simulieren sind Admin bei cmd nicht gleich Admin

Ich hatte auch versucht die Cmd aufzurufen hatte selbes Problem -- versuch mal meins !

Ich bin mir da ganz sicher wenn dann ohne Cmd ! ( Ich hatte in der Richtung schon meinen Spaß mit cmd)

TheGameSiders · 6. Februar 2013, 15:00

Hab den Shell Befehl halt ausführen lassen..

Bei mir gehts ja, aber hab ja WLAN.

Habe deinen Code verwendet übrigens!

TVX · 6. Februar 2013, 15:11

SO DAS GEHT NUN AUCH :thumbsup:

VB.NET-Quellcode

Option Strict On
Imports System.IO
Imports System.Net.NetworkInformation
Public Class Form1
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)
End If
End With
Next
End Sub
Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
End Sub
'Selecktedt Auswahl mit rechter Maustaste aufheben
Private Sub FileListBox1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDown
If e.Button = Windows.Forms.MouseButtons.Right Then
ListBox1.SelectedIndex = ListBox.NoMatches
End If
End Sub
'Trennen !
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
Process.Start("netsh", "interface set interface " & ListBox1.SelectedItem.ToString & " DISABLED")
End Sub
'Verbinden
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Process.Start("netsh", "interface set interface " & ListBox1.SelectedItem.ToString & " ENABLE")
End Sub
'Multiselect für ListBox off !
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Me.ListBox1.SelectionMode = SelectionMode.MultiExtended
End Sub
'Multiselect für ListBox on !
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Me.ListBox1.SelectionMode = SelectionMode.MultiSimple
End Sub
'Listbox1 Speichern
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
System.IO.Directory.CreateDirectory("C:\Netzwerkadapter_Liste")
On Error Resume Next
Dim fs As New FileStream("C:\Netzwerkadapter_Liste" & "\" & "Liste.cfg", FileMode.Append)
Dim sw As New StreamWriter(fs)
For Each item As String In ListBox1.Items
sw.WriteLine(item)
Next
sw.Close()
End Sub
'Speicher in Listbox1 schreiben
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
Dim Pfad As String = "C:\Netzwerkadapter_Liste\Liste.cfg"
On Error Resume Next
ListBox1.Items.AddRange(IO.File.ReadAllLines(Pfad))
End Sub
End Class

LG Andre...

WLAN/Lan Verbindung trennen, und wieder herstellen

WLAN/Lan Verbindung trennen, und wieder herstellen

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

TheGameSiders schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

5 Benutzer haben hier geschrieben