Xolara's Tutorials

[xolara]

A5 - Chat spammer
(Note: Decided to make a movie out of this since its a small code)

1 textbox
1 trackbar
1 timer
2 buttons
2 labels

Code:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Interval = TrackBar1.Value
        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 TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
        Label2.Text = TrackBar1.Value & "/1000 ms"
    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

Youtube: http://www.youtube.com/watch?v=c9X9HmTND5E