Spammer [Guide]

Ok,ok i know iam slow

Get this: Visual Basic 2010
~~~~~~~~~~~~~~~~~~~

Content:
1) Organize a Spammer
2) Examples
3) Form
4) Source Code
5) Release your Spammer

1) Organize a Spammer

• First you need a name for the Spammer.
You can use ur Account name on MPGH.
Examples; My Accountname is: Neechan/Stewie Griffin. Injectorname: Nee Spammer. Or StewieSpammer.
Or one that fits the Injector, your Injector is colorful: RainBowSpammer.
• Ok now Add:

Rename:
Button1: Start
Button2: Stop

2) Examples
Example 1:

Example 2:

Example 3:

And and and ..
Test your Creative

3) Form
• Put a Icon; http://www.mpgh.net/forum/287-crossf...any-icons.html Here for Icons

How to put a Icon?

•Put a Background, what do you like.
But it must fit.

• My Option:

4) Source Code

Start Code:

Code:

Timer1.Enabled = True

Stop Code:

Code:

Timer1.Enabled = False

Timer1 Code

Code:

SendKeys.Send(TextBox1.Text)
SendKeys.Send("{Enter}")

Put now:
32 Bit

Code:

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Integer) As Integer

64bit :

Code:

Private Declare Function GetAsyncKeyState Lib "user64" (ByVal vkey As Integer) As Integer

Timer2 Code

Code:

        Dim Starthotkey As Boolean
        Dim Stophotkey As Boolean
        Starthotkey = GetAsyncKeyState(Keys.F4) ' <- You can change 
        Stophotkey = GetAsyncKeyState(Keys.F5) ' <- You can change 
       If Starthotkey = True Then
            'Start
            Timer1.Enabled = True

        End If
        If Stophotkey = True Then
            'Stop
            Timer1.Enabled = False

THE HOTKEYS DOENST WORK FOR ME, I DONT KNOW WHY

FULL CODE

Code:

Public Class Form1

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

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = True
    End Sub

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

    End Sub
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Dim starthotkey As Boolean
        starthotkey = GetAsyncKeyState(Keys.F4)
        If starthotkey = True Then
            SendKeys.Send(RichTextBox1.Text)
            SendKeys.Send("{Enter}")

        End If
        Dim Stophotkey As Boolean
        Stophotkey = GetAsyncKeyState(Keys.F5)
        If Stophotkey = True Then
            'Stop
            Timer1.Enabled = False
        End If

5) Release your Injector.
• If u want to Release your Spammer , post it here:
CrossFire Spammers, Injectors and Multi Tools - MPGH - MultiPlayer Game Hacking
• But first u need:
2 Virusscan
VirusTotal - Free Online Virus, Malware and URL Scanner
Multi-Engine Antivirus Scanner - Services - NoVirusThanks.org
Jottis Malwarescanner
Online Virus Scan

1 Pictures of the Spammer
TinyPic - Free Image Hosting, Photo Sharing & Video Hosting
ImageShack® - Online Photo and Video Hosting
etc ...

And don't forget the Attachment:
Download: WinRAR archiver, a powerful tool to process RAR and ZIP files
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
End of the Guide !!
Enjoy

Spammer [Guide]

Post a Reply

Similar Threads

Tags for this Thread