[TUT]Make a spammer w/ hotkeys + ingame message changer + Rndm Char.

[Pixie]

I really don't want to make a tutorial on this, but I have nothing to do right now, so w/e

First, when you make a new project, name it any thing you want, and add the following:

2 buttons : For manual start/stop
3 timers : 1 for hotkeys, 1 for spam, and 1 for ingame message changer
1 textbox : For the message, and for the text that is recorded

THE CHECKBOX IS NOT NEEDED!!

The textbox is like a keylogg, you can manually enter the text yourself, or if you want to change it while ingame, the the third timer will record your message when you press the hotkey.

I will have what it should look like in the attachments (image)

Here is the code to put at the top of your form (Above Form1)

Imports System.Text

Now put this below form1:

Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Dim result As Integer

That's just something for the hotkeys, but if that doesn't work, then try this:

Public Declare Function GetAsyncKeyState Lib "user64" (ByVal vKey As Long) As Integer
Dim result As Integer

Now, the hotkeys:

Add this to timer1 (But make sure Timer1 is enabled!)

If GetAsyncKeyState(Keys.F11) Then
            Timer3.Enabled = True
        End If
        If GetAsyncKeyState(Keys.F6) Then
            Timer2.Enabled = True
            TextBox1.Text = ""
        End If
        If GetAsyncKeyState(Keys.F7) Then
            Timer2.Enabled = False
        End If

Now add this to Timer2

For i = 1 To 255
            result = 0
            result = GetAsyncKeyState(i)
            If result = -32767 Then
                TextBox1.Text = TextBox1.Text + Chr(i)
            End If
        Next i

And finally, timer3:

Dim min = Convert.ToInt32("a"c)
        'Change a to A for Caps
        Dim max = Convert.ToInt32("z"c) + 1
        'Change z to Z for Caps
        Dim rng As New Random
        Dim RndText As New StringBuilder(3)
        For count = 1 To 3
            RndText.Append(Convert.ToChar(rng.Next(min, max)))
        Next
        SendKeys.Send("{enter}")
        SendKeys.Send(TextBox1.Text + " =" & RndText.ToString + "=")
        SendKeys.Send("{enter}")
        Timer3.Enabled = False

Now, you are done!

Please post any bugs, and post the error log (If you get one)

FULL CODE:

Imports System.Text
Public Class Form1
    Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
    Dim result As Integer

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If GetAsyncKeyState(Keys.F11) Then
            Timer3.Enabled = True
        End If
        If GetAsyncKeyState(Keys.F6) Then
            Timer2.Enabled = True
            TextBox1.Text = ""
        End If
        If GetAsyncKeyState(Keys.F7) Then
            Timer2.Enabled = False
        End If
    End Sub

    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        For i = 1 To 255
            result = 0
            result = GetAsyncKeyState(i)
            If result = -32767 Then
                TextBox1.Text = TextBox1.Text + Chr(i)
            End If
        Next i
    End Sub

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

    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            TextBox1.Visible = True
        Else
            TextBox1.Visible = False
        End If
    End Sub

    Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
        Dim min = Convert.ToInt32("a"c)
        'Change a to A for Caps
        Dim max = Convert.ToInt32("z"c) + 1
        'Change z to Z for Caps
        Dim rng As New Random
        Dim RndText As New StringBuilder(3)
        For count = 1 To 3
            RndText.Append(Convert.ToChar(rng.Next(min, max)))
        Next
        SendKeys.Send("{enter}")
        SendKeys.Send(TextBox1.Text + " =" & RndText.ToString + "=")
        SendKeys.Send("{enter}")
        Timer3.Enabled = False
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub
End Class

[ĎÁŗҚ ĉҰρҢềŔ]

Thank you This help Ppl

[stevethehacker]

looks ok I guess but there r 2 many of these tutorials.

[Pixie]

looks ok I guess but there r 2 many of these tutorials.

Yeah but this has a ingame message changer
Don't see that often do ya?

[stevethehacker]

Yeah but this has a ingame message changer
Don't see that often do ya?

I guess not lol thats pretty cool

[Pixie]

I guess not lol thats pretty cool

Yeah, I was ingame one day with my spammer, and thinking it was so annoying to keep minimizing just to change the message
So I started to think of a keylogger, and used it for a different purpose

I am still searching for my old source codes, but I am very busy, but after this week I wont, and I'll probably post a lot of tutorials

[iWAFFLE]

This may sound stupid,But what do you mean by "Above Form1"

[guza44_44]

very sexy xD i like the bright idea keep it up

[Pixie]

This may sound stupid,But what do you mean by "Above Form1"

Where it says Form1
I would give you a screenshot, but imageshack wont upload

I will edit the thread and add full source code

[starpwnage]

Intresting, but does it actually work in combat arms?
I was told that the sendkeys method was patched?

[Zoom]

Intresting, but does it actually work in combat arms?
I was told that the sendkeys method was patched?

Only in lobby xP

P.s Dont dump in old treads ffs!

[mnpeep]

Kewl, i love it.

[Pixie]

Only in lobby xP

P.s Dont dump in old treads ffs!

Actually combat arms spammers do work in game, you just have to press the first enter

[Zoom]

Actually combat arms spammers do work in game, you just have to press the first enter

Yeah but you cant make it move or press a key

[mnpeep]

mine auto presses enter if you set it, next version wil have double enter.