---

Hvordan finder jeg ud af hvor lang tid siden en bruger har brugt computeren
effektivt ?

FX. kan man sætte windows til at lukke ned for en skærm hvis den ikke er
blevet brugt efter et bestemt tidsrum

---

Jens Andersen skrev:
> Hvordan finder jeg ud af hvor lang tid siden en bruger har brugt computeren
> effektivt ?

"Effektivt"??? DET bliver svært - kræver vist en eller anden form for kunstig intelligens...

> FX. kan man sætte windows til at lukke ned for en skærm hvis den ikke er
> blevet brugt efter et bestemt tidsrum

Tjaaa... Det er vel det, som pauseskærme er beregnet til.

Hvis du ønsker selv at kreere et program med samme funktionalitet, er det f.eks. mulig at se på hvor musepilen befinder sig. Står
den stille i mere end X sekunder, er der en stor sandsynlighed for at brugeren ikke er "effektiv". Natuligvis bør tastaturet også
monitoreres.

Er det noget i den stil du søger?

-------
Tomas

---

Jeg har også tænkt på det som løsning

Musen bliver ikke noget problem men knapperne er lidt svære

Jeg er ikke sikker på at keydown bliver opfanget hvis programmet ikke er i
fokus

---

Hvad med når brugeren spiller og IKKE bruger hverken mus eller tastatur men
kun Joystick? Eller om WinDOS ikke fanger musbevegelser fordi man spiller
med denne? Eller om man ser en film på PCen (MPG/DVD/AVI)? Det bliver ikke
lett...

BG

"Jens Andersen" <til@infojens.dk> skrev i en meddelelse
news:3b634ba7$0$3195$edfadb0f@dspool01.news.tele.dk...
> Jeg har også tænkt på det som løsning
>
> Musen bliver ikke noget problem men knapperne er lidt svære
>
> Jeg er ikke sikker på at keydown bliver opfanget hvis programmet ikke er i
> fokus
>
>

---

Jens Andersen skrev:
> Jeg har også tænkt på det som løsning
>
> Musen bliver ikke noget problem men knapperne er lidt svære
>
> Jeg er ikke sikker på at keydown bliver opfanget hvis programmet ikke er i
> fokus

Det har du fuldstændig ret i - det gør de ikke. Men med lidt api kan det
nemt løses. Her er koden (husk først at placere en Timer på din Form, med et
lille interval):

Private Declare Function GetAsyncKeyState Lib _
"user32" (ByVal vKey As Long) As Integer
Private Sub Timer1_Timer()
Dim i As Integer
Dim KeyDown As Boolean
KeyDown = False
For i = 1 To 255
KeyDown = KeyDown Or (GetAsyncKeyState(i) <> 0)
Next i
If KeyDown Then
' En tast er trykket
End If
End Sub

Der er bare en lille bug i det... hvis man holder en tast nede, vil værdien
af KeyDown stå og skifte mellem True og False (men mest True).
Du kan jo prøve at sætte Me.Caption = KeyDown ind og se lidt på det...

- Bjarke Walling Petersen