Spambot Problem VB.net

[Evese]

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.

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

[Kraizy​]

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

[Evese]

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

[irrenhaus]

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

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

in den Timer würd ich dann packen:

SendKeys.Send("{F1}")

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

boolean enablespam = false

und dann änderst du das so:

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

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

[Evese]

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

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:

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