如何判断是否在使用电脑,象屏幕保护程序的那样.

[wghshy]

请各位大哥大姐帮忙,能否告诉我如何去判断电脑是否正在使用中,象屏幕保护程序中的那样,如果电脑隔一断时间没有用的话去执行一个程序.

[SoHo_Andy]

加一个Timer 控件，来判断是否鼠标长时间没有移动，时间间隔为1秒钟
如果长时间鼠标未移动，当作用户走开

简单提示代码，非实现代码
Private Sub sysfreeTM_Timer()
Dim CurMousePoint As POINTAPI
GetCursorPos CurMousePoint

MouseCount = MouseCount + 1
If CurMousePoint.x <> FristMousePoint.x Or CurMousePoint.y <> FristMousePoint.y Then
MouseCount = 0
'保存鼠标位置
FristMousePoint.x = CurMousePoint.x
FristMousePoint.y = CurMousePoint.y
Else
If MouseCount > 600 Then '10分钟
'运行你的代码
MouseCount = 0
End If
End If
End Sub