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

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)

Code:

Imports System.Text

Now put this below form1:

Code:

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:

Code:

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!)

Code:

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

Code:

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:

Code:

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:

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

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

Post a Reply

Similar Threads

Tags for this Thread