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から復元