0 [Visual Basic]Advanced Spammer

I'm was a little bored, so i decided to make this advanced spammer and share with MPGH!
Maybe have another one here, but this one is full working! Just follow the TUT and solve the intentional errors.

Open Visual Basic 2008 or 2010 (i use 2008)
Create a new project, select Windows Form and name whatever you want.

Okey. First, you'll need:
-2 GroupBoxes
-5 TextBoxes (can be more than that)
-5 CheckBoxes (can be more than than)
-3 buttons
-Timer

Do like this:


Name the GroupBoxes
Message (GroupBox1)
Interval (GroupBox2)

Name the checkboxes
Text 1 (this is checkbox1)
Text 2 (this is checkbox2)
Text 3 (this is checkbox3)
Text 4 (this is checkbox4)
Check All (this is checkbox5)

Now, name the buttons.
Set Interval (button 1)
Start Spam (button 2)
Stop Spam (button 3)

And should look like this:

Click this bar to view the full image.

Okey. The design is all done. Now, let's go to the code part.

In the top of code, put

Code:

Public Class Form1

    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer

Now, doble click in "Set Interval" (button 1) and put this

Code:

 
        If TextBox5.Text = ("") Then
            MsgBox("Please, put a valid number value", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "ERROR")
        Else
            Timer1.Interveal = ((TextBox1.Text) * (1000))
        End If

(Note: in my case, the textbox5 will be used to change the interval)

Now, doble click in "Start Spam" (button 2) and put this

Code:

Timer1.Enabled = True

Doble click in "Stop Spam" (button 3) and put this

Code:

Timer1.Enabled = False

Doble click in Timer1 and put this

Code:

        If CheckBox1.Checked = True Then
            SendKeys.Send(TextBox1.Text)
            SendKeys.Send("{Enter}")
        End If
        If CheckBox2.Checked = True Then
            SendKeys.Send(TextBox2.Text)
            SendKeys.Send("{Enter}")
        End If
        If CheckBox3.Checked = True Then
            SandKeys.Send(TextBox3.Text)
            SendKeys.Send("{Enter}")
        End If
        If CheckBox4.Checked = True Then
            SendKeys.Send(TextBox4.Text)
            SendKeys.Send("{Enter}")

Now, doble click in "Check All" (checkbox 5) and put this

Code:

        If CheckBox5.Checked = True Then
            CheckBox1.Checked = True
            CheckBox2.Checked = True
            CheckBox3.Checked = True
            CheckBox4.Checked = True
        Else
            CheckBox1.Checked = False
            CheckBox2.Checked = False
            CheckBox3.Checked = False
            CheckBox4.Checked = False
            ChekcBox5.Checked = False
        End If

And it's DONE! Solve the intentional errors, save, debug to see if it works and then Build and share with your friends!

Credits:
-Capevaldo (for all)