Laimonas171
11-18-2008, 05:59 PM
Its basic auto talker and source file's
Option Explicit
Private Sub Cmdstart1_Click()
If txt1timer.Enabled = True Then ' Read below
txt1timer.Enabled = False
cmdstart1.Caption = "Start"
Else
txt1timer.Interval = speed1.Text * 1000
txt1timer.Enabled = True
cmdstart1.Caption = "Stop"
End If
End Sub
Private Sub Cmdstart2_Click()
If txt2timer.Enabled = True Then ' If auto typing for number two has started
txt2timer.Enabled = False ' Stops it
cmdstart2.Caption = "Start"
Else
txt2timer.Interval = speed2.Text * 1000 ' If its stopped then start it when clicked
txt2timer.Enabled = True
cmdstart2.Caption = "Stop"
End If
End Sub
Private Sub txt1timer_Timer()
SendKeys txt1 ' Type whatever is in txt1
End Sub
Private Sub txt2timer_Timer()
SendKeys txt2 ' Type whatever is in txt2
End Sub
Private Sub speed1_keypress(KeyAscii As Integer)
Select Case KeyAscii ' This will stop letters being typed in the speed box
Case Is < 42
Case 48 To 57
Case Else
KeyAscii = 0
End Select
End Sub
Private Sub speed2_keypress(KeyAscii As Integer)
If speed2.Text = "" Then
speed1.Text = 100
End If
Select Case KeyAscii ' Same as speed1
Case Is < 42
Case 48 To 57
Case Else
KeyAscii = 0
End Select
End Sub
Option Explicit
Private Sub Cmdstart1_Click()
If txt1timer.Enabled = True Then ' Read below
txt1timer.Enabled = False
cmdstart1.Caption = "Start"
Else
txt1timer.Interval = speed1.Text * 1000
txt1timer.Enabled = True
cmdstart1.Caption = "Stop"
End If
End Sub
Private Sub Cmdstart2_Click()
If txt2timer.Enabled = True Then ' If auto typing for number two has started
txt2timer.Enabled = False ' Stops it
cmdstart2.Caption = "Start"
Else
txt2timer.Interval = speed2.Text * 1000 ' If its stopped then start it when clicked
txt2timer.Enabled = True
cmdstart2.Caption = "Stop"
End If
End Sub
Private Sub txt1timer_Timer()
SendKeys txt1 ' Type whatever is in txt1
End Sub
Private Sub txt2timer_Timer()
SendKeys txt2 ' Type whatever is in txt2
End Sub
Private Sub speed1_keypress(KeyAscii As Integer)
Select Case KeyAscii ' This will stop letters being typed in the speed box
Case Is < 42
Case 48 To 57
Case Else
KeyAscii = 0
End Select
End Sub
Private Sub speed2_keypress(KeyAscii As Integer)
If speed2.Text = "" Then
speed1.Text = 100
End If
Select Case KeyAscii ' Same as speed1
Case Is < 42
Case 48 To 57
Case Else
KeyAscii = 0
End Select
End Sub