help tweaking gafrost's code for custom use . . .

[John117]

I have the following code. much of it (the important stuff) is form gafrost. I would like it to do three things differently.

I would like to drop the counter that appears by the mouse.

I would like to only preform the _UserNotActive function once unless the user has been active again since the last inactive run

I would like it to fill Edit2 with the first active time since return to active

Ex

edit1, edit2

user is active, edit2 = now

two minutes later:

User is not active, edit1 = now

two hours later user is still not active:

edit1 still = two hours before.

two minutes later:

user active, edit2 = now

and repeat . . .

Code that needs help: I have done about as much as I can see to do to it

CODE

#include <GUIConstants.au3>

#Include <Date.au3>

Opt("GuiOnEventMode", 1)

Global $hParent, $Edit1

$hParent = GUICreate("Time User Action", 716, 561, 155, 134)

GUISetOnEvent($GUI_EVENT_CLOSE, "_Quit", $hParent)

$Edit1 = GUICtrlCreateEdit("Add Last Use Time Here", 10, 30, 230, 60, $ES_WANTRETURN)

$Edit2 = GUICtrlCreateEdit("Add Last Use Time Here", 250, 30, 230, 60, $ES_WANTRETURN)

GUISetState(@SW_SHOW)

Dim $last_active = 0

Dim $Inactive_Seconds = 10

Dim $timer = TimerInit()

$not_idle = _CheckIdle($last_active, 1)

While (1)

$not_idle = _CheckIdle($last_active)

If $not_idle <> 0 Then $timer = TimerInit()

ToolTip(Int(TimerDiff($timer) / 1000))

Sleep(200)

If Int(TimerDiff($timer) / 1000) >= $Inactive_Seconds Then

_UserNotActive()

$timer = TimerInit()

$not_idle = _CheckIdle($last_active, 1)

EndIf

WEnd

Func _CheckIdle(ByRef $last_active, $start = 0)

$struct = DllStructCreate("uint;dword");

DllStructSetData($struct, 1, DllStructGetSize($struct));

If $start Then

DllCall("user32.dll", "int", "GetLastInputInfo", "ptr", DllStructGetPtr($struct))

$last_active = DllStructGetData($struct, 2)

Return $last_active

Else

DllCall("user32.dll", "int", "GetLastInputInfo", "ptr", DllStructGetPtr($struct))

If $last_active <> DllStructGetData($struct, 2) Then

Local $save = $last_active

$last_active = DllStructGetData($struct, 2)

Return $last_active - $save

EndIf

EndIf

EndFunc ;==>_CheckIdle

Func _Quit()

Exit

EndFunc ;==>_Quit

Func _UserNotActive()

GUICtrlSetData($Edit1, _NowTime (5))

EndFunc ;==>_UserNotActive

Func _UserActive()

GUICtrlSetData($Edit2, _NowTime (5))

EndFunc ;==>_UserActive

Please help if you can! other post and tips welcome!

Edited August 2, 2007 by Hatcheda

[GaryFrost]

While (1)
    $not_idle = _CheckIdle($last_active)
    If $not_idle <> 0 Then 
        $timer = TimerInit()
        _UserActive()
    Else
        ToolTip(Int(TimerDiff($timer) / 1000))
        Sleep(200)
    EndIf
    If Int(TimerDiff($timer) / 1000) >= $Inactive_Seconds And $last_active <> 0 Then
        _UserNotActive()
        $timer = TimerInit()
        $not_idle = _CheckIdle($last_active, 1)
    EndIf
WEnd

[John117]

ok, thanks! It is now updating the active box! (over and over as needed!)

It is still updating the inactive every x seconds when it is not used though. (idea would be to only update once then wait till active, if inactive after active again then update again . . .)

Suppose it is inactive for 20hours. If the timer is set to 2 minutes, it should only have one timestamp for inactive (19hours and 58 minutes ago)

is there any way to drop\hide the counter by the mouse?

Thanks for your help!

an example of updating only once is in the code below: (only setup for mouse detection)

CODE

#include <GUIConstants.au3>

#Include <Date.au3>

Opt("GuiOnEventMode", 1)

Global $Mouse1, $Mouse2, $hParent, $Edit1, $Time

$hParent = GUICreate("Time Mouse Movement", 716, 561, 155, 134)

GUISetOnEvent($GUI_EVENT_CLOSE, "_Quit", $hParent)

$Edit1 = GUICtrlCreateEdit("Increase count when mouse not active for X time", 10, 30, 230, 60, $ES_WANTRETURN)

GUISetState(@SW_SHOW)

$n = 0 ; Counter

