- 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
-
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