Reveille de l'ordinateur en veille
guilelaid
Messages postés
6
Date d'inscription
dimanche 5 juin 2005
Statut
Membre
Dernière intervention
15 février 2006
-
13 févr. 2006 à 03:00
guilelaid Messages postés 6 Date d'inscription dimanche 5 juin 2005 Statut Membre Dernière intervention 15 février 2006 - 15 févr. 2006 à 02:43
guilelaid Messages postés 6 Date d'inscription dimanche 5 juin 2005 Statut Membre Dernière intervention 15 février 2006 - 15 févr. 2006 à 02:43
A voir également:
- Reveille de l'ordinateur en veille
- Le fournisseur 'microsoft.ace.oledb.12.0' n'est pas inscrit sur l'ordinateur local. - Forum C# / .NET
- Aucune connexion n'a pu être établie car l'ordinateur cible l’a expressément refusée - Forum C# / .NET
- Le fournisseur 'microsoft.ace.oledb.12.0' n'est pas inscrit sur l'ordinateur local ✓ - Forum Visual Basic
- Créer un jeu de l'oie sur ordinateur - Forum C
- Envoyer mail SMTP -> ERROR - Forum PHP
2 réponses
cs_Willi
Messages postés
2375
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
15 décembre 2018
21
13 févr. 2006 à 11:10
13 févr. 2006 à 11:10
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
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
guilelaid
Messages postés
6
Date d'inscription
dimanche 5 juin 2005
Statut
Membre
Dernière intervention
15 février 2006
15 févr. 2006 à 02:43
15 févr. 2006 à 02:43
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
plutot la fonction qui fait sortir l'ordinateur du mode de veille?
MErci
