нажатий кнопок !

[W@D'ok]

Как сделать так чтоб прога считывала скока ты нажал клавишь на клаве по истечении минуты ?

[Amed]

'Приблизительно так:

Option Explicit
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private t1 As Long
Private t2 As Long

Private CAN_GET_KEYS As Boolean
Private QUIT As Boolean
Private keys_count As Long

Private Sub Form_KeyPress(KeyAscii As Integer)
If CAN_GET_KEYS Then keys_count = keys_count + 1
End Sub

Private Sub Form_Load()
Me.Show
t1 = GetTickCount
t2 = GetTickCount
CAN_GET_KEYS = True
Do While (t2 - t1) < 60000 And QUIT = False
DoEvents
t2 = GetTickCount
Loop
Timer1.Enabled = False
Me.Cls
Me.Print "Нажато клавиш за 60 секунд: " & keys_count
CAN_GET_KEYS = False
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
QUIT = True
End Sub

Private Sub Timer1_Timer()
Me.Cls
Me.Print "Нажато клавиш: " & keys_count
Me.Print "Прошло " & Round((t2 - t1) / 1000, 1) & " секунд"
End Sub