Public Class Form1
Dim Sec As Integer
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Sec += 1
If Sec = (TextBox1.Text) Then
SendKeys.Send(TextBox3.Text)
End If
If Sec = (TextBox2.Text) Then
SendKeys.Send(TextBox4.Text)
Sec = 0
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Stop()
End Sub
End Class
Example....
12.12.12.12.12.12
*(.) Interval
Code:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Sec += 1
If Sec = 10 Then
SendKeys.Send(TextBox1.Text)
End If
If Sec = 50 Then
SendKeys.Send(TextBox1.Text)
End If
End Sub
Example
1..2..1..2..1..2
*(..) Interval If Sec = 10 Then > If Sec = 50 Then