/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Tid
Fra : Jens Andersen


Dato : 28-07-01 17:26

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





 
 
Tomas Christiansen (28-07-2001)
Kommentar
Fra : Tomas Christiansen


Dato : 28-07-01 23:27

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


Jens Andersen (29-07-2001)
Kommentar
Fra : Jens Andersen


Dato : 29-07-01 00:33

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



Barney Gumble (29-07-2001)
Kommentar
Fra : Barney Gumble


Dato : 29-07-01 10:06

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



Bjarke Walling Peter~ (29-07-2001)
Kommentar
Fra : Bjarke Walling Peter~


Dato : 29-07-01 13:12

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



Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408929
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste