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 摘要: 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.
源代码
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
原始评论 (3)
从 Wayback Machine 恢复