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...
AI
AI Summary: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Source Code
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
Original Comments (3)
Recovered from Wayback Machine