Capture System Idle Time On Worksheet

[VJOSHI]

Hi,

I have been working on a form to be supplied to my production floor to capture production but also wanted to have a feature where I know how much time a guy spends away from system (Non Productive).

I found a code which gets me very close to what I want but with a headache . I am unable to figure out how to get the data on a specific sheet instead of immediate window so I can sum it up..

Need you to help me get this output on a sheet instead..


Paste the below code in a module, Open the immediate window and run printidletime1. Every 5 seconds you would see immediate window popping up the idle time.

<DIR>Private Type LASTINPUTINFO
cbSize As Long
dwTime As Long
End Type
Private Declare Sub GetLastInputInfo Lib "user32" (ByRef plii As LASTINPUTINFO)
Private Declare Function GetTickCount Lib "kernel32" () As Long
Function IdleTime() As Single
Dim a As LASTINPUTINFO
a.cbSize = LenB(a)
GetLastInputInfo a
IdleTime = (GetTickCount - a.dwTime) / 1000
End Function
Sub PrintIdleTime1()
Debug.Print IdleTime
Application.OnTime Now + TimeSerial(0, 0, 5), "PrintIdleTime2"
End Sub
Sub PrintIdleTime2()
Debug.Print IdleTime
Application.OnTime Now + TimeSerial(0, 0, 5), "PrintIdleTime1"
End Sub
</DIR>

 

[VoG]

Instead of

Debug.Print IdleTime

try like this

Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Offset(1) = IdleTime

 

[VJOSHI]

Hey This works great.. One more thing to bother you about. Is it possible to trigger the macro of this recording action if system is idle for a certain period time. say 2mins as an example. How will the code look like.