1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
| #include <MsgBoxConstants.au3>
#include <WinAPIProc.au3>
;
; AutoIt Version: 3.0
; Language: Français
; Plate-forme: Windows 7, Windows 10
; Auteur: ********
; Vu ici ==> https://www.autoitscript.fr/forum/viewtopic.php?t=13696#p95670
; Fonction:
; ......
; De cette manière, le(s) écran(s) ne se mettent jamais en veille.
;
; Tant que la touche "Échap" n'est pas appuyée......
HotKeySet("{esc}", "Quitter")
_WinAPI_SetThreadExecutionState(BitOR($ES_SYSTEM_REQUIRED, $ES_CONTINUOUS, $ES_DISPLAY_REQUIRED))
While 1
Sleep(900000) ; Ici le temps de la pause est de 15 minutes, donc vous pouvez le modifier (15*60*1000 = 900000 ms)
;MsgBox(270384, "Script en cours", "Ce script empêche la mise en veille des écrans. Appuyer sur OK, puis sur Échap pour le désactiver.", 15)
WEnd
Func Quitter()
MsgBox(270400, "Arrêt du script", "Le script n'est plus actif. Pour empêcher la mise en veille des écrans, merci de relancer Disable_Sleeping.exe !")
Exit
EndFunc ;==>Quitter |
Partager