Как получить простой в Windows XP с помощью VBA? - PullRequest
Новая
       32

Как получить простой в Windows XP с помощью VBA?

1 голос
/ 07 апреля 2010

Я хотел бы узнать текущее время простоя от пользовательского ввода на данном компьютере с Windows XP программно.Я использую VBA в MS Access.Какие варианты у меня есть?

1 Ответ

4 голосов
/ 07 апреля 2010

Я использовал следующее для получения решения. 

Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Declare Function GetLastInputInfo Lib "user32" (plii As Any) As Long

Private Type LastInputInformation

    cbSize As Long

    dwTime As Long

End Type

Public Function GetUsersIdleTime() As Long

    Dim lii As LastInputInformation

    lii.cbSize = Len(lii)

    Call GetLastInputInfo(lii)

    GetUsersIdleTime = FormatNumber((GetTickCount() - lii.dwTime) / 1000, 2)

End Function

Существуют и другие части системы, которые могут простаивать, например,

  • CPU
  • Диск
  • Сеть
  • Другие устройства

Чтобы узнать больше о производительности и других типах простоя, см. Этот пост здесь .

...