Spammer

Public Class Form1
    Dim sec As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'It is button for spam
        Button1.Visible = False ' make button invisible
        Button2.Visible = True   ' show button 2
        If Button1.Enabled Then
            Timer1.Enabled = True' Start timer
            Timer2.Enabled = True
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'Button off ( stop )
        Button1.Visible = True ' make button 1 visible
        Button2.Visible = False ' show button 1
        If Button2.Enabled Then
            Timer1.Enabled = False
            Timer1.Enabled = False
        End If
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        SendKeys.Send(TextBox1.Text) 'Spam text in textbox
        SendKeys.Send((ChrW(13))) ' Hit enter every time shout
    End Sub
    ' I done it, I will not start it because it will lag like the hell.
    ' BUT INTERVAL to 100 MANIMUN ... dont try 1 it will LAG LAG LAG LAG LAG!!
    ' Bye :D

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

    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        sec = sec + 1
        Label1.Text = sec
    End Sub

    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
        'you can remove this and name the spammer what ever you want
        Me.Text = System.DateTime.Now 'this is spammer title will be replaced by date and time

    End Sub