[Visual Basic]Advanced Spammer

[Capevaldo]

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

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

 
        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

Timer1.Enabled = True

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

Timer1.Enabled = False

Doble click in Timer1 and put this

        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

        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)

[mnpeepno2]

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

[Jason]

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.

[Blubb1337]

and not really clean code...

[Capevaldo]

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

[Jason]

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:

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

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

[Capevaldo]

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

[Jason]

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.

[Capevaldo]

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

[Jason]

Okey master, do it yourselas you do not like mine

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

Have done.

[NextGen1]

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.

[Capevaldo]

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

Have done.

Pretty good, but you are professional coder.

[NextGen1]

Jason = Professional Coder.

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

[Jason]

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!

[NextGen1]

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!