[Visual Basic]Advanced Spammer

I'm was a little bored, so i decided to make this advanced spammer and share with you all!
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 2010)
Create a new project, select Windows Form and name whatever you want.

Form1 Needs!:
-2 GroupBoxes
-5 TextBoxes (can be more than that)
-5 CheckBoxes (can be more than than)
-3 buttons
-Timer
Renaming
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)

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

Codings!
Put this below Public Class Form1 Like this :

Code:

Public Class Form1

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

Set Interval (button 1) Code

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)

Start Spam (button 2) Code :

Code:

Timer1.Enabled = True

Stop Spam (button 3) Code :

Code:

Timer1.Enabled = False

Timer1 Code:

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}")

Check All (checkbox 5) Code :

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

Well All Done !
Please give credits if you use this

..

THANK YOU !

[Visual Basic]Advanced Spammer

Post a Reply

Similar Threads

Tags for this Thread