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