Hi,
ich habe einen ip-scanner aus neugier von einem YouTube tutorial programmiert.
Aber der ist lahm.
hier mal der code:
Der macher des Tut's konnte ich nicht kontaktieren, also frag ich hier mal...
Wie mach ich das ding schneller?
mfg
gfcwfzkm
ich habe einen ip-scanner aus neugier von einem YouTube tutorial programmiert.
Aber der ist lahm.
hier mal der code:
VB.NET-Quellcode
- Imports System.Net.Sockets
- Imports System.Threading
- Public Class Form1
- Private Sub ports_checken()
- Dim aktueller_port As Integer
- Dim end_port As Integer = TextBox3.Text
- For aktueller_port = TextBox2.Text To end_port
- Dim client As New TcpClient
- Try
- client.Connect(TextBox1.Text, aktueller_port)
- ListView1.Items.Add(aktueller_port.ToString)
- Catch
- End Try
- TextBox4.Text = aktueller_port
- Next
- MsgBox("Alle Ports gescannt")
- TextBox1.ReadOnly = False
- TextBox2.ReadOnly = False
- TextBox3.ReadOnly = False
- Label5.Text = "ok"
- End Sub
- Dim main_thread As New Thread(AddressOf ports_checken)
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- ListView1.Items.Clear()
- main_thread = New Thread(AddressOf ports_checken)
- main_thread.IsBackground = True
- main_thread.Start()
- Control.CheckForIllegalCrossThreadCalls = False
- TextBox1.ReadOnly = True
- TextBox2.ReadOnly = True
- TextBox3.ReadOnly = True
- Label5.Text = "X"
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- main_thread.Abort()
- MsgBox("Scann wurde abgebrochen")
- TextBox1.ReadOnly = False
- TextBox2.ReadOnly = False
- TextBox3.ReadOnly = False
- Label5.Text = "ok"
- End Sub
- End Class
Der macher des Tut's konnte ich nicht kontaktieren, also frag ich hier mal...
Wie mach ich das ding schneller?
mfg
gfcwfzkm