B4J Question Windows user idle time

[MarrowZero]

Hi peoples, is there a modern library or method for detecting when windows user is idle?

There is this old library, but I didn't find anything 'modern'

jWin32IdleTime - Get user's idle time (Windows)

Hi, This script is a B4J compiled version of this example : http://ochafik.com/blog/?p=98 by Olivier Chafik. The library aims at retrieving the user's idle time using the Windows' GetLastInput Method. It could be useful in case of a chat program, or to stop certain actions when the user is not...

www.b4x.com

Thanks

 

[MarrowZero]

I've trawled my way through the forum, but so far all examples are old/non-working.

I'd be grateful for a point in the right direction or maybe there a general example of how to call the windows api that can be modified

Thanks

 

[Erel]

#AdditionalJar: jna-5.8.0 
#AdditionalJar: jna-platform-5.8.0 
Sub Process_Globals
    
End Sub

Sub AppStart (Args() As String)
    Test
    StartMessageLoop
End Sub

Sub Test
    For i = 1 To 10
        Log(GetIdleTime)
        Sleep(1000)
    Next
End Sub

'Returns the idle time in milliseconds.
Sub GetIdleTime As Int
    Dim LASTINPUTINFO  As JavaObject
    LASTINPUTINFO .InitializeNewInstance("com.sun.jna.platform.win32.WinUser.LASTINPUTINFO", Null)
    Dim User32 As JavaObject
    User32 = User32.InitializeStatic("com.sun.jna.platform.win32.User32").GetField("INSTANCE")
    User32.RunMethod("GetLastInputInfo", Array(LASTINPUTINFO ))
    Dim Kernel32 As JavaObject
    Kernel32 = Kernel32.InitializeStatic("com.sun.jna.platform.win32.Kernel32").GetField("INSTANCE")
    Dim CurrentTicks As Int = Kernel32.RunMethod("GetTickCount", Null)
    Dim LastInput As Int = LASTINPUTINFO.GetField("dwTime")
    Dim delta As Int = CurrentTicks - LastInput
    Return delta
End Sub

You need to download the two jars and put them in the additional libraries folder:

https://mvnrepository.com/artifact/net.java.dev.jna