Simple spammer

[HaGsTeR]

Well, i gave one to my friend, and he told me i should make another one and post it here

Download:

Source:

 Spoiler

'Form1
Private Sub Command1_Click()
Timer1 = True
Timer1.Interval = Text6.Text
End Sub

Private Sub Command2_Click()
Timer1 = False
Timer2 = False
Timer3 = False
Timer4 = False
Timer5 = False
End Sub

Private Sub Command3_Click()
Form2.Show
Form2.iText1.Text = Timer2.Interval
Form2.iText2.Text = Timer3.Interval
Form2.iText3.Text = Timer4.Interval
Form2.iText4.Text = Timer5.Interval
End Sub


Private Sub Timer1_Timer()
If Check1.Value = 1 Then
SendKeys Text1.Text
SendKeys "{enter}"
Timer2 = True
Label9.Caption = Val(Label9.Caption) + 1
Timer1 = False
End If
If Check1.Value = 0 Then
Timer2 = True
Timer1 = False
End If
End Sub

Private Sub Timer2_Timer()
If Check2.Value = 1 Then
SendKeys Text2.Text
SendKeys "{enter}"
Timer3 = True
Label9.Caption = Val(Label9.Caption) + 1
Timer2 = False
End If
If Check1.Value = 0 Then
Timer3 = True
Timer2 = False
End If
End Sub

Private Sub Timer3_Timer()
If Check3.Value = 1 Then
SendKeys Text3.Text
SendKeys "{enter}"
Timer4 = True
Timer3 = False
End If
If Check3.Value = 0 Then
Timer4 = True
Label9.Caption = Val(Label9.Caption) + 1
Timer3 = False
End If
End Sub

Private Sub Timer4_Timer()
If Check4.Value = 1 Then
SendKeys Text4.Text
SendKeys "{enter}"
Timer5 = True
Label9.Caption = Val(Label9.Caption) + 1
Timer4 = False
End If
If Check4.Value = 0 Then
Timer5 = True
Timer4 = False
End If
End Sub

Private Sub Timer5_Timer()
If Check5.Value = 1 Then
SendKeys Text5.Text
SendKeys "{enter}"
Timer1 = True
Label9.Caption = Val(Label9.Caption) + 1
Timer5 = False
End If
If Check5.Value = 0 Then
Timer1 = True
Timer5 = False
End If
End Sub
'Form2
Private Sub Command1_Click()
Form1.Timer2.Interval = iText1.Text
Form1.Timer3.Interval = iText2.Text
Form1.Timer4.Interval = iText3.Text
Form1.Timer5.Interval = iText4.Text
End Sub

Private Sub Command2_Click()
MsgBox "In these text boxes you change the delay between each message it should send", vbOKOnly, "What is this?"
End Sub

Screenshot:

 Spoiler