GAGBOX is your one source to humor and fun

30 March, 2010

A Port Scanner in VB


A small but effective tool (if you know the right way to use 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()
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
Text2.Text = Int(Text2.Text) + 1
Winsock1.RemoteHost = Text1.Text
Winsock1.RemotePort = Text2.Text
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

Share Your Thoughts!


Post a Comment

Copyright © 2013 GagBox™ is a registered trademark.

Designed by GagBox Inc. Desiged By Blogger Hosting by Blogger.