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.
mfg
*Topic verschoben*
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
- Imports System.Net.Sockets
- Imports System.Threading
- Imports System.Net
- Imports System.IO
- Public Class Form1
- Private Sub ports_checken()
- Dim aktueller_port As Integer
- Dim end_port As Integer = NumericUpDown2.Value
- For aktueller_port = NumericUpDown1.Value To end_port
- Dim client As New TcpClient
- Try
- client.Connect(TextBox1.Text, aktueller_port)
- ListView1.Items.Add(aktueller_port.ToString)
- Catch ex As Exception
- End Try
- Label5.Text = "aktueller Port: " & aktueller_port
- Next
- MessageBox.Show("alle Ports wurden gescannt")
- 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
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- main_thread.Abort()
- End Sub
- End Class
mfg
*Topic verschoben*
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()