Selamlar,
Bir önce ki konumda kişinin IP adresini nasıl bulacağınızı göstermiştim. Şimdi ise bu ip'leri nasıl engelleyeceğinizi göstereceğim. Çok basit.
Login ekranınızda buton ile giriş yapıyorsanız. Butona çift tıklayın.
Peki bu Banlanan IP Adreslerini nasıl kontrol edeceğiz. İsterseniz veritabanı kullanabilirsiniz. Veri tabanı işlemini burada anlatmayacağım kısaca mantığını göstereyim.
Veritabanın banlanan ip adreslerini bir listbox'a aktarın. Daha sonra butonun kontrolüne aşağıda ki kodu ekleyin.
Bu en basit yöntemidir.
Saçma sapan yorumlar yapmayın.
Yanlış olduğunu düşündüğünüz yerleri düzeltebilirsiniz.
Varsa öneriniz ekleyin
Bir önce ki konumda kişinin IP adresini nasıl bulacağınızı göstermiştim. Şimdi ise bu ip'leri nasıl engelleyeceğinizi göstereceğim. Çok basit.
Login ekranınızda buton ile giriş yapıyorsanız. Butona çift tıklayın.
Kod:
If MyIP = "Banlanan IP Adresi" Then ' /////MyIP değişkeni bir önceki konudan alıntıdır. Orada ki kodları da projenize eklemeniz gerekmektedir./////
MsgBox("Bu IP'den girişiniz engellenmiştir.")
Else
MsgBox("Giriş yapmada ki kodlarınızı buraya ekleyin.")
End IfPeki bu Banlanan IP Adreslerini nasıl kontrol edeceğiz. İsterseniz veritabanı kullanabilirsiniz. Veri tabanı işlemini burada anlatmayacağım kısaca mantığını göstereyim.
Veritabanın banlanan ip adreslerini bir listbox'a aktarın. Daha sonra butonun kontrolüne aşağıda ki kodu ekleyin.
Kod:
Dim bandurum As String="bansız"
For i = 0 To listbox1.items.count - 1
If MyIP = listbox1.items(i) Then
bandurum = "ipbanlı"
End If
Next
Task.Delay(300) 'Bilgisayarınız yavaşsa burada ki sayıyı arttırın.
If bandurum = "ipbanlı" Then
MsgBox("Bu IP'den girişiniz engellenmiştir.")
ElseIf bandurum = "bansız" Then
MsgBox("Giriş yapmada ki kodlarınızı buraya ekleyin.")
End IfBu en basit yöntemidir.
Saçma sapan yorumlar yapmayın.
Yanlış olduğunu düşündüğünüz yerleri düzeltebilirsiniz.
Varsa öneriniz ekleyin
