* 转摘：十豆三 http://blog.
*--可以应用到公开查询系统等
*--表单的Load事件加代码：
Public gnMouseX,gnMouseY,gnTotalTimer
Store 0 To gnMouseX,gnMouseY,gnTotalTimer
Declare Integer GetCursorPos In user32 String@ lpPoint


*--表单的Unload事件加代码：
Clear Dlls "GetCursorPos"
*--向表单添加一个Timer控件，Timer1控件的Interval值为1000（即1秒），Enabled属性为.T.，此控件的Timer事件：
cbuff=Space(16)
MyMouse=GetCursorPos(@cBuff) &&获取鼠标的坐标值
X=Asc(Substr(cBuff,2,1))*256+Asc(Substr(cBuff,1,1))
Y=Asc(Substr(cBuff,6,1))*256+Asc(Substr(cBuff,5,1))
If gnTotalTimer=10 &&10秒
    Store 0 To gnMouseX,gnMouseY,gnTotalTimer
    Messagebox('鼠标已经10秒没有移动了'+Space(5),64,'信息提示')
Else
    If gnMouseX!=X Or gnMouseY!=Y
        gnMouseX=Asc(Substr(cBuff,2,1))*256+Asc(Substr(cBuff,1,1))
        gnMouseY=Asc(Substr(cBuff,6,1))*256+Asc(Substr(cBuff,5,1))
        gnTotalTimer=0
    Else
        gnTotalTimer=gnTotalTimer+1
    Endif
Endif
 
*--表单的Init事件加代码：
This.Timer1.Timer()

* 在上面的基础上，加入键盘无动作
* 表单的 KeyPress 事件即可（表单的 KeyPreview 设为.T.）
Store 0 To gnMouseX,gnMouseY,gnTotalTimer

看代码好象是用座标或键码的变化来判断。
无“变化”的动作是否有可能存在？
也可以定时用 API GetLastInputInfo() 检测。

我今天刚好要用到这个，就百度出 10豆3的方法