From 0c808cf8fb80957cebf7a89fd10ef3bd01fa47b3 Mon Sep 17 00:00:00 2001 From: Steve_Jordi Date: Fri, 2 Oct 2026 06:30:43 +0000 Subject: [PATCH 1/2] Update README.md --- README.md | 27 ++++++++++++++++++++++++--- 1 file changed, 24 insertions(+), 3 deletions(-) diff --git a/README.md b/README.md index 96dc0e5..b1b0a19 100644 --- a/README.md +++ b/README.md @@ -1,35 +1,56 @@ # TiltTeamPresence +## Why this utility? +There are many cases when you are working but you appear as not being active. +You may be reading documents, writing a project on paper, be on a cellular phone call with a customer. Teams will turn your activity icon to orange meaning you're not working. + +Being away from the keyboard doesn't mean you're idle and lazy. +Some companies monitor your "activity" by checking your Teams status. +This little utility helps you show you're present in cases you're working away from your computer. + + ## What it does This Windows application simulates a fake activity on your computer by sending fake Mouse UP signals to Windows to keep the Teams session active. - -This delphi application sends three MOUSE UP signals at the current position, every minute making Teams think you're active. +This Delphi application sends three MOUSE UP signals at the current position, every minute making Teams think you're active. This helps make you always appear with a green icon in Teams. -It has not been tested with other solutions, but it should have the same effect on them since Windows is handling the activity. +It has not been tested with other solutions, like Zoom, but it should have the same effect on them since Windows is handling the activity. ## Warning Use it accordingly to your company's policy. +Some companies may forbid such tools. But they should inform you first. + + +### How to use it +- Download the `BatteryHealth.zip` file from the Releases section of this repository and unzip it +- Launch the app +- Click Start Monitoring and it will start sending mouse activities for you. +- You can minimize the window while working. +- Click Stop Monitoring to stop faking your activity. Remember to disable it, say, if you leave for lunch. ## Disclaimer In no way could Tiltsoft or anybody related to it may be responsible for any damage, harm or any kind of loss. This software is provided as-is with no responsabilities or guarantees whatsoever. + ## The name To make the app less suspicious, it has been named BatteryHealth so the users can prentend they are monitoring the battery health of their computer. + ## Info for developers The app has been written with Delphi 13.n but should work with most lower versions. It only uses default VCL components, no third parties. The app uses a thread in order not to steal the resources and also lets the user still click the Stop button to regain control and stop the fake activity. + ## License Creative Commons Attribution-NonCommercial-ShareAlike (CC BY-NC-SA 4.0) +This application is free and always will be. If you use this code you have to follow the following: * BY (Attribution): You must give credit to this original. From 0e467bcaed474f3c84fe24e2dea712ccac646297 Mon Sep 17 00:00:00 2001 From: Steve Jordi Date: Fri, 2 Oct 2026 16:03:31 +0200 Subject: [PATCH 2/2] Source cleanup --- main.pas | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) diff --git a/main.pas b/main.pas index 3674b44..74d355c 100644 --- a/main.pas +++ b/main.pas @@ -37,7 +37,6 @@ type private { Private declarations } FMyTask : ITask ; - currentPos : TPoint ; counter : Integer ; procedure startTask ; procedure stopTask ; @@ -63,7 +62,6 @@ implementation procedure TfrmMain.FormCreate(Sender: TObject); begin runIt := False ; - currentPos := Point( mouse.CursorPos.X , mouse.CursorPos.Y ) ; counter := 0 ; end; @@ -141,11 +139,11 @@ begin if counter >= 60 then begin counter := 0 ; - mouse_event(MOUSEEVENTF_LEFTUP, 0, mouse.CursorPos.X, mouse.CursorPos.Y, 0); - Sleep(150); - mouse_event(MOUSEEVENTF_LEFTUP, 0, mouse.CursorPos.X, mouse.CursorPos.Y, 0); - Sleep(50); - mouse_event(MOUSEEVENTF_LEFTUP, 0, mouse.CursorPos.X, mouse.CursorPos.Y, 0); + mouse_event(MOUSEEVENTF_LEFTUP, 0, mouse.CursorPos.X, mouse.CursorPos.Y, 0); + Sleep(150); + mouse_event(MOUSEEVENTF_LEFTUP, 0, mouse.CursorPos.X, mouse.CursorPos.Y, 0); + Sleep(50); + mouse_event(MOUSEEVENTF_LEFTUP, 0, mouse.CursorPos.X, mouse.CursorPos.Y, 0); end end) end