Question

我试图制作自己的即时通信工具，并希望如果电脑长时间未使用，用户进入空闲/离开模式。有没有人有一个好主意如何做到这一点？

Answer 1

这是我几年前实现此功能的方法。函数fnIdleTime将告诉您自用户上次触摸鼠标或键盘以来已经过去了多少秒。

Public Declare Function timeGetTime Lib "WINMM.DLL" () As Long

Private Type LASTINPUTINFO
  cbSize As Long
  dwTime As Long
End Type

Public Declare Function GetLastInputInfo Lib "user32.dll" (plii As LASTINPUTINFO) As Long

Public Function fnIdleTime() As Long

  Dim lii As LASTINPUTINFO

  lii.cbSize = Len(lii)

  If (GetLastInputInfo(lii) > 0) Then
    fnIdleTime = (timeGetTime - lii.dwTime)  1000
  End If

End Function

友情链接