[VB.NET] Programa CAPTCHA Doğrulaması Ekleme

[Shitric]

Öncelikle hepinize merhaba arkadaşlar. Bu konumda sizlere Visual Basic programlama dilini kullanarak uygulama içinde CAPTCHA doğrulaması yapmayı açıklayacağım. Yaptığınız bu doğrulama sayesinde internet gerekmeksizin uygulamanıza erişim kontrolü sağlayabilirsiniz. Yapımına gelirsek;

Form Üzerine Eklenmesi Gereken Nesneler

• 1 Adet PictureBox
• 1 Adet TextBox
• 2 Adet Button

PictureBox1 – Oluşturulan güvenlik kodunun görüntüleneceği nesnedir.
TextBox1 – Kullanıcının cevabı girmesini sağlayacak olan nesnedir.
Button1 – Kontrol amaçlı olarak kullanılacak olan butondur. Cevabın doğru yada yanlış olduğunu kontrol edecektir.
Button2 – Oluşturulan güvenlik kodunu yenilemek için kullanılacaktır.

Kodlar

PublicClass'ın altindaki boşluğa;

Private Cevap As String = Nothing
Private Function KodOlustur() As String
Dim Operatorler As String() = {"+", "-"}
Baslangic:
Dim Sayi1 As Integer = New Random().Next(1, 9)
Dim Sayi2 As Integer = New Random().Next(1, 9)
If Sayi1 = Sayi2 Then GoTo Baslangic
Dim cOperatorler As String = Operatorler(New Random().Next(0, Operatorler.Length))
Select Case cOperatorler
Case "+"
Cevap = Sayi1 + Sayi2
If Cevap <= 0 Then GoTo Baslangic
Case "-"
Cevap = Sayi1 - Sayi2
If Cevap <= 0 Then GoTo Baslangic
End Select
Return String.Format("{0}{1}{2}", Sayi1, cOperatorler, Sayi2)
End Function
Private Sub CizgiOlustur(ByVal G As Graphics)
If Not G Is Nothing Then
Dim R As New Random()
Dim RenkFirca As New SolidBrush(Color.LightGray)
For i% = 0 To 9
G.DrawLines(New Pen(RenkFirca, R.Next(1, 2)), New Point() {New Point(0, R.Next(0, 60)), New Point(200, R.Next(0, 60))})
Next
End If
End Sub
Private Function ResimOlustur() As Image
Dim B As New Bitmap(200, 60)
Using G As Graphics = Graphics.FromImage(B)
With G
.Clear(Color.White)
.DrawString(KodOlustur(), New Font("Segoe UI", 20), Brushes.Black, New Rectangle(0, 0, 200, 60), New StringFormat() With {.Alignment = StringAlignment.Center, .LineAlignment = StringAlignment.Center})
End With
CizgiOlustur(G)
End Using
Return B
End Function

Button1'in Kodları;

Select Case TextBox1.Text

Case Is = Cevap
MessageBox.Show("Doğru", "Doğru!", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
PictureBox1.Image = ResimOlustur()
TextBox1.Clear()
Case Else
MessageBox.Show("Yanlış!", "Yanlış!", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
PictureBox1.Image = ResimOlustur()
TextBox1.Clear()
End Select
TextBox1.Clear()

Button2'in Kodları;

PictureBox1.Image = ResimOlustur()

Projenin Son Hali

Bağlantıları görmek için lütfen Giriş Yap

Bağlantıları görmek için lütfen Giriş Yap

----------------------------------------------------------------------------------------

Emek var bir beğeniyi çok görmeyin. İyi forumlar...

 

[sentimental]

saol yararlı

 

[Shitric]

saol yararlı

Teşekkürler

 

[OxiDox]

Bende Captcha yı Visual de Nasıl Yapıldığını Arıyordum Sağol Konu İçin

 

[LmaR]

Sağolasın güzel olmuş

 

[Shitric]

Bende Captcha yı Visual de Nasıl Yapıldığını Arıyordum Sağol Konu İçin

Rica Ederim

 

[Shitric]

Sağolasın güzel olmuş

Teşekkürler

 

[LeftSpace]

nice

 

[CauSXOXO]

nice senelere

 

[ExpertMurderer]

Güzel olmuş eline sağlık

 

[LazHayalet]

Nice Çalınır Emeğe Saygı

 

[Shitric]

Maşallah yetkililer basmış TK'dan hatırlayan varmı programçı apilerim

 

[`XMaze^^]

böyle farklı şeyler yapanları severim başarılarının devamı kardeşim

 

[kerem46]

Kullanacamda bir sorun çıktı

 

[Shitric]

Kullanacamda bir sorun çıktı

Hemen yardımcı olalım

böyle farklı şeyler yapanları severim başarılarının devamı kardeşim

Sağolasın

 

[ByPsychopath]

Güzel Bi Örnek OLmuş Büyük Projelere Kayıtlar İçin Kullanılabilir.

 

[WoLLeG]

Güncel konu

 

[nader11ndeu]

Güzel konu emek var, teşekkürler değerli paylaşımınız için. Elbet birinin işine yarıyacaktır

 

[Shitric]

Güzel konu emek var, teşekkürler değerli paylaşımınız için. Elbet birinin işine yarıyacaktır

Rica ederim Furkanım

 

[Hasan K.]

teşekkürler