Spammer Source Code

I will Explain the Source Code.
The Spammer have Hotkeys Included.

So first we need to Declare the GetAsyncKeyState.
For 32 bits users:

Code:

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

For 64 bits users:

Code:

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

We finished declaring the GetAsyncKeyState.Now let's move to Button1.We need to make button when,that when we press it the timer starts.

Code:

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

Let's continue with button2.Now we will make this so the timer will stop.

Code:

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

Now for the timer we are saying,that the timer will check what's written in the richtextbox1 and will type it everywhere.

Code:

 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

Now for the hotkeys.We are saying,that if the user input the F7 key,it will start.If the user input the F8 key then it will stop.

Code:

 Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        If GetAsyncKeyState(Keys.F7) Then
            Timer1.Enabled = True

        End If

        If GetAsyncKeyState(Keys.F8) Then
            Timer1.Enabled = False
        End If
    End Sub

----------------------------------------------------------------------------------------------------------------------------------
Final Code:

Code:

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

    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 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 Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        If GetAsyncKeyState(Keys.F7) Then
            Timer1.Enabled = True

        End If

        If GetAsyncKeyState(Keys.F8) Then
            Timer1.Enabled = False
        End If
    End Sub

Spammer Source Code

Post a Reply

Tags for this Thread