1. 跳转到标记 start
2. 标记 Ting
3. 如果表达式 (1) 为真,则循环执行
4.     等待按任意键，保存到变量K中
5.     //检测用户按键
6.     如果表达式 (K = 27) 为真,则
7.         //按下ESC键时跳到---->脚本执行的地方!
8.         跳转到标记 start
9.     条件结束
10. 循环结束
11. 标记 start
12. 弹出窗口 "按空格获得窗口和鼠标的位置!"&vbcr&"按ESC键暂停!"
13. 如果表达式 (1) 为真,则循环执行
14.     等待按任意键，保存到变量K中
15.     如果表达式 (K = 32) 为真,则
16.         //按下空格键的时->候执行脚本!
17.         //
18.         //下面这句是得到鼠标指向的窗口句柄
19.         调用插件命令 Hwnd = Window.MousePoint()
20.         //下面这句是得到窗口句柄的边框大小(包括标题栏)
21.         调用插件命令 Rect = Window.GetWindowRect(Hwnd)
22.         R = Split(Rect,"|")
23.         x=R(0)
24.         y=R(1)
25.         x2 = R(2)
26.         y2 = R(3)
27.         调用外部VBScript子程序 得到鼠标当前位置(nowx,nowy)
28.         px = nowx-x
29.         py = nowy-y
30.         弹出窗口 "窗口左上角的位置:"& x & "." & y & vbcr &"窗口大小:" & x2-x &"."& y2-y & vbcr & "鼠标相对窗口左上角的位置:" & px & "." & py
31.         解除鼠标锁定
32.     循环结束
33. 否则如果(K = 27)为真,则
34.     弹出窗口 "脚本已停止,按ESC键重新开始!"
35.     跳转到标记 Ting
36.     //按下ESC键时->暂停!
37. 条件结束
38. 循环结束