Code:
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