Moin liebe Community,
seit gestern versuche ich die Zeitspanne eines Timeouts (TCP-Client) zu setzen, jedoch reagiert das ganze nicht.
Ich will das eine Range Scannen (1.1.1.1 - 1.1.1.254) das ganze mit einer For - to schleife. Läuft auch alles wunderbar nur soll er jetz bei jeder IP
zusätzlich noch überprüfen ob Ports offen sind und wenn ja Welche.
Ist eine IP erreichbar wird diese in eine Treeview gepackt und jeder aktive Port als Ast hinzugefügt:
1.1.1.2
- 80
- 3306
1.1.1.10
1.1.1.11
- ...
.....
usw eben.
Wenn jedoch ein port nicht erreichbar ist, benötigt die Schleife einfach ewig lange, da das Timeout vom Client viel zu lange braucht T_T
einer ne Idee?
kleines Code-Beispiel:
seit gestern versuche ich die Zeitspanne eines Timeouts (TCP-Client) zu setzen, jedoch reagiert das ganze nicht.
Ich will das eine Range Scannen (1.1.1.1 - 1.1.1.254) das ganze mit einer For - to schleife. Läuft auch alles wunderbar nur soll er jetz bei jeder IP
zusätzlich noch überprüfen ob Ports offen sind und wenn ja Welche.
Ist eine IP erreichbar wird diese in eine Treeview gepackt und jeder aktive Port als Ast hinzugefügt:
1.1.1.2
- 80
- 3306
1.1.1.10
1.1.1.11
- ...
.....
usw eben.
Wenn jedoch ein port nicht erreichbar ist, benötigt die Schleife einfach ewig lange, da das Timeout vom Client viel zu lange braucht T_T
einer ne Idee?
kleines Code-Beispiel:
VB.NET-Quellcode
-
- Dim fromip() As String = Split(txtNSfrom.Text, ".")
- Dim toip() As String = Split(txtNSuntil.Text, ".")
- Dim rangefromip As Integer = fromip(2)
- Dim ipfromip As Integer = fromip(3)
- Dim rangetoip As Integer = toip(2)
- Dim iptoip As Integer = toip(3)
- For i = rangefromip To rangetoip
- For x = ipfromip To iptoip
- Dim treeentry As Integer
- Dim reply As PingReply = intping.Send(ip, 500)
- If reply.Status = IPStatus.Success Then
- TreeView1.Nodes.Add(ip)
- For Each port In portlist
- Dim ip As String = fromip(0) & "." & fromip(1) & "." & i & "." & x
- Dim Client1 As New System.Net.Sockets.TcpClient
- Client1.ReceiveTimeout = 5
- Client1.Connect(ip, port)
- ' MsgBox("limit erreicht" & port)
- TreeView1.Nodes(treeentry).Nodes.Add(port)
- Client1.Close()
- Next
- treeentry += 1
- End If
- Next
- Next
Viele Frauen kamen, viele sind gegangen, eine ist geblieben 12.5.12 ich liebe dich Schatz