En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Recherche

Recherche

Les mémos

Je débute...

Visites

 1263830 visiteurs

 5 visiteurs en ligne

Nous contacter

Contact

Bloquer la mise en veille

Bloquer et empêcher la mise en veille du PC

Il peut arriver que l'on veuille effectuer des sauvegardes automatiques ou d'autres accès à la base à une période déterminée.

Pour cela, il faut que le PC ne se mette pas en veuille de manière incontrôlée.

Un petit utilitaire et quelques lignes de code sous forme d'une fonction résout ce problème.

D'abord, on récupère l'utilitaire Caffeine sur le site de l'auteur ou ici et que l'on placera (dézippé) dans le même répertoire que la base.

Ensuite, on place la fonction dans un module général.

Dans le code, il suffira d'activer le blocage de la mise en veille.
 

NoSleep True
'/
'/ placez ici le code que l'on souhaite exécuter
'/
NoSleep False

  

La fonction toute simple :

Function NoSleep(OnOff As Boolean)
    '---------------------------------------
    ' Il faut placer le petit utilitaire "Caffeine.exe"
    ' dans le même répertoire que la base de données
    '
    ' Syntaxe
    '=========
    ' Pour empêcher la mise en veille du PC :
    ' NoSleep True
    ' et lorsque la tâche est effectuée :
    ' NoSleep False
    '----------------------------------------
    Dim sApp As String
    sApp = CurrentProject.Path & "Caffeine.exe"

    If OnOff Then
        Shell sApp
    Else
        Shell sApp & " -appexit"
    End If
End Function

Catégorie : Les mémos - Modules
Page lue 3138 fois
Vous êtes ici :   Accueil » Bloquer la mise en veille