[Only registered and activated users can see links. Click Here To Register...]
Source:
Private Sub Command1_Click()
Timer1 = True
If Check6.Value = 1 Then
Timer7 = True
End If
If Check6.Value = 0 Then
Timer7 = False
End If
Command1.Enabled = False
Command2.Enabled = True
Timer1.Interval = Text6.Text
End Sub
Private Sub Command2_Click()
Timer1 = False
Timer2 = False
Timer3 = False
Timer4 = False
Timer5 = False
Timer6 = False
Command1.Enabled = True
Command2.Enabled = False
Label9.Caption = "0"
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()
Timer2 = True
End Sub
Private Sub Timer2_Timer()
If Check1.Value = 1 Then
SendKeys Text1.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 Check2.Value = 1 Then
SendKeys Text2.Text
SendKeys "{enter}"
Timer4 = True
Label9.Caption = Val(Label9.Caption) + 1
Timer3 = False
End If
If Check1.Value = 0 Then
Timer4 = True
Timer3 = False
End If
End Sub
Private Sub Timer4_Timer()
If Check3.Value = 1 Then
SendKeys Text3.Text
SendKeys "{enter}"
Timer5 = True
Label9.Caption = Val(Label9.Caption) + 1
Timer4 = False
End If
If Check3.Value = 0 Then
Timer5 = True
Timer4 = False
End If
End Sub
Private Sub Timer5_Timer()
If Check4.Value = 1 Then
SendKeys Text4.Text
SendKeys "{enter}"
Timer6 = True
Label9.Caption = Val(Label9.Caption) + 1
Timer5 = False
End If
If Check4.Value = 0 Then
Timer6 = True
Timer5 = False
End If
End Sub
Private Sub Timer6_Timer()
If Check5.Value = 1 Then
SendKeys Text5.Text
SendKeys "{enter}"
Timer2 = True
Label9.Caption = Val(Label9.Caption) + 1
Timer6 = False
End If
If Check5.Value = 0 Then
Timer2 = True
Timer6 = False
End If
End Sub
Private Sub Timer7_Timer()
If Val(Label9.Caption) > Val(Text7.Text) Then
Timer1 = False
Timer2 = False
Timer3 = False
Timer4 = False
Timer5 = False
End If
End Sub
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
[Only registered and activated users can see links. Click Here To Register...]
Got boored so why not :D
Also if you uncheck like message 2 but still have 3/4/5 checked the loop will end and only send message 1 , so if you want it to send like 3 messages disable the forth messsage