[Hexology]

Captcha

Things you'll need
1. Picture box (To display the captcha image)
2. Two buttons (Refresh, and submitting answer)
3. Textbox (To type in the captcha answer)

To start out, right bellow Public Class Form1, put

Code:

Private GetAnswer As String = Nothing

Next we're going to make a function, which will create the captcha's question

Code:

Private Function QuestionMaker() As String
        Dim OperatorsC As String() = {"+", "-"}
Start:
        Dim Num1 As Integer = New Random().Next(1, 9)
        Dim Num2 As Integer = New Random().Next(1, 9)

        If Num1 = Num2 Then GoTo Start

        Dim OperatorC2 As String = OperatorsC(New Random().Next(0, OperatorsC.Length))

        Select Case OperatorC2
            Case "+"
                GetAnswer = Num1 + Num2
                If GetAnswer <= 0 Then GoTo Start
            Case "-"
                GetAnswer = Num1 - Num2
                If GetAnswer <= 0 Then GoTo Start
        End Select
        Return String.Format("{0}{1}{2}", Num1, OperatorC2, Num2)
    End Function

Next we're going to create a private sub which will generate random lines around the captcha image

Code:

Private Sub CreateTheLines(ByVal G As Graphics)
        If Not G Is Nothing Then
            Dim R As New Random()
            Dim lineBrush As New SolidBrush(Color.LightGray)

            For i% = 0 To 9
                G.DrawLines(New Pen(lineBrush, 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

and finally we will create the function for generating the image itself.

Code:

Private Function ImageCreation() As Image
        Dim B As New Bitmap(200, 60)
        Using G As Graphics = Graphics.FromImage(B)
            With G
                .Clear(Color.White)
                .DrawString(QuestionMaker(), New Font("Verdana", 20), Brushes.Black, New Rectangle(0, 0, 200, 60), New StringFormat() With {.Alignment = StringAlignment.Center, .LineAlignment = StringAlignment.Center})
            End With
            CreateTheLines(G)
        End Using
        Return B
    End Function

Usage for this would be like this, The Submit button would have this code

Code:

Select Case TextBox1.Text
            Case Is = GetAnswer

                MessageBox.Show("Correct!", "Correct!", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
                PictureBox1.Image = ImageCreation()
                TextBox1.Clear()
            Case Else
                MessageBox.Show("Incorrect!", "Incorrect!", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
                PictureBox1.Image = ImageCreation()
                TextBox1.Clear()
        End Select

The Refresh button would be this

Code:

PictureBox1.Image = ImageCreation()

and formload sub would contain this as well

Code:

PictureBox1.Image = ImageCreation()

Hope you enjoyed this tutorial!


Picture from Platinum:

[ZherkTG]

thanks for the tutorial i might try this soon

[Hexology]

thanks for the tutorial i might try this soon

Np, glad you liked it!

[Platinum]

Great tutorial man, works flawless! Here's the proof for the people that want to see it:
http://prntscr.com/1erlg3

I have one tip for you guys:
If you want to display the image correctly in pretty much any size then click on the litte arrow of the picturebox in the top right when you've selected the picture box. Change 'SizeMode' to 'Center Image'.

[Hexology]

Great tutorial man, works flawless! Here's the proof for the people that want to see it:
http://prntscr.com/1erlg3

I have one tip for you guys:
If you want to display the image correctly in pretty much any size then click on the litte arrow of the picturebox in the top right when you've selected the picture box. Change 'SizeMode' to 'Center Image'.

Ahh good I'll add the picture to the OP!