IP ändern
- VB.NET
Sie verwenden einen veralteten Browser (%browser%) mit Sicherheitsschwachstellen und können nicht alle Funktionen dieser Webseite nutzen.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von Dodo.
-
-
Habe ich dich jetzt richtig verstanden ?
Du willst ein Programm machen das die ip ändert?
Falls Ja,hatten wir glaube ich soetwas schoneinmal hier.
Edit:
Ich weiß nicht ob dir das weiterhilf aber guck es mal an :HierDieser Beitrag wurde bereits 1 mal editiert, zuletzt von „QB2VB“ ()
-
Via Telnet eine Verbindung zum Router herstellen und dann musst dir aus dem Netz das Reboot Script für dein Router heraussuchen und dieses sendest du dann in den Stream
google.de/search?q=fritzbox+reset+script -
-
Okay, weil neu bist noch ein paar Sichworte
TCPClient, NetworkStream
und schau dir mal dieses Tuorial an, da wird der TCPClient genutzt
[VB.NET] Ausführliches TCP und UDP Tutorial
Aber bedenke, das ist eben nicht mal eben so schnell durch paar Klicks, nichts verstehen und bischel Code kopieren getan. -
Ich hab eben ein Code auf der seite vb-magazin.de gefunden
VB.NET-Quellcode
- ' Projekt: Prüfung, ob FireWall läuft (mit WMI)
- ' Alle Dienste samt Status auslesen(mit WMI)
- ' Lokale IPs auslesen (mit WMI)
- ' WMI = Windows Management Instrumentation
- '
- ' Problem: http://vb-magazin.de/forums/forums/thread/15490.aspx
- '
- ' Autor: Peter_Punkt
- ' Version: 01 - 06.03.2008
- ' HINWEIS: Verweis notwendig auf: .NET: System.Management
- ' Anmerkung: Der FireWall-Dienst heißt unter Windows XP und Windows Server 2003 "SharedAccess".
- ' In Windows Vista heißt er "MpsSvc".
- '
- ' Das Service Pack 2 (SP2) für Windows XP enthält wesentliche Änderungen in der Komponente
- ' "Windows Firewall", die früher als "Internet Connection Firewall" (ICF) bezeichnet wurde.
- ' Realisiert wird der "Windows Firewall" durch den Dienst "Windows-Firewall/Gemeinsame Benutzung
- ' der Internetverbindung" (Dienstname 'SharedAccess' bzw. 'MpsSvc' unter Vista).
- Imports System.Management ' Wegen Windows Management Interface (WMI)
- Public Class Form1
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
- Handles Button1.Click
- ' HINWEIS: Der FireWall-Dienst heißt unter Windows XP und Windows Server 2003 "SharedAccess".
- ' In Windows Vista heißt er "MpsSvc".
- Const FirewallDienstName As String = "SharedAccess"
- Dim Dienste As New Management.ManagementObjectSearcher _
- ("SELECT * FROM Win32_Service")
- Dim Dienst As ManagementObject
- Dim SharedAccess As New Management.ManagementObjectSearcher _
- ("SELECT * FROM Win32_Service WHERE Name='" & FirewallDienstName _
- & "' AND State='Running'")
- Dim NetzwerkAdapter As New Management.ManagementObjectSearcher _
- ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=True")
- With ListBox1.Items
- .Clear()
- .Add("Anzahl Dienste = " & Dienste.Get.Count)
- .Add("----- " & "Verfügbare Dienste" & " -----")
- For Each Dienst In Dienste.Get()
- .Add(Dienst("DisplayName") & ": " & Dienst("Name") & " (" & Dienst("State") _
- & "/" & Dienst("Startmode") & ")")
- Next
- .Add(String.Empty)
- .Add("Anzahl Firewall-Dienste = " & SharedAccess.Get.Count)
- For Each Element As Management.ManagementObject In SharedAccess.Get()
- .Add("----- " & "Dienst Name = " & Element.Item("Name") & " -----")
- .Add("Dienst gestartet = " & Element.Item("Started").ToString)
- .Add("Dienst läuft = " & Element.Item("State"))
- Next
- .Add(String.Empty)
- .Add("Anzahl IP-Adressen = " & NetzwerkAdapter.Get.Count)
- For Each Adapter As Management.ManagementObject In NetzwerkAdapter.Get()
- .Add("**** Windows Index = " & Adapter.Item("Index") & " ****")
- .Add("Beschreibung = " & Adapter.Item("Description"))
- .Add("Physikalische MAC-Adresse = " & Adapter.Item("MACAddress"))
- .Add("DHCP Aktiviert = " & Adapter.Item("DHCPEnabled"))
- .Add("DHCP Server = " & Adapter.Item("DHCPServer"))
- .Add("IP-Adresse = " & Adapter.Item("IPAddress")(0))
- .Add("Subnetzmaske = " & Adapter.Item("IPSubnet")(0))
- .Add("Lease erhalten = " & UTCNachWochentagDatumZeit(Adapter.Item("DHCPLeaseObtained")))
- .Add("Lease läuft ab = " & UTCNachWochentagDatumZeit(Adapter.Item("DHCPLeaseExpires")))
- .Add("DNS Hostname = " & Adapter.Item("DNSHostName"))
- Next
- End With
- End Sub
- Private Function UTCNachWochentagDatumZeit(ByVal UTCString As String) As String
- Dim DatumZeit As DateTime
- DatumZeit = DateTime.ParseExact(UTCString.Substring(0, 14), "yyyyMMddHHmmss", _
- Globalization.DateTimeFormatInfo.InvariantInfo)
- Return DatumZeit.ToString("dddd, dd.MMMM.yyyy HH:mm:ss")
- End Function
- End Class
kann das in entwa so funktionieren -
-
-
-
Du solltest dir ggf. doch ein klein wenig Hintergrundwissen aneignen bevor du sowas erstellen willst, ansonsten nervst du uns bei jeder kleinigkeit mit neuen Fragen, weil die gesamt materie eben nicht verstehst.
Was da rein muss, ist natürlich die IP deines Routers und jetzt frag bloß nicht "welche?".
-
Tags
-
Ähnliche Themen
-
2 Benutzer haben hier geschrieben
- Gast (9)
- jvbsl (1)