(adsbygoogle = window.adsbygoogle || []).push({}); **Okay, well I promised I would post the source and all. Instead of just sending it out 1 by 1, I decided to make a tute on it.

This is a Tutorial for my previous thread containing the program coded in vb express 2010. I will do my best to explain this process, if I fail to properly explain something, or I mess up on something feel free to let me know.
This is an original work of mine, coded by me, from my thoughts and ideas. I know there are going to be some premium members that google my code and find bits of it here and there. Let me explain how coding works really fast:
The year is 2011, and you are interested in learning how to program, or code. You go and buy vb for dummies from your local book store, you learn about variables, strings, integers, and so much more. You feel you have enough
knowledge now to step out on your own, and you realize then that you have no idea what your doing. You turn to your friend google, you see some ideas, you see some code. You take that code and make your own program..now
if you changed that code in any way shape or form to suit your needs, it is your original work. I don't care what anyone says, there are only so many ways to do the same thing, and I guarantee you that a 7yr old in asia has already
done it. Try as you like, your program has been made 100 times over by companies and 3yr olds in china. So before you flame that you found a piece of my code here and there, remember, I made this myself, and you can only do
the same thing in "x" amount of ways, there are bound to be more like it. All the new people, don't be upset when a douche bag premium (there are some out there) says that you copied it, as long as you manipulated it to your needs
and learned something from the process, it is your work.

Lets get started, shall we lady's? Yes I'm quite buzzed. These are for new people that honestly want to learn, if your l337 then don't flame this just post your own work like I do..any new person to the site that needs help or anything,
let me know I will do what I can. Oh yeah, the audio is jacked, oh well deal with it, this site was not worthy of a camtasia edit, so i used camstudio

I'm not counting how many labels and how many buttons and checkboxes. You will have to look at the code to figure that out. I posted these videos along with the code in case you get stuck you have 2 references to go off of. Hopefully
you will make your own work with this. Thanks - Ralphie-does-Rock

1. Where to get vb express

2. Form Basics; Visible = true / false basics

3. How to spam

Code (Form1):

Public Class Form1


Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Timer1.Interval = ((TextBox2.Text) * (1000))

End Sub

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
Timer1.Enabled = True
End Sub

Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
Timer1.Enabled = False
End Sub

Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
SendKeys.Send(TextBox1.Text)
SendKeys.Send("{Enter}")
End Sub

Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
If CheckBox1.Checked = True Then
SendKeys.Send("" + TextBox3.Text + "")
SendKeys.Send("{Enter}")
End If
If CheckBox2.Checked = True Then
SendKeys.Send("" + TextBox3.Text + "")
SendKeys.Send("{Enter}")
End If
If CheckBox3.Checked = True Then
SendKeys.Send("" + TextBox3.Text + "")
SendKeys.Send("{Enter}")
End If

End Sub

Private Sub ToolTip1_Popup(sender As System.Object, e As System.Windows.Forms.PopupEventArgs) Handles ToolTip1.Popup

End Sub

Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
If CheckBox4.Checked = True Then
SendKeys.Send("[color=" + TextBox5.Text + "red" + TextBox5.Text + "]" + TextBox4.Text + "[/color]")
SendKeys.Send("{Enter}")
End If
If CheckBox5.Checked = True Then
SendKeys.Send("[color=" + TextBox5.Text + "blue" + TextBox5.Text + "]" + TextBox4.Text + "[/color]")
SendKeys.Send("{Enter}")
End If
If CheckBox6.Checked = True Then
SendKeys.Send("[color=" + TextBox5.Text + "yellow" + TextBox5.Text + "]" + TextBox4.Text + "[/color]")
SendKeys.Send("{Enter}")
End If
If CheckBox7.Checked = True Then
SendKeys.Send("[color=" + TextBox5.Text + "green" + TextBox5.Text + "]" + TextBox4.Text + "[/color]")
SendKeys.Send("{Enter}")
End If
If CheckBox8.Checked = True Then
SendKeys.Send("[color=" + TextBox5.Text + "brown" + TextBox5.Text + "]" + TextBox4.Text + "[/color]")
SendKeys.Send("{Enter}")
End If
If CheckBox9.Checked = True Then
SendKeys.Send("[color=" + TextBox5.Text + "orange" + TextBox5.Text + "]" + TextBox4.Text + "[/color]")
SendKeys.Send("{Enter}")
End If

