如何在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。