A Port Scanner in VB


port
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

2 comments:

jane holly said...

This professional hacker is absolutely reliable and I strongly recommend him for any type of hack you require. I know this because I have hired him severally for various hacks and he has never disappointed me nor any of my friends who have hired him too, he can help you with any of the following hacks:

-Phone hacks (remotely)
-Credit repair
-Bitcoin recovery (any cryptocurrency)
-Make money from home (USA only)
-Social media hacks
-Website hacks
-Erase criminal records (USA & Canada only)
-Grade change

Email: onlineghosthacker247@ gmail .com

Amalia Eva said...

I Want to use this medium in appreciating hacking setting, after being ripped off my money,he helped me find my cheating lover whom i trusted alot and he helped me hack his WHATSAPP, GMAIL and kik and all other platforms and i got to know that he has being cheating on me, in less than 24 hours he helped me out with everything, hacking setting is trust worthy and affordable contact him on: hackingsetting50 at gmail dot com

Post a Comment

STEALTH HACKER

Sponsers