[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:

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)

Not really advanced and not really the first one either...

Originally Posted by mnpeepno2

Not really advanced and not really the first one either...

and not really a tutorial.

side note. Put this control there and paste this code here does NOT qualify as a tutorial.

and not really clean code...

I put intentional errors, so you will need to learn how to solve those errors, not just C&P, debug and build.

Originally Posted by Blubb1337

and not really clean code...

Yeah, put one letter in the "set interval" box and the whole thing ends up shit's creek without a fucking paddle.

Also continuous lines are boring. And since I'm so bored I'll fix them.

Timer1_Tick:

Code:

For i As Integer = 1 to 5
   If Ctype(GroupBox1.Controls("CheckBox" & i.toString), CheckBox).Checked Then
       SendKeys.Send(GroupBox1.Controls("TextBox" & i.ToString).Text)
       SendKeys.Send("{ENTER}")
   End If
Next

CheckAll checkchanged

Code:

For each c As CheckBox In GroupBox1.Controls.OfType(Of CheckBox)
    c.Checked = CheckBox5.Checked
Next

Ok, but i didn't make this tut for professional programmers, i do this for newbies and new programmers.

Originally Posted by CaPeVaLdO

Ok, but i didn't make this tut for professional programmers, i do this for newbies and new programmers.

So why is there no code explanation? If you truly made it for newbies, how will this help them. They just get some code to copy and paste, oh joy.

Originally Posted by Jason

So why is there no code explanation? If you truly made it for newbies, how will this help them. They just get some code to copy and paste, oh joy.

Okey master, do it yourself as you do not like mine

Originally Posted by CaPeVaLdO

Okey master, do it yourselas you do not like mine

http://www.mpgh.net/forum/33-visual-...ox-v1-2-a.html

Have done.

A. Moved to tutorials section, That's what we have this section for.
B. We have 100's of spammer application tutorials, I strongly suggest all users search before releasing a tutorial unless it is better or more advanced then the last (or different code structure)
C. Everyone watch the flaming, I don't think we need another spammer tut, i wish users would search first, however, it is here, Just ignore it if your not going to use it, then the thread will die out and fall to the bottom of the list.

Final Note:
Visual Basic section is not for tutorials, it is for Closed application releases and questions.

Open Source Applications goto Open source, Snippets to snippets vault, tuts to tutorial section and tut requests to tut request section.
There is a reason for the sub sections, use them please & thank you.

Originally Posted by Jason

http://www.mpgh.net/forum/33-visual-...ox-v1-2-a.html

Have done.

Pretty good, but you are professional coder.

Jason = Professional Coder.

@ Jason, Told you that you matured in VB.net!

Originally Posted by NextGen1

Jason = Professional Coder.

@ Jason, Told you that you matured in VB.net!

Hehehehehehe, but I made that like...6 months ago. So that means I was still a noob YES!

Originally Posted by Jason

Hehehehehehe, but I made that like...6 months ago. So that means I was still a noob YES!

What does that tell you about the skills of the OP!

[Visual Basic]Advanced Spammer

Post a Reply

Tags for this Thread