Membuat program Port Scanner

Disini penulis mencoba membuat program Port Scanner, dan komponen yang dibutuhkan untuk membuat port scanner adalah :

2 Text boxes ( Text1,Text2 )
1 ListBox ( List1 )
3 Command Buttons ( Command1, Command2, Command3 )
1 Timer ( Timer1 )
1 Winsock Component ( Winsock1 )
Jika kamu tidak tahu tempat dimana mengaktifkan komponen lihat gambar berikut



Setelah tampil jendela komponen silakan kamu mencari komponen yang bernama "Microsoft Winsock Control 6.0 (SP6)"

Berikut contoh komponen yang sudah ditemukan



Oke sekarang silakan membuat form seperti dibawah ini atau kamu bisa membuat sendiri desain formnya dengan ide kamu sendiri



Dan Berikut untuk kode lebih jelasnya

Code:

Private Sub Form_Load()
Timer1.Interval = 1
Timer1.Enabled = False
Text2.Text = "0"
End Sub
Private Sub Timer1_Timer()
On Error Resume Next
Winsock1.Close
Text2.Text = Text2.Text + 1
Winsock1.RemoteHost = Text1.Text
Winsock1.RemotePort = Text2.Text
Winsock1.Connect
End Sub
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 Winsock1_Connect()
List1.AddItem Winsock1.RemotePort & " is open!"
End Sub

Code Explanation:-

Code:

Private Sub Form_Load()
Timer1.Interval = 1
Timer1.Enabled = False
Text2.Text = "0"
End Sub

Code:

Private Sub Timer1_Timer()
On Error Resume Next
Winsock1.Close
Text2.Text = Text2.Text + 1
Winsock1.RemoteHost = Text1.Text
Winsock1.RemotePort = Text2.Text
Winsock1.Connect
End Sub

Code:

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Code:

Private Sub Command2_Click()
Timer1.Enabled = False
Text2.Text = "0"
End Sub

Code:

Private Sub Command3_Click()
List1.Clear
End Sub

Code:

Private Sub Winsock1_Connect()
List1.AddItem Winsock1.RemotePort & " is open!"
End Sub

Jika port sudah discan maka hasilnya akan tampil di listbox
Selamat mencoba dan mengembangkan sendiri...