Ms access 如何使用VBA获得Windows XP中的空闲时间？

我想通过编程方式从给定的WindowsXP机器上的用户输入了解当前空闲时间。我正在MS Access中使用VBA。我有什么选择？

我使用以下方法获得解决方案

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

系统的其他部分可能处于空闲状态，例如

中央处理器 磁盘 网络 其他设备

---

要了解有关性能和其他空闲类型的更多信息，请参阅本文。

我使用以下方法获得解决方案

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

系统的其他部分可能处于空闲状态，例如

中央处理器 磁盘 网络 其他设备

---

要了解有关性能和其他空闲类型的更多信息，请参阅本SO帖子。

这有点超出了问题的范围，但请一张善意的海报解释一下“空闲时间”是什么？这听起来很有用。这有点超出了问题的范围，但是一张仁慈的海报能解释什么是“空闲时间”吗？听起来很有用。