While 1

_CheckMouse1() ; Goto get mouse pos first time

Sleep(2000)

$n = $n + 1 ; Adds 1 to the counter every two seconds

_CheckMouse2() ; Goto func Get mouse pos second time

WEnd

Func _CheckMouse1()

$pos1 = MouseGetPos()

$Mouse1 = $pos1[0] + $pos1[1]

EndFunc ;==>_CheckMouse1

Func _CheckMouse2()

$pos2 = MouseGetPos()

$Mouse2 = $pos2[0] + $pos2[1]

If $Mouse1 <> $Mouse2 Then

$n = 0

ElseIf $Mouse1 = $Mouse2 And $n = 2 Then

_UserNotActive()

EndIf

EndFunc ;==>_CheckMouse2

Func _Quit()

Exit

EndFunc ;==>_Quit

Func _UserNotActive()

GUICtrlSetData($Edit1, _NowTime (5))

EndFunc ;==>_UserNotActive

Edited August 2, 2007 by Hatcheda

[GaryFrost]

You'll have to play around with how you want it to update....

Dim $last_active = 0
Dim $Inactive_Seconds = 120
Dim $idling = False
Dim $timer = TimerInit()

$not_idle = _CheckIdle($last_active, 1)

While (1)
    $not_idle = _CheckIdle($last_active)
    If $not_idle <> 0 Then 
        $timer = TimerInit()
        _UserActive()
        $idling = False
        Sleep(200)
    ElseIf Int(TimerDiff($timer) / 1000) >= $Inactive_Seconds Then
        If Not $idling Then _UserNotActive()
        $idling = True
        Sleep(200)
    EndIf
WEnd

[martin]

It is still updating the inactive every x seconds when it is not used though. (idea would be to only update once then wait till active, if inactive after active again then update again . . .)

Suppose it is inactive for 20hours. If the timer is set to 2 minutes, it should only have one timestamp for inactive (19hours and 58 minutes ago)

is there any way to drop\hide the counter by the mouse?

expandcollapse popup

#include <GUIConstants.au3>
#Include <Date.au3>
Opt("GuiOnEventMode", 1)


Global $hParent, $Edit1
$hParent = GUICreate("Time User Action", 716, 561, 155, 134)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Quit", $hParent)
$Edit1 = GUICtrlCreateEdit("Add Last Use Time Here", 10, 30, 230, 60, $ES_WANTRETURN)
$Edit2 = GUICtrlCreateEdit("Add Last Use Time Here", 250, 30, 230, 60, $ES_WANTRETURN)
GUISetState(@SW_SHOW)



Dim $last_active = 0
Dim $Inactive_Seconds = 10
Dim $timer = TimerInit()

$not_idle = _CheckIdle($last_active, 1)

$activity = false;<------------- added

While (1)
    $not_idle = _CheckIdle($last_active)
    If $not_idle <> 0 Then
        $timer = TimerInit()
        _UserActive()
    Else
       ;ToolTip(Int(TimerDiff($timer) / 1000))
        Sleep(200)
    EndIf
    If Int(TimerDiff($timer) / 1000) >= $Inactive_Seconds And $activity Then;$last_active = 0 Then <-----------changed
        _UserNotActive()
        $timer = TimerInit()
        $not_idle = _CheckIdle($last_active, 1)
    EndIf
WEnd

Func _CheckIdle(ByRef $last_active, $start = 0)
$struct = DllStructCreate("uint;dword");
DllStructSetData($struct, 1, DllStructGetSize($struct));
If $start Then
DllCall("user32.dll", "int", "GetLastInputInfo", "ptr", DllStructGetPtr($struct))
$last_active = DllStructGetData($struct, 2)
Return $last_active
Else
DllCall("user32.dll", "int", "GetLastInputInfo", "ptr", DllStructGetPtr($struct))
If $last_active <> DllStructGetData($struct, 2) Then
Local $save = $last_active
$last_active = DllStructGetData($struct, 2)
Return $last_active - $save
EndIf
EndIf
EndFunc;==>_CheckIdle


Func _Quit()
Exit
EndFunc;==>_Quit

Func _UserNotActive()
GUICtrlSetData($Edit1, _NowTime (5))
$activity = false;<---------------------
EndFunc;==>_UserNotActive

Func _UserActive()
GUICtrlSetData($Edit2, _NowTime (5))
$activity = true<-------------------------
EndFunc;==>_UserActive

[John117]

lobishomen -That is exactly what I was looking for . . . I can work it into my code as is! Thanks!

Martin -Thank you for your post also!

Edited August 2, 2007 by Hatcheda