
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.Icon = System.Drawing.SystemIcons.Error
TextBox1.Text = "Your spam message here"
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If Not IsNumeric(TextBox2.Text) Then
MsgBox("Please enter only numbers for spam interval.", vbInformation)
TextBox2.Text = ""
ElseIf IsNumeric(TextBox2.Text) Then
Timer1.Interval = TextBox2.Text
TextBox1.Enabled = False
TextBox2.Enabled = False
Dim SAPI
SAPI = CreateObject("SAPI.spvoice")
SAPI.Speak("Spam will start in five seconds.")
Threading.Thread.Sleep(5000)
Timer1.Enabled = True
End If
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
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Timer1.Enabled = False
TextBox1.Enabled = True
TextBox2.Enabled = True
End Sub
Private Sub Form1_Closing(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
MessageBox.Show("Made by: Renamon Toast Crunch" & vbCrLf & vbCrLf & "Visit us at http://www.mpgh.net/")
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Me.Close()
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Me.WindowState = System.Windows.Forms.FormWindowState.Minimized
End Sub
End Class
If Not IsNumeric(TextBox2.Text) Then
MsgBox("Please enter only numbers for spam interval.", vbInformation)
TextBox2.Text = ""
ElseIf IsNumeric(TextBox2.Text) Then

If Not IsNumeric(TextBox2.Text) Then ''user input was NOT numeric Else ''user input was numeric End if