1 Replies - 396 Views - Last Post: 10 July 2017 - 11:55 PM Rate Topic: -----

#1 codesdozer   User is offline

  • New D.I.C Head

Reputation: 0
  • View blog
  • Posts: 3
  • Joined: 10-July 17

API Timer stops when vbmodal form activates

Posted 10 July 2017 - 11:22 PM

Good day!
I need your help. I made an application with an autologoff feature. I used API timer and its working for mdi child forms. However, when a vbmodal load or activate, the API timer stops.
By the way, here is my code:

Option Explicit

Private Type POINTAPI
x As Integer
y As Integer
End Type

'API for Active idle window
Private Declare Sub GetCursorPos Lib "user32.dll" (lpPoint As POINTAPI)
Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Long) As Integer
'API for Inactive idle window
Private Declare Function GetQueueStatus Lib "user32.dll" (ByVal fuFlags As Long) As Long
'API for active window checker
Private Declare Function GetForegroundWindow Lib "user32.dll" () As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long

'API For Inactivity Monitoring SMQ
Private Const QS_KEY = &H1
Private Const QS_MOUSEMOVE = &H2
Private Const QS_MOUSEBUTTON = &H4
Private Const QS_TIMER = &H10
Private Const QS_INPUT = (QS_MOUSE Or QS_KEY)

Private posOld As POINTAPI
Private posNew As POINTAPI

Public gCancelAutoLogOff As Boolean

Public Sub CheckInputIdle(ByVal TimeOut As Long)
Dim lTimer As Long

Dim hforewnd As Long
Dim slength As Long
Dim wintext As String
Dim retval As Long

hforewnd = GetForegroundWindow()
slength = GetWindowTextLength(hforewnd) + 1
wintext = Space(slength)
retval = GetWindowText(hforewnd, wintext, slength)
wintext = Left(wintext, slength - 1)

lTimer = Timer

Do While gCancelAutoLogOff = False

If wintext = MainForm.Caption Then
If InputCheck = True Then
lTimer = Timer
End If
If GetQueueStatus(QS_INPUT) Then
lTimer = Timer
End If
End If

If Timer - lTimer >= TimeOut Then Exit Do


If gCancelAutoLogOff = False Then
gCancelAutoLogOff = True
End If

End Sub

Public Function InputCheck() As Boolean
Dim a As Integer

'Get the current mouse cursor coordinates
Call GetCursorPos(posNew)

'Compare with old coordinates
If ((posNew.x <> posOld.x) Or (posNew.y <> posOld.y)) Then
posOld = posNew
InputCheck = True
Exit Function
End If

' Check keys state
For a = 0 To 255
If (GetAsyncKeyState(a) And &H8001) <> 0 Then
InputCheck = True
Exit Function
End If
Next a
InputCheck = False

End Function

I will appreciate all of your suggestions. Thanks in advance :D/>

Is This A Good Question/Topic? 0
  • +

Replies To: API Timer stops when vbmodal form activates

#2 andrewsw   User is offline

  • RequestedRangeNotSatisfiable
  • member icon

Reputation: 6552
  • View blog
  • Posts: 26,565
  • Joined: 12-December 12

Re: API Timer stops when vbmodal form activates

Posted 10 July 2017 - 11:55 PM

Duplicate closed.
Was This Post Helpful? 0
  • +
  • -

Page 1 of 1