• Home
 · 
• Internet/HTML
 · 
• A very simple port scan

A very simple port scan

A very simple port scan

Rate A very simple port scan

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

If Command1.Caption = "SCAN" Then
Command1.Caption = "STOP"
Winsock1.RemoteHost = Text1.Text
Winsock1.RemotePort = Text2 - 1
Timer1.Enabled = True
  If Text1.Text Or Text2.Text Or Text3.Text = "" Then
  MsgBox ("Complet the informations")
  End If

ElseIf Command1.Caption = "STOP" Then
Command1.Caption = "SCAN"
Timer1.Enabled = False
Exit Sub
End If

End Sub

Private Sub Timer1_Timer()
Winsock1.Close
Winsock1.RemotePort = Winsock1.RemotePort + 1
Winsock1.Connect
If Winsock1.RemotePort = Text3.Text Then
MsgBox ("End of scan")
Timer1.Enabled = False
Command1.Caption = "SCAN"
End If
End Sub

Private Sub Winsock1_Connect()
List1.AddItem "Found " & Winsock1.RemotePort & " Port"


End Sub