Petit programme qui permet de désactiver / Activer les veilles PC
Vous devez d'abord créer 2 fichiers ".bat" a l'aide du Bloc-Notes Copiez le 1er bat que vous nommerez "DesactiveVeille.bat" puis le 2em Bat que vous nommerez "ActiveVeille.bat
1er Bat
----------------------
@echo off
:: desactive la veille prolongee et la veille simple
:: desactive la veille simple
powercfg /change "Toujours actif" /standby-timeout-ac 0
echo Veille simple desactivee
echo.
:: desactive la veille prolongee
powercfg /change "Toujours actif" /hibernate-timeout-ac 0
echo Veille prolongee desactivee
echo.
-----------------
2em bat
-----------------
@echo off
echo.
:: Active la veille simple
powercfg /change "Toujours actif" /standby-timeout-ac 3
echo Veille simple activee
echo.
:: Active la veille prolongee
powercfg /change "Toujours actif" /hibernate-timeout-ac 5
echo Veille prolongee activee
echo.
--------------------
"Toujours actif" est le nom du mode actif dans les propriétés de gestion d'alimentation 3 et 5 sont la durée en minute avant mise en veille
Source / Exemple :
Option Explicit
Dim ret
Private Sub Form_Load()
Form1.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
End Sub
Private Sub Command1_Click()
ret = Shell("DesactiveVeille.bat")
Label1.Caption = "Veille simple et prolongee desactivee"
End Sub
Private Sub Command2_Click()
ret = Shell("ActiveVeille.bat")
Label1.Caption = "Veille simple et prolongee Activees"
End Sub
Private Sub Command3_Click()
End
End Sub
Conclusion :
ce petit prog vous évitera un arrêt intempestif il suffit d'ajouter
Shell("DesactiveVeille.bat")
au debut de vos programmes et
Shell("ActiveVeille.bat")
a la fin
placer les ".bat" dans le même dossier que votre prog
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.