hi
it togles time recording in ToDoList if you dont
use mouse or keyboard defined time.
its in a alpha version and may you could make it better.
may you know SmartWorkTimeTracker, then you know what it wants to be ... maybe one time in future.
Code:
#NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir% ; Ensures a consistent starting directory.
#SingleInstance force
; Stop time tracking with ToDoList
; with trick: restarting tool
; first save the currant:
SetTitleMatchMode,2
t= - ToDoList ® AbstractSpoon
IfWinNotExist, %t%
{
tooltip,not exist
sleep,5000
exitapp
}
WinGetTitle, tFullFirst,%t%
SetTitleMatchMode,3
;ahk_class Afx:400000:b:10013:6:513063d
tooltip,save current 15
; ControlSend [, Control, Keys, WinTitle, WinText, ExcludeTitle, ExcludeText]
; ControlSend, , abc, cmd.exe ; Send directly to a command prompt window.
WinActivate, %tFullFirst%
WinWaitActive, %tFullFirst%, ,2
Loop,90
{
tooltip, save - %tFullFirst%
star=*
if star not in %tFullFirst%
break
ControlSend,, ^s , %tFullFirst%
Sleep,100
WinGetTitle, tFullFirst,%tFullFirst%
}
tooltip, close current 17
ControlSend,, {CTRLDOWN}{ALTDOWN}c{ALTUP}{CTRLUP}, %tFullFirst%
Sleep,800
SetTitleMatchMode,2
WinGetTitle, tFullSecond,%t%
SetTitleMatchMode,3
IfWinNotExist, %tFullSecond%
{
tooltip, %tFullSecond% not exist
sleep,5000
exitapp
}
tooltip, reload last - %tFullFirst% 202
Sleep,600
SetKeyDelay , 5, 5,InputThenPlay
Loop,90
{
WinActivate, %tFullSecond%
WinWaitActive, %tFullSecond%, ,2
SetTitleMatchMode,2
WinGetTitle, tFull2,%t%
SetTitleMatchMode,3
if tFull2=%tFullFirst%
{
;msgbox, nice
break
}
WinActivate, %tFullSecond%
WinWaitActive, %tFullSecond%, ,2
IfWinNotActive,%tFullSecond%
continue
Send,{ALTDOWN}f{ALTUP}
;ControlSend,, {ALTDOWN}rf{ALTUP}, %tFull%
Sleep,500
tooltip, reload last 23
WinActivate, %tFullSecond%
WinWaitActive, %tFullSecond%, ,2
IfWinNotActive,%tFullSecond%
continue
Send, {Down 3}r ; reload last
;ControlSend,, {Down 3}r, %tFull% ; reload last
Sleep,100
tooltip, reload last 26
WinActivate, %tFullSecond%
WinWaitActive, %tFullSecond%, ,2
IfWinNotActive,%tFullSecond%
continue
Send,{right}1 ; reload last
;ControlSend,,1, %tFull% ; reload last
}
;--------------------------------
SetTitleMatchMode, 1
WinGetTitle, guiT,TT
tt=OFF
guiTnew=TT %tt%
SetTitleMatchMode, 1
IfWinExist,TT
{
SetTitleMatchMode, 1
WinSetTitle, TT, , %guiTnew%,
}
;--------------------------------
SetTitleMatchMode, 3
t=dB CPUlight v0089 ahk_class AutoHotkeyGUI
WinClose,%t%
WinWaitClose,%t%
Sleep,200
run, dB_CPUlight_v0150.exe
Sleep,800
WinMinimize , %t%