Mise en veille quand la souris dort

Soyez le premier à donner votre avis sur cette source.

Vue 4 998 fois - Téléchargée 319 fois

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

Ajouter un commentaire

Commentaires

Signaler
cs_shivan
Messages postés
363
Date d'inscription
jeudi 20 décembre 2001
Statut
Membre
Dernière intervention
25 août 2003
 -
c cool a+ bonne prog !
Signaler
ZTPdiffusion
Messages postés
46
Date d'inscription
lundi 16 avril 2001
Statut
Membre
Dernière intervention
7 mars 2002
 -
Je l'ajoute tout de suite.
Signaler
cs_shivan
Messages postés
363
Date d'inscription
jeudi 20 décembre 2001
Statut
Membre
Dernière intervention
25 août 2003
 -
tres bon code, mais stp met un zip merci !
10/10

$hîv@n
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)