• Home
 · 
• Windows API Call/Explanation
 · 
• Idle Auto away

Idle Auto away

this code show how to make an Auto Away like ICQ with Windows Api call GetLastInputInfo. Only work on Nt, 2000, and Xp not on 98,me...

Assumes
The value return to dwtime is the last time when the user move the mouse or use the keyboard. The time begin when the session is open. Put a Timer and a textbox on a form. Name the textbox text1 and timer timer1 and copy and past this code.

Rate Idle Auto away

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Private Type tagLASTINPUTINFO
  cbSize As Long
  dwTime As Long
End Type
Private Declare Function GetLastInputInfo Lib "user32" (ByRef LASTINPUTINFO As tagLASTINPUTINFO) As Long
Private Sub Timer1_Timer()
  Dim mLast As tagLASTINPUTINFO
  mLast.cbSize = Len(mLast)
  Call GetLastInputInfo(mLast)
  Me.Text1.Text = mLast.dwTime
End Sub