benben1234
Messages postés4Date d'inscriptionlundi 2 avril 2007StatutMembreDernière intervention 6 juin 2007
-
30 mai 2007 à 13:31
benben1234
Messages postés4Date d'inscriptionlundi 2 avril 2007StatutMembreDernière intervention 6 juin 2007
-
6 juin 2007 à 08:45
bonjour
je cherhce une petit programme ou un code
qui tourne en tache de fond windows pour relancer l ecran de veille
car toute les 5 minutes le pc passe en mode veille et apres je suis obliger de taper mon mot de passe ( je travail dans un service de livraison et j ai besoin souvent de mon ecran ouvert sur la meme page
et helas je possede pas les droits admin pour changer le temps
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 31 mai 2007 à 09:49
Je t'ai filé toutes les billes, y'a plus qu'à...
Ajoutes simplement un Timer (Timer1) dans une nouvelle Form.
Ensuite, places ce code dans ta Form.
Option Explicit
Private Declare Function GetLastInputInfo Lib "user32.dll" (ByRef plii As LASTINPUTINFO) As Long
Private Declare Function GetTickCount Lib "kernel32.dll" () As Long
Private Type LASTINPUTINFO
cbSize As Long
dwTime As Long
End Type
Public mnInterval As Long
'# Permet de savoir si l'utilisateur est considéré comme absent. L'intervalle est en secondes
Public Function IsInputIdle(ByVal vIdleTimeout As Long) As Boolean
Dim LII As LASTINPUTINFO
LII.cbSize = Len(LII)
If GetLastInputInfo(LII) <> 0 Then
IsInputIdle = (GetTickCount - LII.dwTime) > (1000 * vIdleTimeout)
End If
End Function<hr />
Private Sub Timer1_Timer()
If IsInputIdle(mnInterval) Then
SendKeys "^"
End If
End Sub<hr />
Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
mnInterval = 50 'secondes
End Sub , ----
By Renfield
ici, au bout de cinquante secondes d'inactivité de l'utilisateur (testée toutes les secondes),
on simule une pression de la touche controle.