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
Yapay Zeka Özeti: 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.
Kaynak Kod
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
Orijinal Yorumlar (3)
Wayback Machine'den kurtarıldı