Portscanner.. zu lahm

  • VB.NET

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von picoflop.

    Portscanner.. zu lahm

    Hallo VB

    ich habe einen Portscanner gebastelt, der geht eig. auch aber er ist viel zu langsam. normalerweise sollte der ja fast jede Sekunde einen Port scannen und melden. doch hier brauche ich fast 10-15 sec dafür.

    könntet ihr mir eventuell sagen wo ich den Fehler gemacht habe.

    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.Threading
    3. Imports System.Net
    4. Imports System.IO
    7. Public Class Form1
    9. Private Sub ports_checken()
    10. Dim aktueller_port As Integer
    11. Dim end_port As Integer = NumericUpDown2.Value
    13. For aktueller_port = NumericUpDown1.Value To end_port
    14. Dim client As New TcpClient
    16. Try
    18. client.Connect(TextBox1.Text, aktueller_port)
    20. ListView1.Items.Add(aktueller_port.ToString)
    22. Catch ex As Exception
    24. End Try
    25. Label5.Text = "aktueller Port: " & aktueller_port
    27. Next
    29. MessageBox.Show("alle Ports wurden gescannt")
    30. End Sub
    32. Dim main_thread As New Thread(AddressOf ports_checken)
    35. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    36. ListView1.Items.Clear()
    37. main_thread = New Thread(AddressOf ports_checken)
    38. main_thread.IsBackground = True
    39. main_thread.Start()
    40. Control.CheckForIllegalCrossThreadCalls = False
    41. End Sub
    43. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    44. main_thread.Abort()
    45. End Sub
    46. End Class


    mfg

    *Topic verschoben*

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()

    Samus Aran schrieb:

    VB.NET-Quellcode

    1. Control.CheckForIllegalCrossThreadCalls = False

    Das ist der Fehler. Nimm die Codezeile weg und lerne, richtig mit Threads umzugehen.


    naja, aber wen ich dies weg mache kann ich nicht mehr mit der Form kommunizieren.. sprich das mir das Label5 einen wert ausgibt nach jeder schleife.

    Doch, kannst du. Wenn du's ordentlich machst:

    VB.NET-Quellcode

    1. Invoke(Sub()
    2. Label5.Text = "aktueller Port: " & aktueller_port.ToString()
    3. End Sub)

    Danke,

    dies geht nun.

    doch habe ich das "Problem" das der client ewigs braucht um zu verbinden.

    VB.NET-Quellcode

    1. For aktueller_port = NumericUpDown1.Value To end_port
    2. Dim client As New TcpClient
    4. Try
    6. client.Connect(TextBox1.Text, aktueller_port)
    8. ListView1.Items.Add(aktueller_port.ToString)
    10. Catch ex As Exception
    12. End Try
    14. Invoke(Sub()
    15. Label5.Text = "aktueller Port: " & aktueller_port.ToString()
    16. End Sub)
    18. Next


    wen ich nun "client.Connect(TextBox1.Text, aktueller_port)" ausschalte 'client.Connect(TextBox1.Text, aktueller_port) dann sehe ich die Ports angezeigt im label5

    Ich denke mal, da kommt eine exception, von der Du nichts merkst.
    Nimm also das Try / Catch / End Try ganz raus oder pack Dir in den Catch-Zweig eine MessageBox, die Dir die Exception-Info ausgibt.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    du hast recht, so sieht es aus wen ich den try block weg mache.

    allerdings ist dies immernoch mit deaktiviertem client.connect





    Dies habe ich nun auch in ein Invoke(Sub() gemacht und es geht prima.

    nun hab ich noch den Fehler mit dem Clienten:

    Genau das musst Du mit Invoke() machen, kommt bereits in mehreren Posts vor.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Auch wenn du's nicht verstehst, das ganze viel zu hoch für dich (noch) ist und du bei Fehlern nicht weiterkommst:

    EDIT:
    Etwas aufgehübscht mit ner Progressbar und den Test selber auch noch in Async gewrappt ...

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Threading.Tasks
    2. Imports AsyncCtpExtensions
    5. ''' <summary>
    6. ''' Simple Async Sample.
    7. ''' Need Controls:
    8. ''' Button: btnStart
    9. ''' Label: lblTime
    10. ''' Listbox: lstResults
    11. ''' Progressbar: pbCurrentWork
    12. ''' </summary>
    13. ''' <remarks></remarks>
    14. Public Class Form1
    16. Private WithEvents tmalive As New Timer With {.Interval = 250, .Enabled = False}
    18. Private Sub Form1_Activated(sender As Object, e As System.EventArgs) Handles Me.Activated
    19. tmalive.Enabled = True
    20. End Sub
    22. Private Async Function Test(ByVal ip As String, ByVal startport As Integer, ByVal endport As Integer) As Task
    24. pbCurrentWork.Value = 0
    25. pbCurrentWork.Maximum = endport - startport
    27. Dim stp As Stopwatch = Stopwatch.StartNew
    29. Dim l As New List(Of Task(Of String))
    31. Dim tf As New TaskFactory(Of String)
    32. For i = startport To endport
    33. Dim p As Integer = i
    34. l.Add(tf.StartNew(Function() As String
    36. Dim result As String = p.ToString & " FAIL"
    37. Try
    38. Using t As New Net.Sockets.TcpClient
    39. t.Connect(Net.IPAddress.Parse(ip), p)
    40. result = p.ToString & " SUCCESS"
    41. t.Close()
    42. End Using
    43. Catch
    44. ' fall through
    45. End Try
    46. Return result
    47. End Function))
    48. Next
    50. While l.Count > 0
    51. Dim ts As Task(Of String) = Await TaskEx.WhenAny(l)
    52. pbCurrentWork.Increment(1)
    53. If ts.Result.Contains("SUCCESS") Then
    54. lstResults.Items.Add(ts.Result)
    55. End If
    56. l.Remove(ts)
    57. End While
    59. stp.Stop()
    61. lstResults.Items.Add("done all in " & stp.ElapsedMilliseconds.ToString & " milliseconds")
    63. End Function
    66. Private Async Sub btnStart_Click(sender As System.Object, e As System.EventArgs) Handles btnStart.Click
    68. ' make sure we do not overlap
    69. Static testing As Boolean = False
    70. If testing Then Exit Sub
    71. testing = True
    73. Await Test("127.0.0.1", 50, 300)
    75. testing = False
    77. End Sub
    79. Private Sub tmalive_Tick(sender As Object, e As System.EventArgs) Handles tmalive.Tick
    81. ' just to show, that GUI events are still processed
    82. Dim s As String = Now.ToString
    83. If lblTime.Text <> s Then lblTime.Text = s
    85. End Sub
    86. End Class

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „picoflop“ ()

Facebook