[Help]Spammer doesn't work :s

Ok, so my spammer doesn't spam whenever I click the start button.
Can anyone help me?
Here's the code:

Code:

Public Class Form1
 Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Int32) As Int16
    Dim bypass As Integer = 0

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

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Timer1.Enabled = True
        Timer2.Enabled = True

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Timer2.Enabled = False
        Timer1.Enabled = False

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
        SendKeys.Send(TextBox1.Text)
        SendKeys.Send("{enter}")
        SendKeys.Send(TextBox2.Text)
        SendKeys.Send("{enter}")
        SendKeys.Send(TextBox3.Text)
        SendKeys.Send("{enter}")
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Dim f7 As Boolean

        f7 = GetAsyncKeyState(Keys.F7)

        If f7 Then Timer1.Start()
        If bypass = 0 Then
            SendKeys.Send(TextBox1.Text)
            bypass = 1
        Else
            SendKeys.Send(TextBox2.Text)
            bypass = 0
        End If
    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Interval = (TextBox4.Text)
    End Sub
End Class

if you are testing it on a d3d game.. no it wont work.. test it on notepad or so.

Originally Posted by 'Bruno

if you are testing it on a d3d game.. no it wont work.. test it on notepad or so.

I did test it in notepad, doesn't work :s

Originally Posted by omghacker

I did test it in notepad, doesn't work :s

Code:

Public Class Form1
 Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Int32) As Int16

    Dim bypass As Integer = 0


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

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.click
        Timer2.Enabled = False
        Timer1.Enabled = False

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.tick
        SendKeys.Send(TextBox1.Text)
        SendKeys.Send("{enter}")
        SendKeys.Send(TextBox2.Text)
        SendKeys.Send("{enter}")
        SendKeys.Send(TextBox3.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.Start()
        If bypass = 0 Then
            timer1.start
            bypass = 1
        Else
            timer1.stop
            bypass = 0
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Interval = Val(TextBox4.Text)
    End Sub
End Class

The handles were gone, retry.

The hotkeys look fine.

If you want to bypass the multiple message blocking system(wow I just created that word).

Go for random.

Dim rn as new random

sendkeys.send(textbox1.text & " " & rn.next(10)) 'send textbox1.text & a random number between 0-10

I will give you a tip now for better coding:

Rename your controls. Your code will be WAAAAAAAAAAY easier to recognize.

You have probably just started programming in VB, therefore please follow my tip and always rename controls you use.

For example:

Button -> btnName / cmdName
Textbox -> txtName
Richtextbox -> rtbName

Originally Posted by Blubb1337

Code:

Public Class Form1
 Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Int32) As Int16

    Dim bypass As Integer = 0


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

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.click
        Timer2.Enabled = False
        Timer1.Enabled = False

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.tick
        SendKeys.Send(TextBox1.Text)
        SendKeys.Send("{enter}")
        SendKeys.Send(TextBox2.Text)
        SendKeys.Send("{enter}")
        SendKeys.Send(TextBox3.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.Start()
        If bypass = 0 Then
            timer1.start
            bypass = 1
        Else
            timer1.stop
            bypass = 0
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Interval = Val(TextBox4.Text)
    End Sub
End Class

Thanks for the help, but I preffer to keep my controls named that way.

[Help]Spammer doesn't work :s

Similar Threads

Tags for this Thread