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
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


Blogger said...

Bluehost is one of the best hosting company for any hosting services you might need.

Post a Comment