Merak Edenlere Çok Basit bir şekilde Kullanışlı Bir Port Tarayıcı Yapımı nı adım adım inceleyeceğiz. Bu Arada En baştan Anlatmıyorum(Algoritma Nedir, Vb nin Arabirimini de tanıtmayacağım istek olursa ileri de Anlatırım) bu konuyla ilgilenen Zaten VB'nin Arabirimini Anlamıştır. Problem Algoritmayı Düzgün Kurabilmekte. Onuda Kodlarla birlikta Anlaşılır Yazacağım. Dikkat Ederseniz Algoritma mantığını da anlarsınız


Vb 'yi açınca Karşınıza Gelen Menüden Standart Exe yi Seçin

bu Bize Boş Bir Form Açacaktır. [Form=Proğramın Artaalanı da diyebiliriz.]

Formu açtıkdan Sonra Sol Tarafaki "General" Araç çubuğundan 4 tane Textbox'u yan yana ekleyeceğiz. Eklediğimiz Textbox ların boyutunu 3 karakter alacak kadar küçük tutmakta fayda görüyorum.

Daha Sonra Sol Taraftaki Properties Menüsünden Textboxların Adlarını ip1, ip2,ip3,ip4 olarak Değiştireceğiz.

(Text1 yazan beyaz kutucuğa 1 kere tıklatıp sağ properties menüsünden Name= text1 yazan yerin karşılığını(Text1) kısmını "ip1" olarak değiştirin daha sonra her nesneye 1 er kere tıklayarak bunu bütün textboxlara yapın)

Bunu yapmamızın sebebi

212.111.199.01 'gibi gireceğimiz ip numaralarını 4 guruba "." işaretleriyle ayıracak olmamız.

Yukarıdaki İşlemi Yaptıysanız Sol Taraftaki Menüden İki Tane de Command Button Ekleyin. Textbox 'u eklediğiniz Yerin Hemen Altındaki düğmeye basın

Ve Bunların Sağ Menüden Caption'larını[Başlık, Manşet Anlamına Gelir] Command1 inki ni "Başla" Yapıyoruz Command2'ninkini İse "Dur" Olarak Ayarlıyoruz.

Ardından Bir Tane'de Listbox Koyuyoruz.

Ve Standart menüden Project Başlığının Altındaki Components e tıklıyoruz Dileyen Ctrl + T ile de aynı şeyi yapmış olur.
Karşımıza Çıkan Menüden Microsoft Winsock Control yazan Satırı işaretliyoruz.

Soldaki Menüye Winsock Kontrolünün Eklenmiş Olması Lazım



Vb' De Bir Çok Şey kontroller Halindedir. Mesela Yapacağınız Prg İnternet ile ilgiliyse Winsock Kontrolünü Yada İnet kontrolünü Kullanırsınız.

Yada Müzik ile ilgiliyse Mediaplayer kontrolunü, FLash Eklemek İstiyorsanız Gene flash Kontrolünü Kullanırsınız.




Eklediğimiz Winsock Kontrollerinden 4 Tane Formunuza Çizin, Textbox Çizdiğiniz gibi.

ve F5 tuşuna Basın(çalıştırın). gördüğünüz gibi Winsock Kontrolü Program Çalıştığı Zaman görünmüyor. Bir Çok Kontrol Sadece Uygulama Amaçlıdır. Dolayısıyla Görünmesi Gerekmez veya görünmez.

Gene Sol taraftaki Menüden 4 Tane Timer nesnesini Formunuza Çizin.
Dedemin Saatine Benzer Bir Simgesi Var. Bu Nesne de form üzerinde Görülür ama çalıştırıldığı Zaman Görülmez.
Form'umuz Aşağıdaki Şekle Gelince kodumuzu Aşağıdan Kopyalayıp
Yapıştıralım











Arkadaşlar Yoruldum Hatta Yazmaktan Sıkıldım Anlamayan Olursa Cevap Yazarım.

Formun Boş bir Yerine İki kere tıklayarak Code Sayfasını Açın

Yazılı Olan Her şeyi Silin Ve Aşağıdaki Kodu Kopyala Yapıştır Yapın.
Belki Forum Da birşey anlamazsınız ama Vb Ye Yapıştırdığınızda Renklendirme Yapacaktır Vb ve Açıklayıcı Yazılar Biraz Fayda Sağlar.


'port ve Delay( Gecikme Süresini Sayı olarak Tanımlıyoruz
Dim delay, port As Integer
Private Sub Command1_Click()
' Başla düğmesine Basılınca Yapılacakları yazıoruz

List1.Clear ' Listeyi Temizle
Timer1.Interval = delay ' Tüm Timerların Zamanını Delay Değerine Zamanla
Timer2.Interval = delay
Timer3.Interval = delay
Timer4.Interval = delay
Timer1.Enabled = True ' Bütün Timerları aç
Timer2.Enabled = True
Timer3.Enabled = True
Timer4.Enabled = True
End Sub

Private Sub Command2_Click()
'Dur Düğmesine Basınca
Timer1.Enabled = False ' Bütün Timer Ları Kapat
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
End Sub

