mainly gurus but anyone please help!!

[zmerlinz]

hi,

does anyone know a way to check for harddrive inactivity for a set period time of 15mins (excluding screen saver)
then unload my program

thanks to anyone who can help me

please include code

Cheers

Merlin ?

Add the following to a Form with a Timer.

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Type POINTAPI
    X As Long
    Y As Long
End Type

Dim CurPos As POINTAPI
Dim OldX As Single
Dim OldY As Single
Dim StartTime As Date

Sub Start()
    'Create a StartTime
    StartTime = Format(Time, "hh:mm:ss")
End Sub

Private Sub Form_Load()
    'Give a StartTime when the Form loads
    Start
    Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
    'Loop through the keys and see if they were pressed
    For I = 32 To 127
        If GetAsyncKeyState(I) Then Start
        'Do the same for the Mouse Buttons
        If GetAsyncKeyState(vbLeftButton) Then Start
        If GetAsyncKeyState(vbRightButton) Then Start
    Next
    
    'Check if mouse is still
    MyPos = GetCursorPos(CurPos)
    X = CurPos.X
    Y = CurPos.Y
    If OldX = X And OldY = Y Then
        'The mouse is still
    Else
        'the Mouse is not still
        OldX = X
        OldY = Y
        'Create a new StartTime
        Start
    End If
    
    'Subtract the current time with the StartTime
    Retval = StartTime - Time
    Retval = Format(Retval, "hh:mm:ss")
    'If it's been 15 min then unload the form
    If Retval = "00:15:00" Then
        Unload Me
        'Create a new StartTime
        Start
    End If
End Sub

[zmerlinz]

cheers megatron that was very useful.


Merlin ?

[PaulLewis]

Megatron,
How does your code test for hard drive inactivity?

It seems to only check if a key is pressed or mouse is moved.

Cheers

[zmerlinz]

i agree with Paul here, how does it work Megatron ?

Merlin ?