MISE EN VEILLE QUAND LA SOURIS DORT

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