No Screensaver.....

Veröffentliche deine funktionierenden Skripte und Funktionen

Moderator: jNizM

daterone
Posts: 8
Joined: 08 Mar 2021, 17:00

No Screensaver.....

23 Mar 2024, 05:04

Hallo,
bei mir auf der Arbeit wurde Windows 10 so eingestellt, das nach kürzester Zeit der Bildschirmschoner angeht,
und ich mich wieder und wieder anmelden muss, wenn ich mal passiert habe!
Also ein Script muss her, das dass blöde Anmelden verhindert.
Bei Windows 10 funktioniert es, Win11 weis ich nicht, aber eigentlich auch,

In diesem Script wird, falls die Maus nicht bewegt wird, die Maus um 1 Pixel bewegt,
und Windows glaubt ich arbeitet noch, also kein Screensaver starten.
Mit der Taster ^ ( lange gedrückt) kann ich den Bildschirmschoner von Hand starten.
Und in der Taskleiste (CD Bild) (....dll,52.1) kann man das Programm beenden.

Falls im HomeOffice die Maus Bewegung kontrolliert werden sollte, ( was eigentlich nicht erlaubt ist )
kann das Programm für mehr Maus-bewegung sorgen ....

>> wait=100 auf 25-35
>> xx:=Zufalls wert oder Random...
>> Und die der Mauszeiger hüpft über dem Bildschirm !

Code: Select all


SetWinDelay,-1
SetControlDelay, -1
ListLines, Off

	MouseGetPos,x ,y
	xa:=x
	ya:=y
	wait:=0
	settimer,mouse,650

Menu, Tray, Icon, C:\WINDOWS\system32\imageres.dll,52,1
Menu, TRAY,NoStandard
menu, Tray,NoDefault
Menu, Tray,Add,EXIT, MenuHandler 
Menu, Tray,Add,Screensaver, MenuHandler 
return
;##############################################################################
MenuHandler:
if A_ThisMenu=Tray
	{
	if A_ThisMenuItem=EXIT
			Exitapp
	if A_ThisMenuItem=Screensaver
			{
			sleep,500
			SendMessage, 0x0112, 0xF140, 0,, Program Manager
			}
	}
return		
;##############################################################################
^::
	key=%A_ThisHotkey%
	KeyWait,%key%, T0.4
	if (ErrorLevel)
		{
		MsgBox, 4, , Screensaver Starting in 3 Seconds...,3
		IfMsgBox Timeout
    			SendMessage, 0x0112, 0xF140, 0,, Program Manager
		else IfMsgBox No
    			return
		}
return
;##############################################################################
mouse:
	xa:=x
	ya:=y
	MouseGetPos,x ,y ,id,control
	if (xa=x) & (ya=y)
		wait++
	else
		{
		xa:=x
		ya:=y	
		}
	
	if wait=100
		{
		wait:=0
		bl:=A_sec/2 
 		ifinstring,bl,.5     ;    Ungerade oder gerade Zahl !
			{
			xx:=x+1      ; Maus plus bewegen
			yy:=y+1
			}
		else
			{
			xx:=x-1       ; Maus minus bewegen 
			yy:=y-1
			}

		MouseMove,%xx%,%yy%
		}
return

halweg
Posts: 93
Joined: 17 Apr 2018, 10:34
Location: Dresden

Re: No Screensaver.....

23 Mar 2024, 08:27

Interessant und schön.
Aber ist es wirklich so, dass dies vom System als echte Mausbewegung erkannt wird?
Abgesehen davon habe ich Zweifel, ob man in einer vom Arbeitgeber kontrollierten Umgebung, wo man nicht mal die Verzögerung des Bildschirmschoners einstellen kann, ein AHK Script starten kann.
daterone
Posts: 8
Joined: 08 Mar 2021, 17:00

Re: No Screensaver.....

23 Mar 2024, 12:24

Hallo,
ja, bei mir auf der Arbeit funktioniert das Programm, und da ich sehr viel in AutoHotKey Programmiere, kann ich da auch Scripte starten.
Bei und wurde von der IT, System Weit so eingestellt, das nach kurzer Pause ich mich wieder anmelden muss, jetzt nicht mehr !

Return to “Skripte und Funktionen”

Who is online

Users browsing this forum: No registered users and 50 guests