1. 定义变量 Time0, Time, Key, Mouse，Point, Mx0, My0, Mx, My
2. 用户定义变量 Utime=12 "自定义持续时间/秒"
3. 令 Time0 = Sys.GetTime()
4. 把当前鼠标所在的位置保存到 (Mx0, My0)
5. 向调试窗口输出：Mx0 & "," & My0
6. 循环开始
7.     令 Key = 0
8.     令 Mouse = 0
9.     令 Point = 0
10.     注释：最后按键
11.     令 Key = Int(（键盘）检测上次按键)
12.     注释：最后鼠标点击
13.     令 Mouse = Int(（鼠标）检测上次按鼠标键)
14.     注释：最后鼠标位置
15.     把当前鼠标所在的位置保存到 (Mx, My)
16.     如果 Mx = Mx0 并且 My = My0 则
17.     否则
18.         令 Point = 1
19.         令 Mx0 = Mx
20.         令 My0 = My
21.     条件结束
22.     延时 1000 毫秒
23.     如果 key = 0 并且 Mouse = 0 并且 Point = 0 则
24.         注释：没有任何操作
25.     否则
26.         注释：有操作
27.         向调试窗口输出：key
28.         向调试窗口输出：Mouse
29.         向调试窗口输出：Point
30.         令 Time0 = Sys.GetTime()
31.     条件结束
32.     令 Time = Sys.GetTime()
33.     如果 (Time - Time0) / 1000 >= clng(Utime) 则
34.         弹出窗口 Utime & "秒没有任何操作！"
35.     条件结束
36. 循环结束