Reveille de l'ordinateur en veille

Signaler
Messages postés
6
Date d'inscription
dimanche 5 juin 2005
Statut
Membre
Dernière intervention
15 février 2006
-
Messages postés
6
Date d'inscription
dimanche 5 juin 2005
Statut
Membre
Dernière intervention
15 février 2006
-
Bonjour j'ai trouvé un code pour mettre l'ordinateur en veille,
maintenant j'aimerai faire en sorte que l'ordinateur sorte du mode de
veille tout seul a une heure donnée, quel serait la function ou autre
methode pour cela?



Merci

2 réponses

Messages postés
2375
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
15 décembre 2018
22
Bonjour,
Tu peux faire bouger la souris pour simuler la présence d'un utilisateur derrière son écran mais par programmation je ne sais pas si cela va enlever l'écran de veille ou la veille du système.
Mais voici l'idée utilise un timer qui va comparer la date/heure actuelle avec la date/heure de réveil

Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Type POINTAPI
x As Long
y As Long
End Type


Dim DateReveil As Date


Private Sub Form_Load()

Timer1.Interval = 5000 '5 secondes
DateReveil = DateAdd("n", 5, Now) 'Dans 5 minutes....


End Sub


Private Sub Timer1_Timer()


If DateReveil <= Now Then

'réveil ton pc :)
Dim posCursor As POINTAPI

GetCursorPos posCursor 'Position du curseur
SetCursorPos posCursor.x + 30, posCursor.y + 30 'Fait bouger la souris

Timer1.Enabled = False

End If

End Sub



<HR width="100%" SIZE=2>



Si la réponse te conviens merci de l'accepter
Messages postés
6
Date d'inscription
dimanche 5 juin 2005
Statut
Membre
Dernière intervention
15 février 2006

Il me faudrait au lieu de la commande pour faire bouger la souris
plutot la fonction qui fait sortir l'ordinateur du mode de veille?



MErci