Complete Noob Tutorial: Spammer

**Lolland** · 11-29-2009

This is the easiest project you will ever do.

I'm going to purposely add errors to the code so that you will learn a thing or two.

First things to do:

Make This:
[IMG]https://i659.photobucke*****m/albums/uu314/Roflolmao/Whattomake1.jpg[/IMG]
Name your buttons and shit accordingly.

Copy and paste this:

Code:

Public Class Form1
    Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As System.Int16) As Int16
    Private Sub StartSpam_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StartSpam.Click
        Timer1.Stard()
   
    End Sub
    Private Sub SpamSomeShit()
        Dim SpamShit As String
        SpanShit = Message.Text
        SentKeys.Send(SpamShit)
   
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim F2key As Boolean
        Dim F3key As Boolean
        F2key = GetAsyncKeyState(Keys.F2)
        f4key = GetAsyncKeyState(Keys.F3)
        If F2key = True Then
            Timer1.Stard()
        End If
        If F3key = True Them
            Timer1.Stop()
        End If
        Timer1.Interval = MessagesPerSecond.Text * 1000 + MessagesPerMillisecond.Text
        SpamSomeShiz()

    End Sub

    Private Sub StopSpam_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StopSpam.Click
        Timer1.Stop()
    End Sub

Fix errors, debug, win.