Mise en veille quand la souris dort

Télécharger le projet
Commenter

Description

Ce code permet de mettre en veille l'ordinateur quand la souris n'a pas bougé depuis un temps donné.

Source / Exemple : 


Il faut une form avec 2 controles Timer avec la propriété Enabled à True (Timer1 : Propriété Interval à 1000 et Timer2 avec propriété Interval à 1)

Dans le code de la Form mettre le code qui suit :

'DECLARATION DES FONCTIONS

'FONCTION MISE EN VEILLE DE L'ORDINATEUR
Private Declare Function SetSystemPowerState Lib "kernel32" (ByVal fSuspend As Long, ByVal fForce As Long) As Long

Private Sub Timer1_Timer()
Dim Pos As POINTAPI
GetCursorPos Pos

If Pos.Xx = X And Pos.Yy = Y Then TempsAttente = TempsAttente + 1

'Mettre le temps d'attente en secondes (ici 5 secondes)
If TempsAttente = 5 Then
TempsAttente = 0

'MISE EN VEILLE DE L'ORDINATEUR

'Mise en veille de l'ordinateur. Question posée sur fermeture connection réseau.
'ModeVeille 0

'Mise en veille forcée de l'ordinateur. Aucune question ne sera posée.
ModeVeille 1

End If
End Sub

Private Sub Timer2_Timer()
Dim Pos As POINTAPI
GetCursorPos Pos

X = Pos.Xx
Y = Pos.Yy
End Sub

Private Sub ModeVeille(Parametre As Integer)
On Error Resume Next
SetSystemPowerState 1, Parametre
End Sub

'******************************************
'Dans un module mettre le code suivant :

Public X As Integer
Public Y As Integer
Public TempsAttente As Integer

Declare Function GetCursorPos Lib "User32" (lpPoint As POINTAPI) As Long

Type POINTAPI
Xx As Long
Yy As Long
End Type
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (ZTPdiffusion)