application idle

[shukla]

how to recognize that an application is idle for some time interval ?
for example i have an application made in vb. some times users keep it open and go some other place.
i want a way to recognize that my application is in idle position for say 1/2 hr or more.
i.e it is just opened but not have any action on it in some interval.

[danasegarane]

Try this

[shukla]

thanks. danasegarane.
but on which form event should i write this. because i m having MDI interface.
many forms.

[danasegarane]

Write on the Main form Event

[shukla]

thanks.
i will try.

[cssriraman]

Here is another way:

'Create a new project with a timer control
 
Option Explicit
 
Private Type LASTINPUTINFO
    cbSize As Long
    dwTime As Long
End Type
 
Private Declare Function GetLastInputInfo Lib "user32" (plii As Any) As Long
 
Dim test As Long
 
Private Sub Timer1_Timer()
    Dim lii As LASTINPUTINFO
    lii.cbSize = Len(lii)
    Call GetLastInputInfo(lii)
    If test = lii.dwTime Then
        Debug.Print "Idle " & Format$(Now, "dd-mmm-yyyy HH:mm:ss")
    Else
        Debug.Print "Not Idle " & Format$(Now, "dd-mmm-yyyy HH:mm:ss")
    End If
    test = lii.dwTime
End Sub

[shukla]

thanks.

[cssriraman]

When you have received an answer to your question, please mark it as Resolved using the Thread Tools menu.