如何在Windows XP中使用VBA获得空闲时间？

Question

我想知道从给定的Windows XP机器上用户输入编程的当前空闲时间。我在MS Access中使用VBA。我有什么选择？

Answer 1

我用以下来获得解决方案。

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
• 磁盘
• 网络
• 其他设备

要找出有关性能和其他闲置类型的更多信息，请参阅此SO帖子here。