Source Code:
Remeber F1 To Start F2 Stop
Private Scroll As Boolean
Private Shift As Boolean
Private Caps As Boolean
Private KeyResult As Long
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Form_Load()
timer1.Enabled = False
timer1.Interval = 10
timer2.Interval = 1
timer3.Interval = 1
End Sub
Private Sub timer1_Timer()
SendKeys "{f10}"
SendKeys "{c}"
SendKeys "{t}"
SendKeys Text1.Text
SendKeys "{tab}"
SendKeys "{enter}"
End Sub
Private Sub timer2_Timer()
KeyResult = GetAsyncKeyState(112) If KeyResult = -32767 Then
timer1.Enabled = True End If
End Sub
Private Sub timer3_Timer()
KeyResult = GetAsyncKeyState(113) If KeyResult = -32767 Then
timer1.Enabled = False End If
End Sub
Link to this comment:
All Comments (0)