Multi-Line Spammer Tutorial + Source code and project

**dragonattak** · 07-04-2011

What do you need?

5 Textbox
5 Checkbox near the textbox for active each textbox
1 Button for start the spammer
Another checkbox called PressEnter for enable the enter key every text to spam
1 numericupdown
3 timer, one called Verify, one Spam and one HotKey

How do?
Write under the "Public Class Form1"

Code:

    Public Verifica As Boolean = True
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer

Set the interval of the Verify timer to 500
After write

Code:

If CheckBox1.Checked Then
        Else
            CheckBox1.Checked = True
        End If
        Spam.Interval = NumericUpDown1.Value

Then click on the button1 and write

Code:

  If Verifica = False Then
            Button1.Text = "Start"
            Verifica = True
            Spam.Stop()
        ElseIf Verifica = True Then
            Button1.Text = "Stop"
            Verifica = False
            Threading.Thread.Sleep("2000")
            Spam.Start()
        End If

Now click on the "Spam" timer and write

Code:

  SendKeys.Send(TextBox1.Text)
        If PressEnter.Checked Then
            SendKeys.Send("{ENTER}")
        End If
        If CheckBox2.Checked Then
            SendKeys.Send(TextBox2.Text)
            If PressEnter.Checked Then
                SendKeys.Send("{ENTER}")
            End If
        ElseIf CheckBox3.Checked Then
            SendKeys.Send(TextBox3.Text)
            If PressEnter.Checked Then
                SendKeys.Send("{ENTER}")
            End If
        ElseIf CheckBox4.Checked Then
            SendKeys.Send(TextBox4.Text)
            If PressEnter.Checked Then
                SendKeys.Send("{ENTER}")
            End If
        ElseIf CheckBox5.Checked Then
            SendKeys.Send(TextBox5.Text)
            If PressEnter.Checked Then
                SendKeys.Send("{ENTER}")
            End If
        End If

Then click on the form and write

Code:

   
msgbox ("Coded by Dragonattak")
Verify.Start()
        HotKey.Start()

After click on the HotKey timer and write

Code:

If GetAsyncKeyState(Keys.F10) Then
            If Verifica = False Then
                Button1.Text = "Start"
                Verifica = True
                Spam.Stop()
            ElseIf Verifica = True Then
                Button1.Text = "Stop"
                Verifica = False
                Threading.Thread.Sleep("2000")
                Spam.Start()
            End If
        End If

And after debug your project
Full source:

Code:

Public Class Form1
    Public Verifica As Boolean = True
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
    Private Sub Checked_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Verify.Tick
        If CheckBox1.Checked Then
        Else
            CheckBox1.Checked = True
        End If
        Spam.Interval = NumericUpDown1.Value
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Verifica = False Then
            Button1.Text = "Start"
            Verifica = True
            Spam.Stop()
        ElseIf Verifica = True Then
            Button1.Text = "Stop"
            Verifica = False
            Threading.Thread.Sleep("2000")
            Spam.Start()
        End If
    End Sub

    Private Sub Spam_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Spam.Tick
        SendKeys.Send(TextBox1.Text)
        If PressEnter.Checked Then
            SendKeys.Send("{ENTER}")
        End If
        If CheckBox2.Checked Then
            SendKeys.Send(TextBox2.Text)
            If PressEnter.Checked Then
                SendKeys.Send("{ENTER}")
            End If
        ElseIf CheckBox3.Checked Then
            SendKeys.Send(TextBox3.Text)
            If PressEnter.Checked Then
                SendKeys.Send("{ENTER}")
            End If
        ElseIf CheckBox4.Checked Then
            SendKeys.Send(TextBox4.Text)
            If PressEnter.Checked Then
                SendKeys.Send("{ENTER}")
            End If
        ElseIf CheckBox5.Checked Then
            SendKeys.Send(TextBox5.Text)
            If PressEnter.Checked Then
                SendKeys.Send("{ENTER}")
            End If
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
("Coded by Dragonattak")        
Verify.Start()
        HotKey.Start()
    End Sub

    Private Sub HotKey_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HotKey.Tick
        If GetAsyncKeyState(Keys.F10) Then
            If Verifica = False Then
                Button1.Text = "Start"
                Verifica = True
                Spam.Stop()
            ElseIf Verifica = True Then
                Button1.Text = "Stop"
                Verifica = False
                Threading.Thread.Sleep("2000")
                Spam.Start()
            End If
        End If
    End Sub
End Class

VirusScans for the project
{X}{X}
The project is below, remember to give credits to me!