16 replies to this topic

[Demon]

Basic overview

What this will do is send multiple spams written in a text box after the start button is pressed and stop after the second button is pressed. This makes use of basic timer skills and the send keys command.

What you'll need

2 buttons
1 text box
1 timer

Placement

How ever you'd like I'm going to place the 2 buttons under the text box.

Code

For the start button the code would make the timer start:

Timer1.Start()

For the stop button it would make the timer stop:

Timer1.Stop()

And for the timer since it will send the keys in the text box till stopped the code will be:

Sendkeys.Send[Textbox1.Text] Sendkeys.Send("{ENTER}')

And it's as simple as that.

[Jarryd]

To make it a little more advanced, you could allow the user to change the timer interval:

        Timer1.Interval = NumericUpDown1.Value()

That little line of code will allow the user to change the value of the "NumericUpDown", and it will make the spammer go at the speed.

[CuzImAwesome]

Or:

Timer1.Interval = TextBox2.Text

Just type in the interval.

[Buffer_overflow]

I've tried in my visual studio and i got this error

Error 1 Argument not specified for parameter 'keys' of 'Public Shared Sub Send(keys As String)'. C:\Users\xxxxxx\Documents\Visual Studio 2010\Projects\WindowsApplication5\WindowsApplication5\Form1.vb 16 9 WindowsApplication5


Error 2 Bracketed identifier is missing closing ']'. C:\Users\xxxxx\Documents\Visual Studio 2010\Projects\WindowsApplication5\WindowsApplication5\Form1.vb 16 22 WindowsApplication5

[CommittedC0der]

Quote

I've tried in my visual studio and i got this error

Error 1 Argument not specified for parameter 'keys' of 'Public Shared Sub Send(keys As String)'. C:\Users\xxxxxx\Documents\Visual Studio 2010\Projects\WindowsApplication5\WindowsApplicati on5\Form1.vb 16 9 WindowsApplication5


Error 2 Bracketed identifier is missing closing ']'. C:\Users\xxxxx\Documents\Visual Studio 2010\Projects\WindowsApplication5\WindowsApplicati on5\Form1.vb 16 22 WindowsApplication5

Your problem is the quote's around ENTER are messed up, its written: "ENTER' <-- see the one '? It should look like this:

SendKeys.Send(TextBox1.Text)
        SendKeys.Send([B]"[/B]{ENTER}[B]"[/B])

Hope that solves it for you. :)

[Buffer_overflow]

What i need to put in ENTER??
N00b question, but please help me..

[Alexander]

Buffer_overflow said:

What i need to put in ENTER??
N00b question, but please help me..

Hi, The {ENTER} phrase in Visual Basic signifies the enter key, so it simulates pressing enter and sends it.

[pijatron]

hmm looks nice think ill start of with somethuing simple like this here spammer. thanks

[pijatron]

hey guys i got everything down buyt i have 1 small error

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

the error says end ofstatement expected........
a lil help pls...thanks.

[Demon]

pijatron said:

hey guys i got everything down buyt i have 1 small error

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

the error says end ofstatement expected........
a lil help pls...thanks.

Have you tried an and or +?

[Nonja]

What exactly should I see happen after entering text in the textbox then clicking start? The only thing that happens is my computer gets super laggy until I click Stop.

Here's my code:

Public Class Form1


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

        Timer1.Start()

    End Sub


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

        Timer1.Stop()

    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}")

    End Sub

End Class

I'm brand spanking new to VB so thanks for any help!

[Demon]

Nonja said:

What exactly should I see happen after entering text in the textbox then clicking start? The only thing that happens is my computer gets super laggy until I click Stop.

Here's my code:

Public Class Form1


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

        Timer1.Start()

    End Sub


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

        Timer1.Stop()

    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}")

    End Sub

End Class

I'm brand spanking new to VB so thanks for any help!

You can add a me.hide() statement on the start button,but what should happen is it'll send the keys in the text box,for example if you have a chat text box selected after it's started then it will spam.