Spambot Problem VB.net

12/31/2011 15:30 Evese#1

Hey,
habe gerade nen kleinen Blackout. Wollte schnell nen Spammer erstellen was ich schon ziemlich oft gemacht habe aber ich hab ein Problem.

Wie kann ich den Zeitabstand (Intervall) einstellen in dem der Tastendruck simuliert werden soll?

Hier mein Quellcode... musste das in die Textbox oder in den Timer?

Ich will das F1 jede Xte Sekunde gedr�ckt wird (den Intervall soll ich in der Textbox angeben k�nnen)... man sowas peinliches.
Danke schonmal.

Code:

Public Class Form1

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


    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

    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 Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = True
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        SendKeys.SendWait("{F1}")


    End Sub
End Class

12/31/2011 15:33 Kraizy#2

Da muss der Blackout aber ziemlich gro� sein.. tmr.Interval = x ?

12/31/2011 15:46 Evese#3

Ja lange nicht mehr damit befasst.

Also in die textbox soll eine Anzahl z.b 1000ms f�r 1 Sekunde und dann soll er immer F1 dr�cken jede Sekunde. Aber ich krieg das nicht hin ich hab ka mehr was in die textbox und in den timer muss.

Trozdem schonmal danke

12/31/2011 18:56 irrenhaus#4

In die Textbox muss garnichts.
auf den "Start spam" Button kannst du reinschreiben:

Code:

Timer1.Interval = Convert.ToInt32(TextBox1.Text)
Timer1.Enabled = true

in den Timer w�rd ich dann packen:

Code:

SendKeys.Send("{F1}")

bzw. kannst auch einen Button benutzen.
packst ganz am Anfang ne Variable rein

Code:

boolean enablespam = false

und dann �nderst du das so:

Code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
if (enablespam == true)
{        
Timer1.Enabled = false
Button1.Text = "Start Spam"
}
else
{
Timer1.Interval = Convert.ToInt32(TextBox1.Text)
Timer1.Enabled = true
Button1.Text = "Stop Spam"
}
    End Sub

Ist aber nur Pseudocode :rolleyes:

hoffe das ich das richtig verstanden habe, was du willst.

12/31/2011 19:45 Evese#5

Ich habs hinbekommen so wollte ich es auch haben (siehe unten) aber kriegst trozdem ein Thanks f�r die Hilfe

Code:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Interval = TextBox1.Text
        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("{F1}")
    End Sub

dieser Befehl hat mir gefehlt:

Code:

Timer1.Interval = TextBox1.Text
        Timer1.Start()