HaxBall Spammer Tool

Imports System.Text
Public Class mainform
    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            Me.TopMost = True
        ElseIf CheckBox1.Checked = False Then
            Me.TopMost = False
        End If
    End Sub

    Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
        TimeDelay.Enabled = True
    End Sub

    Private Sub btnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStop.Click
        Timer1.Enabled = False
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim rand As New Random
        Dim letter As String
        letter = ChrW(rand.Next(Asc("A"), Asc("Z") + 1))
        SendKeys.Send("{TAB}")
        SendKeys.Send(whattospam.Text)
        SendKeys.Send(" ")
        SendKeys.Send(letter)
        SendKeys.Send("{Enter}")
        Timer1.Interval = timerspeed.Text
    End Sub

    Private Sub TimeDelay_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimeDelay.Tick
        Timer1.Enabled = True
        TimeDelay.Enabled = False
    End Sub
End Class