[Visual Basic]Advanced Spammer
[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
Now, doble click in "Set Interval" (button 1) and put this
(Note: in my case, the textbox5 will be used to change the interval)
Now, doble click in "Start Spam" (button 2) and put this
Doble click in "Stop Spam" (button 3) and put this
Doble click in Timer1 and put this
Now, doble click in "Check All" (checkbox 5) and put this
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)
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
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
Now, doble click in "Start Spam" (button 2) and put this
Code:
Timer1.Enabled = True
Code:
Timer1.Enabled = False
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}")
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
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...
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...
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.
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.
Originally Posted by CaPeVaLdO
Okey master, do it yourselas you do not like mine
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.
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
Jason = Professional Coder.
@ Jason, Told you that you matured in VB.net!
@ 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!
@ Jason, Told you that you matured in VB.net!
Originally Posted by Jason
Hehehehehehe, but I made that like...6 months ago. So that means I was still a noob YES!