[Source]Spammer

[.Dell™]

Here is the source code for the spammer I have made. If you use this specific code then give credits please. Sorry if anything is messy. BTW I have a download at the bottom.

Be aware you may convert this into all being made by code, like the textbox, but I am just lazy like that...

I prefer not having noobs leach....

Items needed:
-3 Spammers
* Name Spammer3 "Hotkey"
-Textbox

Default for spammers:
Spammer1 interval = 4000
Spammer1 Enabled = False

Spammer2 interval = 4000
Spammer2 Enabled = False

Hotkey interval = 1
Hotkey Enabled = True

Code:

Public Class Form1
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Integer) As Short
    Private Sub Spammer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Spammer.Tick
        'made by Zyromkiru
        On Error Resume Next
        Dim number As New Random
        Select Case number.Next(1, 15)
            Case 1
                TextBox1.Text = "Want to learn to code hacks? Check out tons of tutorials at TrinityEntertainment.net!"
            Case 2
                TextBox1.Text = "At TrinityEntertainment.net meet up and talk to hundreds of other gamers just like you!"
            Case 3
                TextBox1.Text = "Head over to TrinityEntertainment.net to meet up with others and make some friends!"
            Case 4
                TextBox1.Text = "Want OPK, Chams and more? Then get TEN Pub hacks only at TrinityEntertainment.net!"
            Case 5
                TextBox1.Text = "Looking for people to join your clan? Find hundreds of gamers at TrinityEntertainment.net!"
            Case 6
                TextBox1.Text = "Check out TrinityEntertainment.net to find new members to recruit to your clan!"
            Case 7
                TextBox1.Text = "Need a clan? At TrinityEntertainment.net clan leaders are always recruiting local gamers!"
            Case 8
                TextBox1.Text = "Share Images Videos and Stories from all your gaming moments at TrinityEntertainment.net!"
            Case 9
                TextBox1.Text = "Your old hacks patched? Looking for new ones? Get T.E.N. TrinityEntertainment.net!"
            Case 10
                TextBox1.Text = "Get all the latest Combat Arms News in one place only at TrinityEntertainment.net!"
            Case 11
                TextBox1.Text = "Create your own web pages for your clan only at TrinityEntertainment.net!"
            Case 12
                TextBox1.Text = "Looking for an extra edge? Get the T.E.N. public hack only at TrinityEntertainment.net!"
            Case 13
                TextBox1.Text = "Join TrinityEntertainment.net to join in on one of the fastest growing CA communities!"
            Case 14
                TextBox1.Text = "Join TrinityEntertainment.net today for one of the best public hacks around!"
            Case Else
                TextBox1.Text = "Go To TrinityEntertainment.net today!"
        End Select
        SendKeys.SendWait("{Enter}")
        SendKeys.SendWait("{F2}")
        SendKeys.Send(TextBox1.Text)
        SendKeys.Send("{Enter}")

    End Sub
    Private Sub Spammer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Spammer2.Tick
        On Error Resume Next
        Dim number As New Random
        Select Case number.Next(1, 15)
            Case 1
                TextBox1.Text = "Check out tons of hack tutorials at TrinityEntertainment.net!"
            Case 2
                TextBox1.Text = "At TrinityEntertainment.net talk to hundreds of other gamers!"
            Case 3
                TextBox1.Text = "Head over to TrinityEntertainment.net and make some friends!"
            Case 4
                TextBox1.Text = "Want OPK, Chams and more? Then get at TrinityEntertainment.net!"
            Case 5
                TextBox1.Text = "Advertise your clan to everyone at TrinityEntertainment.net!"
            Case 6
                TextBox1.Text = "Go to TrinityEntertainment.net! find new members for your clan!"
            Case 7
                TextBox1.Text = "At TrinityEntertainment.net clan leaders are always recruiting!"
            Case 8
                TextBox1.Text = "Share Gaming Images and Videos at TrinityEntertainment.net!"
            Case 9
                TextBox1.Text = "Looking for new Hacks? Get new ones at TrinityEntertainment.net!"
            Case 10
                TextBox1.Text = "Get all the latest Combat Arms News at TrinityEntertainment.net!"
            Case 11
                TextBox1.Text = "Create web pages for your clan only at TrinityEntertainment.net!"
            Case 12
                TextBox1.Text = "Looking for an extra edge? Only at TrinityEntertainment.net!"
            Case 13
                TextBox1.Text = "Join TrinityEntertainment.net for a fast growing CA community!"
            Case 14
                TextBox1.Text = "Join TrinityEntertainment.net today for our new public hacks!"
            Case Else
                TextBox1.Text = "Go To TrinityEntertainment.net today!"
        End Select
        SendKeys.SendWait("{Enter}")
        SendKeys.SendWait("{F2}")
        SendKeys.Send(TextBox1.Text)
        SendKeys.Send("{Enter}")
        'made by Zyromkiru
    End Sub
    Private Sub Hotkey_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hotkey.Tick
        Dim F9key As Boolean
        Dim F10key As Boolean
        Dim F11key As Boolean
        F9key = GetAsyncKeyState(Keys.F9)
        F10key = GetAsyncKeyState(Keys.F10)
        F11key = GetAsyncKeyState(Keys.F11)
        If F9key = True Then
            F10key = False
            Spammer2.Enabled = False
            Spammer.Enabled = True
        End If
        If F10key = True Then
            F9key = False
            Spammer.Enabled = False
            Spammer2.Enabled = True
        End If
        If F11key = True Then
            F9key = False
            F10key = False
            Spammer.Enabled = False
            Spammer2.Enabled = False
        End If
    End Sub