Simpler IP-Scanner im lokalen Netzwerk

    • VB.NET

    Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von Dodo.

      Simpler IP-Scanner im lokalen Netzwerk

      Hi Leute,
      Ich wollte euch hete mal einen simplen, schnellen und effektiven IP-Scanner als Konsolenanwendung (in VB 2010 geschrieben :D) vorstellen.
      Er ist nur sowas wie eine Grundlage, kann aber schnell in andere Projekte implementiert werden falls man sowas mal braucht....
      Ein Beispielprojekt findet ihr im Anhang.....

      VB.NET-Quellcode

      1. Module Program
      3. Sub Main()
      4. 'Lokale IP wird ermittelt
      5. Dim locip As String = ""
      6. For Each ip As System.Net.IPAddress In System.Net.Dns.GetHostAddresses(System.Net.Dns.GetHostName)
      7. If ip.ToString.Contains(".") Then locip = ip.ToString
      8. Next
      9. 'Die ersten drei Blöcke werden in 'threeblocks' geschrieben
      10. Dim threeblocks As String = ""
      11. Dim ind As Integer = 0
      12. For Each block As String In locip.Split(".")
      13. If ind = 3 Then Exit For
      14. threeblocks &= block
      15. threeblocks &= "."
      16. ind += 1
      17. Next
      18. 'Pingwaiter Array wird erstellt un alle Items werden der Reihe nach mit ihrer Ping-IP gestartet
      19. Dim x(255) As PingWaiter
      20. Dim i As Integer = 0
      21. For Each y As PingWaiter In x
      22. y = New PingWaiter
      23. y.start(threeblocks & i)
      24. i += 1
      25. Next
      26. 'Und warten...........
      27. Console.Read()
      28. End Sub
      30. End Module
      32. 'Jetzt die Klasse die den Ping dann ausführen darf
      34. Public Class PingWaiter
      35. Private t As New Threading.Thread(AddressOf p)
      36. Private ip As String
      38. Public Structure IPInfo
      39. Public IPAddress As String
      40. Public HostName As String
      41. End Structure
      43. Public Sub start(ByVal endpoint As String) 'Aufruf zum Starten des Ping
      44. ip = endpoint
      45. t.Start()
      46. End Sub
      48. Private Sub p() 'führt den eigentlichen Ping mit 'ip' aus
      49. Dim x As New Net.NetworkInformation.Ping
      50. Try
      51. If x.Send(ip).Status = Net.NetworkInformation.IPStatus.Success Then
      52. sip()
      53. End If
      54. Catch
      55. End Try
      56. End Sub
      58. Private Sub sip() ' fasst Informationen über den Host in 'mip' zusammen und schreibt sie in der Konsole
      59. Dim mip As New IPInfo
      60. mip.IPAddress = ip
      61. mip.HostName = Net.Dns.GetHostEntry(ip).HostName
      62. If mip.HostName = "noname" Then mip.HostName = "n/a"
      63. Console.WriteLine(mip.IPAddress & " " & mip.HostName)
      64. End Sub
      66. End Class


      Fragen dazu bitte POSTEN
      Dateien

      • ipscanner.zip

        (9,78 kB, 964 mal heruntergeladen, zuletzt: )

      vbxource schrieb:

      [...] effektiven IP-Scanner [...]
      Dein Code ist aber nicht gerade schön und effektiv. For Each Schleifen nutzen und mit einer Variablen hochzählen tztz dafür gibts normale For Schleifen.
      Dann ist das zusammensetzten der ersten 3 Oktetten auch alles andere als effektiv mit einer For-Schleife, hierzu kann man zum einen RegEx oder wenn man es einfacherer haben will mit LastIndexOf() und Substring(), aber Splitten und dann in einer Schleife wieder zusammen führen, ne also das geht mal gar nicht.

      Sogar diese Lösung wäre besser als deine Lösung

      VB.NET-Quellcode

      1. Dim PartIP As String() = locip.Split(".")
      2. Dim ThreeBlocks As String = PartIP(0) & "." & PartIP(1) & "." & PartIP(2)
      3. ' oder noch sauberer
      4. Dim ThreeBlocks As String = String.Format("{0}.{1}.{2}", PartIP(0), PartIP(1), PartIP(2))


      Also wenn man schon Tutorials und Code hier anbietet sollte man doch bitte auch auf sauberen Stil achten, damit die neulinge die dies benötigen es auch gleich richtig lernen.

    Facebook
    Telefonspende