Option Explicit
Dim waitloop As Boolean
Dim starttime As Date, currenttime As Date
 
Private Sub Command1_Click()
    Dim difftime As Date
 
    starttime = Now()
    WinHook1.HookEnabled = True
    WinHook2.KeyboardHook = shkKbdEntireSystem
 
    ' This is just a simple sample on monitor for mouse and keyboard
    ' activity. This is probably not the best or most efficient algorithm
    ' to implement.
    While waitloop
        currenttime = Now()
        ' get time of last activity
        difftime = currenttime - starttime
        Label1.Caption = Hour(difftime) & " hrs " & Minute(difftime) & " mins " _
          & Second(difftime) & " secs"
        ' in reality you would do a more comprehensive check
        If Minute(difftime) > 1 Then    ' if 2 minutes or more went by 
        ' without activity
            ' Attempt to wake user up, or you can have this program send an 
            ' email
            ' message to whom it may concern :-).
            Beep
            starttime = Now()   ' reset for next period, or do something else
        End If
        DoEvents
    Wend
 
End Sub
 
Private Sub Form_Load()
    waitloop = True
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    WinHook1.HookEnabled = False
    WinHook2.KeyboardHook = shkKbdDisabled
    waitloop = False
End Sub
 
 
' This hook monitors the entire system for mouse activity. It does this by
' detecting all the possible mouse messages such as movements and clicks.
' Refer to this control's messages for a list of messages it is detecting.
Private Sub WinHook1_MouseProc(wnd As Long, msg As Long, X As Long, Y As Long, _
  hitcode As Long, peek As Integer, nodef As Integer)
    starttime = Now()
End Sub
 
' This hook monitors the entire system for keyboard activity. It does this by
' detecting all keys. By leaving the "Keys" property blank, it automatically
' selects all keys.
Private Sub WinHook2_KeyDownHook(keycode As Long, ByVal shiftstate As Integer, _
  Repetitions As Integer, keystate As Integer, ByVal ProcessID As Long, discard _
  As Integer)
    starttime = Now()
End Sub