Brugt tid

Du kan bruge i.e. klasserne til at starte en browser.
Oplysninger om startsiden kan du hente i regdatabasen (hvor kan jeg ikke lige huske).
Endelig går jeg ud fra at du kan få enten en timer eller api-timer til at registrere hvornår musen/keybordet sidst blev brugt. Derefter kan du vel få denne timer til at checke med et bestemt interval og udføre opgaven hvis tiden er overskredet.

Hvis det er en function som sådan du ønsker kan jeg ikke hjælpe dig.
Desuden har jeg ikke prøvet det her i praksis og ved derfor ikke om det vil være for ressourcekrævende. 

Det med startsiden er i orden....

Det er kun musen/keybordet´s tid jeg er intersseret i

Hvordan finder jeg ud af hvor musen befinder sig

Det med keybordet kunne jeg måske fix med lidt keydown

Øhm..... Jo den bedste måde at finde musens position på er ved et API kald, som jeg heller ikke kan huske i hovedet men jeg poster det i aften ok.

------Deklaration-------

Public Declare Function GetCursorPos Lib \"user32\" Alias \"GetCursorPos\" (lpPoint As POINTAPI) As Long

type POINTAPI
    x as long
    y as long
end type

public MusPos as POINTAPI

------------
Kør dette i en timer for at finde musens position:

getcursorpos muspos

label1.caption = muspos.x & \", \" & muspos.y

Nå her er så den kode jeg lovede dig, jeg tror den er ikke videre kompliceret.

Private Type POINTAPI
    X As Long
    Y As Long
End Type

\'erklær funktionerne
Private Declare Function GetCursorPos Lib \"user32\" (lpPoint As POINTAPI) As Long


Private Sub Form_Load()
    Dim Point As POINTAPI
 
    \'Cursorens position
    GetCursorPos Point
    MsgBox Point.X & \", \" & Point.Y
   
    Unload Me
End Sub

Fuck jeg opdagede ikke at du havde fået svar......Hvor føler jeg mig dum.