End Sub

Private Sub TextToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles TextToolStripMenuItem.Click
ColorDialog1.FullOpen = False
ColorDialog1.ShowDialog()
Label1.ForeColor = ColorDialog1.Color
Label2.ForeColor = ColorDialog1.Color
Label3.ForeColor = ColorDialog1.Color
Label4.ForeColor = ColorDialog1.Color
Label6.ForeColor = ColorDialog1.Color
Label7.ForeColor = ColorDialog1.Color
CheckBox1.ForeColor = ColorDialog1.Color
CheckBox2.ForeColor = ColorDialog1.Color
CheckBox3.ForeColor = ColorDialog1.Color
CheckBox4.ForeColor = ColorDialog1.Color
CheckBox5.ForeColor = ColorDialog1.Color
CheckBox6.ForeColor = ColorDialog1.Color
CheckBox7.ForeColor = ColorDialog1.Color
CheckBox8.ForeColor = ColorDialog1.Color
CheckBox9.ForeColor = ColorDialog1.Color

End Sub

Private Sub BGToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles BGToolStripMenuItem.Click
ColorDialog2.FullOpen = False
ColorDialog2.ShowDialog()
Me.BackColor = ColorDialog2.Color
End Sub

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub MenuStrip1_ItemClicked(sender As System.Object, e As System.Windows.Forms.ToolStripItemClickedEventArgs ) Handles MenuStrip1.ItemClicked

End Sub

Private Sub ExitToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ExitToolStripMenuItem.Click
End
End Sub

Private Sub Timer2_Tick(sender As System.Object, e As System.EventArgs) Handles Timer2.Tick
Label5.ForeColor = Color.FromArgb(RGB(255 * Rnd(), 255 * Rnd(), 255 * Rnd()))
End Sub

Private Sub AboutToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles AboutToolStripMenuItem.Click
Label5.Visible = True
Label6.Visible = True
Button6.Visible = True
Label1.Visible = False
Label2.Visible = False
Label3.Visible = False
Label4.Visible = False
Label7.Visible = False
TextBox1.Visible = False
TextBox2.Visible = False
TextBox3.Visible = False
TextBox4.Visible = False
TextBox5.Visible = False
CheckBox1.Visible = False
CheckBox2.Visible = False
CheckBox3.Visible = False
CheckBox4.Visible = False
CheckBox5.Visible = False
CheckBox6.Visible = False
CheckBox7.Visible = False
CheckBox8.Visible = False
CheckBox9.Visible = False
Button1.Visible = False
Button2.Visible = False
Button3.Visible = False
Button4.Visible = False
Button5.Visible = False

End Sub

Private Sub HelpToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles HelpToolStripMenuItem1.Click
Label5.Visible = True
Label7.Visible = True
Button6.Visible = True
Label1.Visible = False
Label2.Visible = False
Label3.Visible = False
Label4.Visible = False
Label6.Visible = False
TextBox1.Visible = False
TextBox2.Visible = False
TextBox3.Visible = False
TextBox4.Visible = False
TextBox5.Visible = False
CheckBox1.Visible = False
CheckBox2.Visible = False
CheckBox3.Visible = False
CheckBox4.Visible = False
CheckBox5.Visible = False
CheckBox6.Visible = False
CheckBox7.Visible = False
CheckBox8.Visible = False
CheckBox9.Visible = False
Button1.Visible = False
Button2.Visible = False
Button3.Visible = False
Button4.Visible = False
Button5.Visible = False
End Sub

Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click
Label5.Visible = False
Label7.Visible = False
Button6.Visible = False
Label1.Visible = True
Label2.Visible = True
Label3.Visible = True
Label4.Visible = True
Label6.Visible = False
TextBox1.Visible = True
TextBox2.Visible = True
TextBox3.Visible = True
TextBox4.Visible = True
TextBox5.Visible = False
CheckBox1.Visible = True
CheckBox2.Visible = True
CheckBox3.Visible = True
CheckBox4.Visible = True
CheckBox5.Visible = True
CheckBox6.Visible = True
CheckBox7.Visible = True
CheckBox8.Visible = True
CheckBox9.Visible = True
Button1.Visible = True
Button2.Visible = True
Button3.Visible = True
Button4.Visible = True
Button5.Visible = True
End Sub

Private Sub SmiliesToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles SmiliesToolStripMenuItem.Click
Dim Form1 As New Form1
Form2.Show()

End Sub
End Class

Code (Form2):
Public Class Form2

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
SendKeys.Send("You must login or register to view this content.")
SendKeys.Send("{Enter}")
End Sub

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
SendKeys.Send("You must login or register to view this content.")
SendKeys.Send("{Enter}")
End Sub

Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
SendKeys.Send("You must login or register to view this content.")
SendKeys.Send("{Enter}")
End Sub

Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
SendKeys.Send("You must login or register to view this content.")
SendKeys.Send("{Enter}")
End Sub

Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
SendKeys.Send("You must login or register to view this content.")
SendKeys.Send("{Enter}")
End Sub

Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click
SendKeys.Send("You must login or register to view this content.")
SendKeys.Send("{Enter}")
End Sub

Private Sub Button7_Click(sender As System.Object, e As System.EventArgs) Handles Button7.Click

SendKeys.Send("You must login or register to view this content.")
SendKeys.Send("{Enter}")
End Sub

Private Sub Button8_Click(sender As System.Object, e As System.EventArgs) Handles Button8.Click
SendKeys.Send("You must login or register to view this content.")
SendKeys.Send("{Enter}")
End Sub

Private Sub Button9_Click(sender As System.Object, e As System.EventArgs) Handles Button9.Click
SendKeys.Send("You must login or register to view this content.")
SendKeys.Send("{Enter}")
End Sub

Private Sub Button10_Click(sender As System.Object, e As System.EventArgs) Handles Button10.Click
SendKeys.Send("You must login or register to view this content.")
SendKeys.Send("{Enter}")
End Sub

Private Sub Button11_Click(sender As System.Object, e As System.EventArgs) Handles Button11.Click
SendKeys.Send("You must login or register to view this content.")
SendKeys.Send("{Enter}")
End Sub

Private Sub Button12_Click(sender As System.Object, e As System.EventArgs) Handles Button12.Click
SendKeys.Send("You must login or register to view this content.")
SendKeys.Send("{Enter}")
End Sub

Private Sub Button13_Click(sender As System.Object, e As System.EventArgs) Handles Button13.Click
SendKeys.Send("You must login or register to view this content.")
SendKeys.Send("{Enter}")
End Sub

Private Sub Button14_Click(sender As System.Object, e As System.EventArgs) Handles Button14.Click
SendKeys.Send("You must login or register to view this content.")
SendKeys.Send("{Enter}")
End Sub

Private Sub Button15_Click(sender As System.Object, e As System.EventArgs) Handles Button15.Click
SendKeys.Send("You must login or register to view this content.")
SendKeys.Send("{Enter}")
End Sub

Private Sub Button16_Click(sender As System.Object, e As System.EventArgs) Handles Button16.Click
Dim Form2 As New Form2
Me.Hide()

End Sub
End Class

There you have it, don't flame. If you have something constructive to say, please say it. If you need to flame, then PM. If your new and would like to learn, or want to help or need help PM me. I am here to contribute
to the community and the good staff and good premiums. All the new members are more than welcome to contact me. We can work together to make this site good again.

---------- Post added at 12:38 AM ---------- Previous post was at 12:22 AM ----------

Almost forgot, yes I could have used a variable for color tags. NOOB NOTE** if you noticed, the string option in the sendkeys function opens and closes using " " paranth..now I did it this way to show how to work around without creating variables, but if you need help on how to do that, let me know. I will explain variables for you and get you started on that. I only did it this way so you could see with your own eyes how I worked around that issue.

---------- Post added at 01:20 AM ---------- Previous post was at 12:38 AM ----------

LOL I see it borked my code and included smiley's oh well you get the picture, that should have been a url in between the quotes. Also the video for the visible = true was not uploaded. If you need to see that video PM me and I can remake it for you, this applies to non-premiums only. I had too much to drink and borked up my youtube uploads but this should be enough to get everyone headed in the direction they need to be.

nice work bro, this will certainly help teh nubz!

thank you this helped my friend

No problem...sorry it's all jumbled up and there is some stuff missing I said I would include, but that's what happens when you drink and do tutes If anyone needs any help along the way I don't mind lending a hand.