Port ermitteln

  • VB.NET

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von gfcwfzkm.

    Port ermitteln

    Hi,

    ich habe einen ip-scanner aus neugier von einem YouTube tutorial programmiert.
    Aber der ist lahm.

    hier mal der code:

    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.Threading
    3. Public Class Form1
    5. Private Sub ports_checken()
    6. Dim aktueller_port As Integer
    7. Dim end_port As Integer = TextBox3.Text
    9. For aktueller_port = TextBox2.Text To end_port
    10. Dim client As New TcpClient
    11. Try
    12. client.Connect(TextBox1.Text, aktueller_port)
    13. ListView1.Items.Add(aktueller_port.ToString)
    14. Catch
    16. End Try
    17. TextBox4.Text = aktueller_port
    18. Next
    19. MsgBox("Alle Ports gescannt")
    20. TextBox1.ReadOnly = False
    21. TextBox2.ReadOnly = False
    22. TextBox3.ReadOnly = False
    23. Label5.Text = "ok"
    24. End Sub
    26. Dim main_thread As New Thread(AddressOf ports_checken)
    28. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    29. ListView1.Items.Clear()
    30. main_thread = New Thread(AddressOf ports_checken)
    31. main_thread.IsBackground = True
    32. main_thread.Start()
    33. Control.CheckForIllegalCrossThreadCalls = False
    34. TextBox1.ReadOnly = True
    35. TextBox2.ReadOnly = True
    36. TextBox3.ReadOnly = True
    37. Label5.Text = "X"
    38. End Sub
    40. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    41. main_thread.Abort()
    42. MsgBox("Scann wurde abgebrochen")
    43. TextBox1.ReadOnly = False
    44. TextBox2.ReadOnly = False
    45. TextBox3.ReadOnly = False
    46. Label5.Text = "ok"
    47. End Sub
    48. End Class


    Der macher des Tut's konnte ich nicht kontaktieren, also frag ich hier mal...
    Wie mach ich das ding schneller?

    mfg

    gfcwfzkm

    Habe einen Fehler...
    In einer TextBox wird angezeigt, welche ping gerade überprüft wird.
    Nach einer Weile zeigt es mit 2 verschiedene pings an. (23-45-24-46usw...)

    Habe wie beschrieben "Dim extrathread as new thread(AddressOf ports_checken)" gemacht.
    Beim startbutton: "extrathread = New Thread(AddressOf ports_checken)"
    "extrathread.IsBackground = True"
    "extrathread.start()" --gemacht. hab ich ein fehler gemacht?

    mfg

    gfc

    Edit:/ Felher immernochnicht gefunden!

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

    naja, ich will, das Mein portscanner schneller geht. Aber es kommt bei mir immer ein fehler...

    wüsstest du, wie ich mein scanner schneller machen könnte?

    Ich hab einen 2.Ten thread gemacht.

    In einer TextBox wird angezeigt, welche ping gerade überprüft wird.
    Nach einer Weile zeigt es mit 2 verschiedene pings an. (23-45-24-46usw...)

    Habe wie beschrieben "Dim extrathread as new thread(AddressOf ports_checken)" gemacht.
    Beim startbutton: "extrathread = New Thread(AddressOf ports_checken)"
    "extrathread.IsBackground = True"
    "extrathread.start()"

    wie mach ich ihn sonst noch schneller?

Facebook
Telefonspende