Wie kann man in vb6 feststellen, ob das System im Leerlauf ist, schläft usw.

Question

Ich versuche, meinen eigenen Instant Messenger zu erstellen und möchte, dass der Benutzer in den Leerlauf-/Abwesenheitsmodus wechselt, wenn der Computer so lange nicht benutzt wurde. Hat jemand eine gute Idee, wie man das machen kann?

Answer 1

So habe ich diese Funktion vor ein paar Jahren implementiert. Die Funktion fnIdleTime sagt Ihnen, wie viele Sekunden vergangen sind, seit der Benutzer die Maus oder die Tastatur berührt hat.

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