🚀 go-pugleaf

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