How to check the idle time? (RESOLVED)

[AlvaroF1]

I used to use the following code to check the idle time on VB6:

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
    x As Long
    y As Long
End Type
Private Sub Timer1_Timer()
    Static lNotActive As Long
    Static LastCursorPos As POINTAPI
    lNotActive = lNotActive + 1
    GetCursorPos CursorPos
    If (CursorPos.x <> LastCursorPos.x) Or (CursorPos.y <> LastCursorPos.y) Then
        LastCursorPos = CursorPos
        lNotActive = 0
    Else
        For lCounter = 0 To 255
            If GetAsyncKeyState(lCounter) > 0 Then lNotActive = 0
        Next
    End If
    If lNotActive = 180 Then MsgBox "Idle time reached!"
End Sub

What about using VB. NET?


Thank you.

[Evad]

Can you explaine with a little more detail?

Do you want to create a timer, or do you want to check the system's Idle time like you would for a screensaver?

Is this Idle Time, application or system wide?

[AlvaroF1]

Sorry if I wasn't clear.

Yes, I'd like to check the system's idle time.


Thanks.

[Evad]

Heres your conversion

Please Edit your inital Message Subject to [Resolved] if this Solved your Problem.

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Integer
 
  Public Sub Timer1_Timer()
    Static lNotActive As Long
    Static LastCursorPos As System.Drawing.Point
    Dim CursorPos As System.Drawing.Point
 
    lNotActive = lNotActive + 1
    CursorPos = System.Windows.Forms.Cursor.Current.Position
 
    If (CursorPos.X <> LastCursorPos.X) Or (CursorPos.Y <> LastCursorPos.Y) Then
      LastCursorPos = CursorPos
      lNotActive = 0
    Else
      Dim lCounter As Integer
      For lCounter = 0 To 10
        If GetAsyncKeyState(lCounter) > 0 Then lNotActive = 0
      Next
    End If
    If lNotActive = 180 Then MsgBox("Idle time reached!")
  End Sub

[Evad]

Bump

[AlvaroF1]

Allright!

Thanks for your help.

[Codehammer]

Will This Monitor keystrokes Too, As Pasrt of Idle Time.

What if the Dude is in work and not Mousing around?

[Evad]

Yes, it should. test it out.

[Codehammer]

Yes, it should. test it out.

NO IT DOESNT, TRIED IT 5 MIN. Ago

[Codehammer]

How can One Use the System Idle Process - Its there when you press CTRL+ALT+DEL.

[Codehammer]

How can One Use the System Idle Process - Its there when you press CTRL+ALT+DEL.

Examining the Code, its only Checking for a mousemove event, the Program Will Work if I use a Txtchanged even, but only if the program is in Focus.

Any Ideas