如何利用VBA获得windowsxp的空闲时间?

我用下面的方法得到了答案。

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

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

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