A Port Scanner in VB

A small but effective tool (if you know the right way to use it..you might do wonders..)

——————–

you need:

2 textboxes

1 listbox

3 commandbuttons

1 timer

1 winsock control

——————–

 
 
Private Sub Command1_Click() 
  Timer1.Enabled = True 
End Sub 
 
Private Sub Command2_Click() 
  Timer1.Enabled = False 
  Text2.Text = "0" 
End Sub 
 
Private Sub Command3_Click() 
  List1.Clear 
End Sub 
 
Private Sub Timer1_Timer() 
  On Error Resume Next 
  Winsock1.Close 
  Text2.Text = Int(Text2.Text) + 1 
  Winsock1.RemoteHost = Text1.Text 
  Winsock1.RemotePort = Text2.Text 
  Winsock1.Connect 
End Sub 
 
Private Sub Winsock1_Connect() 
 List1.AddItem Winsock1.RemotePort & " is open!" 
End Sub
 
 

——————–

Explanation:

text1 = IP to scan

text2 = starting port

list1 = list where all open ports are shown

command1 = start

command2 = stop and reset

command3 = clear port list

timer1 = will make the winsock control to try ports