diff --git a/README.md b/README.md index b1b0a19..96dc0e5 100644 --- a/README.md +++ b/README.md @@ -1,56 +1,35 @@ # 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, like Zoom, but it should have the same effect on them since Windows is handling the activity. +It has not been tested with other solutions, 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. diff --git a/main.pas b/main.pas index 74d355c..3674b44 100644 --- a/main.pas +++ b/main.pas @@ -37,6 +37,7 @@ type private { Private declarations } FMyTask : ITask ; + currentPos : TPoint ; counter : Integer ; procedure startTask ; procedure stopTask ; @@ -62,6 +63,7 @@ implementation procedure TfrmMain.FormCreate(Sender: TObject); begin runIt := False ; + currentPos := Point( mouse.CursorPos.X , mouse.CursorPos.Y ) ; counter := 0 ; end; @@ -139,11 +141,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