IP-Scanner

    • VB.NET

    Es gibt 23 Antworten in diesem Thema. Der letzte Beitrag () ist von erbse.

      IP-Scanner

      Hi Leute,
      hier mal ein Beispiel, wie man einen einfachen IP-Scanner realisieren könnte. (Konsolenanwendung)

      Angucken und lernen, bitte kein C&P. ;D
      Wenn ich euch viel geholfen habe, könnt Ihr mich ja in einem Programm erwähnen oder Ähnliches. Der Code ist jedenfalls frei verfügbar und liegt unter der WTFPL. Mit anderen (deutschen) Worten: Macht damit, was Ihr wollt.

      Er ist verbesserungswürdig, läuft aber einigermaßen gut.

      Hier der Code (OOP, benutzt VB2010-Compiler (z.B. bei den inline Properties)):
      Spoiler anzeigen

      VB.NET-Quellcode

      1. Option Strict On
      3. Module SimpleScanner
      5. Dim WithEvents __Scanner As NetworkScanner
      6. Dim __IPs As List(Of NetworkScanner.PingResult)
      8. Sub Main()
      9. Dim abc As String = "192.168.1"
      11. Console.Title = "Simpler IPScanner"
      12. Console.WriteLine("Simpler IP-Scanner.")
      13. Console.WriteLine()
      15. Dim args As String() = Environment.GetCommandLineArgs()
      16. If args.Length > 1 Then
      17. Dim abc_ As String = FilterMask(args(1))
      18. If abc_ <> "-1" Then
      19. abc = abc_
      20. Console.WriteLine("Benutze Adressbereich aus Kommandozeile: {0}", abc)
      21. Else
      22. Console.WriteLine("Der Adressbereich der Kommandozeilenargumente konnte nicht validiert werden.")
      23. Console.WriteLine("Benutze standard Adressbereich: {0}", abc)
      24. End If
      25. Else
      26. Console.WriteLine()
      27. Console.WriteLine("Bitte geben Sie die ersten drei Teile der IP-Adresse an. (z.B. 192.168.178)")
      29. Dim input As String = Console.ReadLine().Trim
      30. If input = String.Empty Then
      31. Console.WriteLine("Keine Eingabe entdeckt.")
      32. Console.WriteLine("Benutze standard Adressbereich: {0}", abc)
      33. Else
      34. Dim abc_ As String = FilterMask(input)
      35. If abc_ <> "-1" Then
      36. abc = abc_
      37. Console.WriteLine("Benutze eingegebenen Adressbereich: {0}", abc)
      38. Else
      39. Console.WriteLine("Der Adressbereich konnte nicht validiert werden.")
      40. Console.WriteLine("Benutze standard Adressbereich: {0}", abc)
      41. End If
      42. End If
      43. End If
      45. Console.WriteLine()
      46. Console.WriteLine(" Folgende IPs sind erreichbar:")
      47. Console.WriteLine()
      48. Console.WriteLine(" ### AAA.BBB.CCC.DDD - Hostname - Pingzeit")
      50. __Scanner = New NetworkScanner(abc)
      51. __Scanner.Scan()
      53. While __Scanner.IsScanning : End While
      55. Dim s As String = Console.ReadLine()
      56. s = s.Trim
      57. If IsNumeric(s) Then
      58. Dim nummer As Integer = Integer.Parse(s)
      59. Dim ip_arr As NetworkScanner.PingResult() = __IPs.ToArray
      60. If nummer <= ip_arr.Length - 1 Then
      61. My.Computer.Clipboard.SetText(ip_arr(nummer).IP)
      62. Console.WriteLine("Die IP-Adresse ""{0}"" wurde in Ihre Zwischenablage kopiert.", ip_arr(nummer))
      63. End If
      64. ElseIf s = "a" Then
      65. Dim Result_arr As NetworkScanner.PingResult() = __IPs.ToArray
      66. Dim IP_Only_arr(__IPs.Count - 1) As String
      67. Dim zaehler As Integer = 0
      68. For Each result As NetworkScanner.PingResult In __IPs
      69. IP_Only_arr(zaehler) = result.IP
      70. zaehler += 1
      71. Next
      72. Dim clip As String = Join(IP_Only_arr, Environment.NewLine)
      73. My.Computer.Clipboard.SetText(clip)
      74. Console.WriteLine("Die IP-Adressen wurden in Ihre Zwischenablage kopiert.")
      75. End If
      76. End Sub
      78. Friend Function FilterMask(ByVal input As String) As String
      79. Dim pt As String = "\b(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.\b(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.\b(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)"
      80. Dim m As System.Text.RegularExpressions.Match = System.Text.RegularExpressions.Regex.Match(input, pt)
      81. If m.Captures.Count <> 1 Then
      82. Return "-1"
      83. Else
      84. Return m.Value
      85. End If
      86. End Function
      88. Private Sub __Scanner_ScanComplete(ByVal AvailabeIPs As System.Collections.Generic.List(Of NetworkScanner.PingResult)) Handles __Scanner.ScanComplete
      89. __IPs = AvailabeIPs
      90. Dim _Counter As Integer = 0
      91. For Each PingResult As NetworkScanner.PingResult In __IPs
      92. Console.WriteLine(" {0,-3} {1,-15} - {2,-20} - {3}ms", _Counter, PingResult.IP, PingResult.Hostname, PingResult.ElapsedTime)
      93. _Counter += 1
      94. Next
      96. Console.WriteLine()
      97. Console.WriteLine()
      99. Console.WriteLine("Scannen fertig.")
      100. Console.WriteLine()
      102. If _Counter > 0 Then
      103. Console.WriteLine("'a' zum Kopieren aller IPs.")
      104. Console.WriteLine("Eine Nummer, um eine bestimmte zu kopieren")
      105. Else
      106. Console.WriteLine("Es wurden keine IPs gefunden.") 'Unwahrscheinlich, da normalerweise mindestens der Localhost im Netz ist ^^
      107. 'Man kann aber nie wissen.
      108. End If
      109. End Sub
      110. End Module
      112. Friend Class NetworkScanner
      113. protected __MaxThreads as Integer = 20
      114. protected __CurrentThreads As Integer = 0
      115. Public Property MaxThreads() As Integer
      116. get
      117. return __MaxThreads
      118. end get
      119. set (value as integer)
      120. __MaxThreads = value
      121. end set
      122. end property
      124. Public Property CurrentThreads() As Integer
      125. get
      126. return __CurrentThreads
      127. end get
      128. set (value as integer)
      129. __CurrentThreads= value
      130. end set
      131. end property
      134. Protected __Subnet As String
      135. Protected __IPList As New List(Of PingResult)
      136. Protected __ResultCounter As Integer
      138. Public ReadOnly Property IPList As List(Of PingResult)
      139. Get
      140. Return __IPList
      141. End Get
      142. End Property
      143. Public ReadOnly Property Subnet As String
      144. Get
      145. Return __Subnet
      146. End Get
      147. End Property
      148. Public ReadOnly Property IsScanning As Boolean
      149. Get
      150. Return __ResultCounter < 255
      151. End Get
      152. End Property
      154. Public Event ScanComplete(ByVal AvailabeIPs As List(Of PingResult))
      156. Public Sub New(ByVal Subnet As String)
      157. __Subnet = Subnet
      158. End Sub
      159. Public Sub Scan()
      160. For d As Integer = 0 To 255 Step 1
      161. Dim ping As New IPPinger(Me, String.Format("{0}.{1}", __Subnet, d))
      162. AddHandler ping.GotPingResult, AddressOf GotPingResult
      163. ping.StartPing()
      164. Next
      165. End Sub
      166. Private Sub GotPingResult(ByVal sender As NetworkScanner, ByVal e As PingResult)
      167. If e.Successful Then
      168. 'Man könnte auch die nicht erfolgreichen adden, mache ich hier aber nicht, weil wir nur die erfolgreichen haben wollen ;)
      169. __IPList.Add(e)
      170. End If
      171. __ResultCounter += 1
      172. If __ResultCounter > 255 Then
      173. RaiseEvent ScanComplete(__IPList)
      174. End If
      175. End Sub
      177. Friend Structure PingResult
      178. Dim IP As String
      179. Dim Successful As Boolean
      180. Dim ElapsedTime As Long
      181. Dim Hostname As String
      182. Dim TimeOut As Integer
      183. Friend Sub New(ByVal _IP As String, ByVal _Successful As Boolean, ByVal _ElapsedTime As Long, ByVal _Hostname As String, ByVal _TimeOut As Integer)
      184. IP = _IP
      185. Successful = _Successful
      186. ElapsedTime = _ElapsedTime
      187. Hostname = _Hostname
      188. TimeOut = _TimeOut
      189. End Sub
      190. End Structure
      191. End Class
      193. Friend Class IPPinger
      194. Protected __IP As String
      195. Protected __Scanner As NetworkScanner
      196. Protected __TimeOut As Integer
      198. Public Shared ReadOnly Property StandardTimeOut As Integer
      199. Get
      200. Return 1000
      201. End Get
      202. End Property
      203. Public ReadOnly Property IP As String
      204. Get
      205. Return __IP
      206. End Get
      207. End Property
      209. Public Event GotPingResult(ByVal sender As NetworkScanner, ByVal e As NetworkScanner.PingResult)
      211. Public Sub New(ByVal _Scanner As NetworkScanner, ByVal _IP As String)
      212. __Scanner = _Scanner
      213. __IP = _IP
      214. __TimeOut = 1000
      215. End Sub
      216. Public Sub New(ByVal _Scanner As NetworkScanner, ByVal _IP As String, ByVal _TimeOut As Integer)
      217. __Scanner = _Scanner
      218. __IP = _IP
      219. __TimeOut = _TimeOut
      220. End Sub
      222. Public Sub StartPing()
      223. While __Scanner.CurrentThreads >= __Scanner.MaxThreads : End While
      224. Dim t As New Threading.Thread(AddressOf _ping_ip_thread)
      225. t.Name = __IP & " - Pingthread"
      226. t.Start(__IP)
      227. End Sub
      228. Private Sub _ping_ip_thread(ByVal _IP As Object)
      229. __Scanner.CurrentThreads += 1
      230. Try
      231. Dim Milliseconds As Long = Me.DoPing(_IP.ToString)
      232. Dim result As NetworkScanner.PingResult
      233. If Milliseconds <> -1 Then
      234. Dim HostName As String = Net.Dns.GetHostEntry(_IP.ToString).HostName
      235. result = New NetworkScanner.PingResult(_IP.ToString, True, Milliseconds, HostName, __TimeOut)
      236. Else
      237. result = New NetworkScanner.PingResult(_IP.ToString, False, Milliseconds, String.Empty, __TimeOut)
      238. End If
      239. RaiseEvent GotPingResult(__Scanner, result)
      240. Catch ex As Exception
      241. Throw ex 'Ja, sinnlos, ich weiß. Man könnte auch einen "Nicht-erreichbar"-Pin zurückgeben.
      242. Finally
      243. __Scanner.CurrentThreads -= 1
      244. End Try
      245. End Sub
      246. Private Function DoPing(ByVal _IP As String) As Long
      247. Dim ping As New Net.NetworkInformation.Ping
      248. Dim reply As Net.NetworkInformation.PingReply = ping.Send(_IP, __TimeOut)
      249. If reply.Status = Net.NetworkInformation.IPStatus.Success Then
      250. Return reply.RoundtripTime
      251. Else
      252. Return -1
      253. End If
      254. End Function
      255. End Class




      Für Fragen zu dem Code bin ich gerne offen. Diese können wie gewohnt hier gestellt werden. ;)

      Habt Spaß,
      nikeee
      Von meinem iPhone gesendet

      Dieser Beitrag wurde bereits 12 mal editiert, zuletzt von „nikeee13“ ()

      Ich denke nicht, dass das schwer zu implementieren wäre.
      Ich packs mal schnell rein.

      Edit:
      So, ist drinne.
      Hab Kommandozeilenargumente auch noch gleich mit rein gepackt.
      Von meinem iPhone gesendet

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

      wow super code genau sowas hab ich gesuch ;)

      wie bekomm ich das jetz in ne windows forms anwendung rein?
      das es zb oben ein textfeld ist wo man die ersten 3 stellen der ip eingibt und dann ein button zum ausführen
      und in einem weiteren textfeld die verfühbaren ips angezeigt werden?

      DANKE für eure Hilfe

      lg erbse

      Für eine Windows Forms anwendung musst du ihn umschreiben. da z.B die ganzen WriteLine befehle nicht verwendet werden können, du könntest die Textausgabe ja umleiten, z.B auf ein Label oder eben, wie du sagtest, auf eine TextBox in der dan die fertigen IP's stehen.

      MfG

      Da hier mit mehreren Threads gearbeitet wird, musst du bei der Ausgabe der erreichbaren IPs in z.B: einer Textbox Delegates verwenden, um in den GUI-Thread zu invoken.

      Dort gibt es infos dazu:
      [VB 2010] Threadübergreifend in ListBox schreiben!
      codeproject.com/KB/vb/mutithreading_for_beginer.aspx
      espend.de/artikel/vbnet-thread…ds-invoke-und-events.html

      Ich hab es hier als Konsole hereingestellt, weil der ganze invoke-kram den Code schnell unübersichtlich machen kann. Mir ging es darum, dass man den Code leichter verstehen kann.
      Von meinem iPhone gesendet

      Hallo,

      gibt es einen bestimmten Grund warum du ein Modul gewählt hast und keine Klasse?

      Warum nicht gleich Objektorientiert arbeiten und eine Klasse erstellen, in deren Konstruktor könntest du dann auch direkt die zu scannende IP übergeben und damit die "abc" Variable befüllen (Interessanter Name übrigens...)

      Module sind ein Relikt und sollten nach Möglichkeit nicht mehr verwendet werden.

      Desweiteren könnte man so ganz einfach eine Instanz dieser Klasse in anderen Klassen/Anwendungen benutzen.
      Siehe Polymorphie.

      Ich sehe in deinem Blog nicht ein warum Ich kein Modul verwenden sollte.
      Wenn ich nicht nach OOP programmiere... ist das wirklich so schlimm?
      Und vielleicht hab ich auch was dagegen das meine Module weiterverwendet werden...

      Der Beitrag unter mir enthält einen Gegenbeweis<--- markieren wen es interessiert ^^

      Memo schrieb:

      Ich sehe in deinem Blog nicht ein warum Ich kein Modul verwenden sollte.
      Dann solltest du den Beitrag vielleicht noch ein paar mal durchlesen
      Wenn ich nicht nach OOP programmiere... ist das wirklich so schlimm?
      Ja, denn VB.NET ist eine Objektorientierte Sprache und sollte auch so genutzt werden, wenn du nicht nach OOP programmieren möchtest dann kannst du ja weiterhin VB6 nutzen.
      OOP Hat sehr viele Vorteile, die zb erbse hätte nutzen können, da er dann die Klasse sehr einfach weiter verwenden hätte können.
      Und vielleicht hab ich auch was dagegen das meine Module weiterverwendet werden...
      Wenn du was dagegen hast, dass deine Module, weiter verwendet werden dann solltest du diese nicht im Sourcecode Austausch posten ?(
      Wenn man schon seinen Code postet sollte man schon gucken, dass dieser auch sauber und verständlich ist, damit andere Leute dort durchfinden können, und ganau das bringt OOP mit sich, denn Namen wie "abc" helfen niemandem beim Verstehen.

      bigbasti schrieb:


      denn Namen wie "abc" helfen niemandem beim Verstehen.

      Abc steht für die Bytes der IP. A.B.C.D. (bezogen auf die IP-Abschnitte des Netzwerks)
      Der underscore am Ende der Variable abc_ steht bei meinem Stil immer dafür, dass die Variable von einem Input kommt und noch auf die Gültigkeit geprüft werden muss, bevor man sie in die Variable abc übergibt.
      Wobei ich in meinem Code von einem Netzwerk mit der Subnetmaske 255.255.255.0 ausgehe.

      Ich verwende ein Modul, weil ich einfach alles in eine Konsolenanwendung herein geschrieben habe. Ich kann auch noch eine komplett-OOP-Variante dazu schreiben.
      Von meinem iPhone gesendet

      Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „nikeee13“ ()

      Hallo Nikeee13,

      der neue Code sieht doch schon um einiges besser aus, ist zwar immer noch ein Modul drin, aber gut ;)

      Ein kleiner Hinweis (optional) könntest du den Code noch weiter verfeinern, indem du ihn komplett unabhängig von der Applikationsform machst, also so, dass man ihn aus einer Forms, Consolen und auch aus einer Webanwendung nuten kann. Momentan ist dein Code immer noch sehr start von der main-Methode abhängig.

      Ein komplett OOP- und unabhängiger Code könnte dann so aufgerufen werden:


      Private Sub Button1_Click()
      Dim scanner As NetworScanner = New NetworkScanner("ipbereich")
      Dim ergebnis As String = scanner.Run() 'oder irgendwas so in der art
      TextBox1.Text = ergebnis
      End Sub


      Mit anderen Worten der Benutzer sollte es später so einfach wie möglich haben :) - damit würdest du Erbse jedenfalls sehr helfen glaube ich ;)

      Du kannst natürlich die Variablen so nennen, wie du es am besten verstehst, ist ja auch völlig normal so, aber wenn man den Code veröffentlicht, will man normalerweise, dass auch andere damit arbeiten.
      Den anderen Menschen kann man das enorm erleichtern, in dem man aussagekräftige Namen verwendet, oder Kommentare in den Code einbaut.

      HI Nikeee,


      offensichtlich hat dich unsere kurze Diskussion angeregt.
      Leider muss ich sagen, mir gefällt dein Code nicht sonderlich.
      Du ermöglichst keine einachen Erweiterungen (zB Pingoptionen, variabler IP Bereich, Rückgabe von Pingzeiten,PC Namen auslesen etc). Du benutzt My.Network.Ping.
      Du implementierst es fest in eine Konsolenanwendung.

      Für einen simplen Massping vll kein schlechter Anfang, aber mehr auch nicht.
      Ich bleibe dabei. Ein vernünftiger Netzwerkscanner ist keine Anfängersache.

      Verbessere deinen Code noch(Siehe Hinweise von Vorrednern), dann kann man damit wirklich was anfangen.
      Ach, und Erläuterungen im Code wären schön..zumindest einige wenige...

      gruss Mono
      Das ist meine Signatur und sie wird wunderbar sein!

      Mono schrieb:

      Für einen simplen Massping vllt. kein schlechter Anfang, aber mehr auch nicht.
      Mehr soll es auch nicht sein.

      Mono schrieb:

      Du implementierst es fest in eine Konsolenanwendung.
      Soll ich es etwa als Classlibrary bereitstellen? Man kann sich ja auch die Klassen in eine Forms-Anwendung packen. Die Verwendung bleibt die gleiche.

      Mono schrieb:

      Ich bleibe dabei. Ein vernünftiger Netzwerkscanner ist keine Anfängersache.
      Ein vernünftiger Scanner kann ebenso ein simpler Scanner sein. Du meinst wahrscheinlich einen umfangreicheren. Naja, ich wollte nur ein Beispiel geben, wie man es mit Multithreading machen könnte. Wer dann noch Sachen wie eine Subnetzmaske haben will, muss sich das selbst implementieren. Mir ging es hier um den Ansatz. (Deshalb auch den Ping aus dem My-Namespace)

      Mono schrieb:

      Verbessere deinen Code noch(Siehe Hinweise von Vorrednern), dann kann man damit wirklich was anfangen.
      Primär geht es nicht um den praktischen Nutzen des Scanners, sondern um die Methode. (siehe einen Quote weiter oben)

      Mono schrieb:

      Ach, und Erläuterungen im Code wären schön..zumindest einige wenige...
      Kann ich machen, schreibe morgen jedoch 4 Stunden lang Mathe, hab gerade besseres zu tun. ^^

      Mono schrieb:

      z.B. Pingoptionen, variabler IP Bereich, Rückgabe von Pingzeiten,PC Namen auslesen etc)
      Lässt sich alles leicht implementieren, da jetzt auch eine OOP-Variante vorliegt. Mal schauen, ob ich noch was dazu mache.

      Edit:
      hab den Code noch mal etwas verbessert/ausgeweitet.
      Von meinem iPhone gesendet

      Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „nikeee13“ ()

    Facebook
    Telefonspende