🚀 go-pugleaf

> Samo odmierzanie czasu jest trywialne. Problem leży w kontrolowaniu
Trywialne?
Jak ?
Pytalem o to pare dni temu i nikt jakos nie odpowiedzial...

Pozdowienia
Diesel

Skoro nikt nie odpowiedzial to moze ja...
Mozna do tego celu uzyc np takich funkcji API:

Type POINTAPI
        X As Long
        Y As Long
End Type
Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Declare Function GetCaretPos Lib "user32" (lpPoint As POINTAPI) As Long

Pierwsza z nich zwraca biezaca pozycje kursora myszki, a druga pozycje
kursora tekstowego - karetki. Jak je wykorzystasz niech to zalezy od Twojej
pomyslowosci ale odpowiedni fragment kodu moze wygladac np tak:

Static IleCiszy As Long
Static CursorXY As POINTAPI, CursorOld As POINTAPI
Static CaretXY As POINTAPI, CaretOld As POINTAPI
Const DoscCiszy = 12 '4 minuty przy zalozeniu interwalu 20000
    Call GetCursorPos(CursorXY)
    Call GetCaretPos(CaretXY)
    If (CursorXY.X = CursorOld.X) And (CaretXY.X = CaretOld.X) And
(CursorXY.Y = CursorOld.Y) And (CaretXY.Y = CaretOld.Y) Then
        IleCiszy = IleCiszy + 1
    Else
        IleCiszy = 0
    End If
    CursorOld = CursorXY
    CaretOld = CaretXY
    If IleCiszy > DoscCiszy Then
        Timer1.Enabled = 0
        IleCiszy = 0
    '(..............) tutaj  fragment kodu, wyzwalany po uplywie okreslonego
czasu nieaktywnosci uzytkownika
        Timer1.Enabled = -1
    End If

Mamy formatkę z dwoma okienkami tekstowymi jak się nie ruszymy z jednego do
drugiego to...
(nie testowałem tego), a pochodzi to z bazy M$, z przykładowymi formatkami
do A97.
Może pomoże :-)
Pozdrowienia,
Roman.
Option Compare Database
Option Explicit

Private Sub Form_Timer()
         ' IDLEMINUTES determines how much idle time to wait for before
         ' running the IdleTimeDetected subroutine.
         Const IDLEMINUTES = 1

         Static PrevControlName As String
         Static PrevFormName As String
         Static ExpiredTime

         Dim ActiveFormName As String
         Dim ActiveControlName As String
         Dim ExpiredMinutes

         On Error Resume Next

         ' Get the active form and control name.

         ActiveFormName = Screen.ActiveForm.Name
         If Err Then
            ActiveFormName = "No Active Form"
            Err = 0
         End If

         ActiveControlName = Screen.ActiveControl.Name
            If Err Then
            ActiveControlName = "No Active Control"
            Err = 0
         End If

         ' Record the current active names and reset ExpiredTime if:
         '    1. They have not been recorded yet (code is running
         '       for the first time).
         '    2. The previous names are different than the current ones
         '       (the user has done something different during the timer
         '        interval).

         If (PrevControlName = "") Or (PrevFormName = "") _
           Or (ActiveFormName <> PrevFormName) _
           Or (ActiveControlName <> PrevControlName) Then
            PrevControlName = ActiveControlName
            PrevFormName = ActiveFormName
            ExpiredTime = 0
         Else
            ' ...otherwise the user was idle during the time interval, so
            ' increment the total expired time.
            ExpiredTime = ExpiredTime + Me.TimerInterval
         End If

         ' Does the total expired time exceed the IDLEMINUTES?
         ExpiredMinutes = (ExpiredTime / 1000) / 60
         If ExpiredMinutes >= IDLEMINUTES Then
            ' ...if so, then reset the expired time to zero...
            ExpiredTime = 0
            ' ...and call the IdleTimeDetected subroutine.
            IdleTimeDetected ExpiredMinutes
         End If
End Sub



      Sub IdleTimeDetected(ExpiredMinutes)
         Dim Msg As String
         Msg = "No user activity detected in the last "
         Msg = Msg & ExpiredMinutes & " minute(s)!"
         MsgBox Msg, 48
      End Sub