Question

按键精灵 认证考试5 问答题 （监视鼠标动作，并在鼠标有动作时给出上次动作距离此次...）

监视鼠标动作，并在鼠标有动作时给出上次动作距离此次动作的时间间隔，时间间隔
要求精确到毫秒，监控的动作要求包括鼠标移动和任意键点击。

Answer 1

BeginThread 鼠标移动检测
Do
a=timer
If WaitClick > 0 Then
b = Lib.算法.提取字串符中所有数字(Left((timer - a) * 1000, 4))
TracePrint "距离上次鼠标点击间隔为："&b&"毫秒"
End If
Loop
Sub 鼠标移动检测
Do
GetCursorPos x, y
c = timer
Do
GetCursorPos x1, y1
If x <> x1 or y <> y1 Then
d = Lib.算法.提取字串符中所有数字(Left((timer - c) * 1000, 4))
TracePrint "距离上次鼠标移动间隔为：" & d & "毫秒"
Exit Do
End If
Loop
Loop
End Sub