1. Dim HUA
2. //申明变量是个好习惯
3. HUA=""
4. //定义变量
5. 调用插件命令 hwnd=Window.Foreground()
6. //调用插件得到当前窗口句柄，结果返回给变量hwnd
7. 调用插件命令 wtext=Window.GetText(hwnd)
8. //调用插件根据窗口句柄得到当前窗口标题，结果返回给变量wtext
9. 调用插件命令 wclass=Window.GetClass(hwnd)
10. //调用插件根据窗口句柄得到当前窗口类，结果返回给变量wclass
11. 调用插件命令 path=Window.GetExePath(hwnd)
12. //调用插件根据窗口句柄得到当前窗口的路径，结果返回给变量path
13. 调用插件命令 rect=Window.GetClientRect(hwnd)
14. //调用插件根据窗口句柄得到当前客户区坐标数据，结果返回给变量rect
15. 调用插件命令 wrect=Window.GetWindowRect(hwnd)
16. //调用插件根据窗口句柄得到当前窗口坐标数据，结果返回给变量wrect
17. MyArray = Split(rect, "|", -1, 1)
18. //以"|"这个条件来分割字符串rect，结果返回数组MyArray()
19. //MyArray(0)=客户区左上角X坐标
20. //MyArray(1)=客户区左上角Y坐标
21. //MyArray(2)=客户区宽度
22. //MyArray(3)=客户区高度
23. 标记 主程序
24. x=53+MyArray(0)
25. y=423+MyArray(1)
26. 如果表达式 (x<750+MyArray(0)) 为真,则循环执行
27.     //up
28.     调用外部VBScript子程序 在屏幕区域里查找图形(x,y,x+63,y+63,"up.bmp",0.9,intX,intY)
29.     如果表达式 (intX>0) 为真,则
30.         按键<Up>
31.     条件结束
32.     //downn
33.     调用外部VBScript子程序 在屏幕区域里查找图形(x,y,x+63,y+63,"up.bmp",0.9,intX,intY)
34.     如果表达式 (intX>0) 为真,则
35.         按键<Down>
36.     条件结束
37.     //left
38.     调用外部VBScript子程序 在屏幕区域里查找图形(x,y,x+63,y+63,"up.bmp",0.9,intX,intY)
39.     如果表达式 (intX>0) 为真,则
40.         按键<Left>
41.     条件结束
42.     //right
43.     调用外部VBScript子程序 在屏幕区域里查找图形(x,y,x+63,y+63,"up.bmp",0.9,intX,intY)
44.     如果表达式 (intX>0) 为真,则
45.         按键<Right>
46.     条件结束
47.     //++
48.     x=x+63
49. 循环结束
50. 跳转到标记 主程序