如何判断鼠标不动的时间？！！！！

Question

如何判断鼠标不动的时间？

Answer 1

Option Explicit
Private Declare Function GetLastInputInfo Lib "user32" (plii As LASTINPUTINFO) As Boolean
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Type LASTINPUTINFO
    cbSize As Long
    dwTime As Long
End TypePrivate Sub Form_Load()
    Dim lii As LASTINPUTINFO
    lii.cbSize = Len(lii)
    Do
        If GetLastInputInfo(lii) Then
            Debug.Print "输入空闲时间："; GetTickCount - lii.dwTime; "ms"
        End If
        DoEvents
    Loop
End Sub

Answer 2

那...如果判断键盘不按呢?/cyy