Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]
| From | "F. W." <me@home.invalid> |
|---|---|
| Newsgroups | ger.ct |
| Subject | MouseMover |
| Date | 2025-12-01 14:08 +0100 |
| Message-ID | <mp5iacFpcnsU1@mid.individual.net> (permalink) |
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
Back to ger.ct | Previous | Next — Next in thread | Find similar | Unroll thread
MouseMover "F. W." <me@home.invalid> - 2025-12-01 14:08 +0100
Re: MouseMover Goetz Schultz <ng.expire1230@goetz.co.uk> - 2025-12-01 13:17 +0000
Re: MouseMover Fidel Sebastián Hunrichse-Lara <Fidel-Sebastian_Hunrichse_Lara@b.maus.de> - 2025-12-01 15:06 +0100
Re: MouseMover "F. W." <me@home.invalid> - 2025-12-01 15:07 +0100
Re: MouseMover Michael Zink <michael@swamp.franken.de> - 2025-12-07 15:37 +0100
Re: MouseMover "F. W." <me@home.invalid> - 2025-12-08 07:17 +0100
Re: MouseMover Lars Gebauer <lgebauer@live.de> - 2025-12-08 12:07 +0100
Re: MouseMover Ruediger Lahl <ruediger.lahl@gmx.de> - 2025-12-01 18:36 +0100
Re: MouseMover Goetz Schultz <ng.expire1230@goetz.co.uk> - 2025-12-01 22:46 +0000
Re: MouseMover Ruediger Lahl <ruediger.lahl@gmx.de> - 2025-12-02 05:34 +0100
Re: MouseMover Dietz Proepper <dietz.usenet@rotfl.franken.de> - 2025-12-02 09:38 +0100
Re: MouseMover Goetz Schultz <ng.expire1230@goetz.co.uk> - 2025-12-02 09:35 +0000
Re: MouseMover Ruediger Lahl <ruediger.lahl@gmx.de> - 2025-12-02 10:50 +0100
Re: MouseMover Goetz Schultz <ng.expire1230@goetz.co.uk> - 2025-12-02 16:22 +0000
Re: MouseMover "F. W." <me@home.invalid> - 2025-12-02 11:02 +0100
Re: MouseMover Ruediger Lahl <ruediger.lahl@gmx.de> - 2025-12-02 11:46 +0100
Re: MouseMover Goetz Schultz <ng.expire1230@goetz.co.uk> - 2025-12-02 16:25 +0000
Re: MouseMover Michael Bode <m.g.bode@web.de> - 2025-12-02 19:51 +0100
Re: MouseMover Goetz Schultz <ng.expire1230@goetz.co.uk> - 2025-12-02 21:00 +0000
Re: MouseMover Michael Bode <m.g.bode@web.de> - 2025-12-02 22:32 +0100
Re: MouseMover Goetz Schultz <ng.expire1230@goetz.co.uk> - 2025-12-02 22:09 +0000
Re: MouseMover Andreas Fecht <forum@aftec.de> - 2025-12-02 10:11 +0100
Re: MouseMover "F. W." <me@home.invalid> - 2025-12-02 11:01 +0100
csiph-web