Code: Select all
Message>Goodbye
SetControlText>Macro Scheduler Message,TButton,1,>>------>
GetFocusedObject>hwnd
Let>MessageTimeout=5
Timer>StartTime
Let>TotalTime=
Let>WinX=0
Repeat>TotalTime
Add>WinX,5
Let>WIN_USEHANDLE=1
MoveWindow>hwnd,WinX,5
Let>WIN_USEHANDLE=0
Timer>EndTime
Let>TotalTime={%MessageTimeout%-(round((%EndTime%-%StartTime%)/1000))}
SetControlText>Macro Scheduler Message,TMemo,1,Goodbye in %TotalTime%
SetControlText>Macro Scheduler Message,TButton,1,>>---%TotalTime%--->
Wait>0.11
Until>TotalTime=0
IfWindowOpen>Macro Scheduler Message*
SetFocus>Macro Scheduler Message*
EndIf
Press Enter
Exit>0