Private Sub Form_Load()
'Form Açılınca
port = 80 ' Tarancak Portu 80 olarak Ayarladık istersek 21 yazip ftp , 139 yazip share arayabiliriz
delay = 600 ' Bekleme(Gecikme) süresini 600 Milisaniye ye ayarladık
End Sub


Private Sub Winsock1_Close()
' Winsock1 Kapanırsa Winsock u Kapat Mantıksız Gelebilir Ama Laçkalaşmayı Önlüyor
Winsock1.Close
End Sub
Private Sub Winsock1_Connect()
'Winsock1 Eğer İstediğimiz İp nin İstediğimiz Portuna Balanırsa
List1.AddItem Winsock1.RemoteHostIP 'Listeye Ekle
Winsock1.Close ' Winsock1 i kapat
End Sub
Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
' Winsock1 Hata Verirse
Winsock1.Close 'Winsock u Kapat
End Sub
Private Sub Winsock2_Close()
Winsock2.Close ' Diğer Winsockda Açıklamasını Yapmıştım 3 kere Daha yazmaktan Üşendim
End Sub

Private Sub Winsock2_Connect()
' Diğer Winsockda Açıklamasını Yapmıştım 3 kere Daha yazmaktan Üşendim
List1.AddItem Winsock2.RemoteHostIP
Winsock2.Close
End Sub

Private Sub Winsock2_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
' Diğer Winsockda Açıklamasını Yapmıştım 3 kere Daha yazmaktan Üşendim
Winsock2.Close
End Sub

Private Sub Winsock3_Close()
' Diğer Winsockda Açıklamasını Yapmıştım 3 kere Daha yazmaktan Üşendim
Winsock3.Close
End Sub

Private Sub Winsock3_Connect()
' Diğer Winsockda Açıklamasını Yapmıştım 3 kere Daha yazmaktan Üşendim
List1.AddItem Winsock3.RemoteHostIP
Winsock3.Close
End Sub

Private Sub Winsock3_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
' Diğer Winsockda Açıklamasını Yapmıştım 3 kere Daha yazmaktan Üşendim
Winsock3.Close
End Sub

Private Sub Winsock4_Close()
' Diğer Winsockda Açıklamasını Yapmıştım 3 kere Daha yazmaktan Üşendim
Winsock4.Close
End Sub

Private Sub Winsock4_Connect()
' Diğer Winsockda Açıklamasını Yapmıştım 3 kere Daha yazmaktan Üşendim
List1.AddItem Winsock4.RemoteHostIP
End Sub
Private Sub Winsock4_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
' Diğer Winsockda Açıklamasını Yapmıştım 3 kere Daha yazmaktan Üşendim
Winsock4.Close
End Sub
Private Sub Timer1_Timer()
' Gecikme Olarak Verdiğimiz Süre Dolunca 600 Mili Saniyede bir bu işi yapacak yani
Winsock1.Close ' Winsock1 i kapat
Winsock1.Connect getip, port ' Winsock1 e Bir Sonraki İp Adresini al Ve Port olarak tanımladığımız Prottan Bağla
End Sub

Private Sub Timer2_Timer()
'Diğer timer La Aynı İşi Yapıyor
Winsock2.Close
Winsock2.Connect getip, port
End Sub

Private Sub Timer3_Timer()
'Diğer timer La Aynı İşi Yapıyor
Winsock3.Close
Winsock3.Connect getip, port
End Sub
Private Sub Timer4_Timer()
'Diğer timer La Aynı İşi Yapıyor
Winsock4.Close
Winsock4.Connect getip, port
End Sub

Public Function getip() As String
' Text Kutularından Aldığı 255 255 225 222 gibi değerleri arasına nokta koyarak Birleştiriyor
' 212.212.12.1 Gibi yapıyor
getip = ip1.Text & "." & ip2.Text & "." & ip3.Text & "." & ip4.Text

' Eğer ip4 deki sayı 255 den küçükse 1 ekliyor
If ip4.Text < 255 Then
ip4.Text = ip4.Text + 1
'ip4 255 küçük Değilse ip4 deki yazıyı 0 yapıp
ElseIf ip4.Text = 255 Then
ip4.Text = 0
'ip3 255 küçük ise ip3 e 1 ekliyor
If ip3.Text < 255 Then
ip3.Text = ip3.Text + 1
'ip3 255 ise ip3 ü 0 yapıyor
ElseIf ip3.Text = 255 Then
ip3.Text = 0
' Eğer ip2 255 den küçükse ip2 ye 1 ekliyor
If ip2.Text < 255 Then
ip2.Text = ip2.Text + 1
'Değilse ip2 nin değerini 0 yapıyor
ElseIf ip2.Text = 255 Then
ip2.Text = 0
End If
End If
End If
End Function





Subnet Port Tarayıcının Vb De Hazırlanmış (Derlenmemiş) Kaynak Kodu

Abuzer Subnet Port Scanner

Bu Arada Subnet port Scanner =

192.0.0.1 Den Başlayarak
192.255.255.255 ye kadar olan istediğiniz portu taratabileceğiniz bir tarayıcı türüdür. Bununla Subseven, gibi trojan Portlarını, Web Serverları, Mail Serverları, Pop3 Serverları gibi bir çok şeyi taraya bilirsiniz.