Path: csiph.com!fu-berlin.de!uni-berlin.de!individual.net!not-for-mail
From: "F. W." <me@home.invalid>
Newsgroups: ger.ct
Subject: MouseMover
Date: Mon, 1 Dec 2025 14:08:29 +0100
Lines: 61
Message-ID: <mp5iacFpcnsU1@mid.individual.net>
Mime-Version: 1.0
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 8bit
X-Trace: individual.net /10i4+EZJpXGm4mHMfr/UgUA6U2NIq5Jrl7G9XSopGpbRxc97K
Cancel-Lock: sha1:kyKFDgsEyjSngOOS96WvOG8egg4= sha256:/OFG4a0JdwUyx/FRCWtHmkO45ETI5VOPdYwSR7TAJ5I=
User-Agent: Mozilla Thunderbird
Content-Language: de-DE
Xref: csiph.com ger.ct:651947

Moin,

wenn Ihr so dämlich seid wie ich und einen Bildschirmschoner 
programmiert, der sich nicht mehr deinstallieren lässt, dann braucht Ihr 
ein weiteres Programm, das die Maus gelegentlich bewegt, damit der 
Schoner keinen Start-Befehl bekommt:

program mousemover;

uses
   Windows,   // Benötigt für SetCursorPos, Sleep und GetSystemMetrics
   SysUtils;  // Benötigt für Randomize

var
   ScreenWidth, ScreenHeight: Integer;
   NewX, NewY: Integer;
   MinWait, MaxWait: Integer;
   WaitTime: Integer;
   WaitRange: Integer; // Variable für die Spannweite der Wartezeit

begin
   // Setze Wartezeiten in Millisekunden
   MinWait := 60000;  // 60 Sekunden
   MaxWait := 600000; // 10 Minuten
   WaitRange := MaxWait - MinWait + 1;

   // Initialisiert den Zufallszahlengenerator
   Randomize;

   // Ruft die Bildschirmabmessungen ab
   ScreenWidth := GetSystemMetrics(SM_CXSCREEN);
   ScreenHeight := GetSystemMetrics(SM_CYSCREEN);

   Writeln('--- Maus-Beweger gestartet ---');
   Writeln('Zum Beenden Strg+C drücken.');
   Writeln;

   while True do
   begin
     // 1. Wartezeit bestimmen (zufällig zwischen MinWait und MaxWait)
     // Standardformel: Random(Spanne) + Minimum
     WaitTime := Random(WaitRange) + MinWait;
     Writeln('Warte ', WaitTime div 1000, ' Sekunden...');

     // Wartezeit
     Sleep(WaitTime);

     // 2. Neue zufällige Position bestimmen
     // Rand von 20 Pixeln
     NewX := Random(ScreenWidth - 40) + 20;
     NewY := Random(ScreenHeight - 40) + 20;

     Writeln('Bewege zu X=', NewX, ', Y=', NewY);

     // 3. Mauszeiger bewegen
     SetCursorPos(NewX, NewY);
   end;
end.

FW