1. 标记 denglu1
2. 调用插件命令 hx=Window.Foreground()
3. 调用插件命令 s=Window.GetClientRect(hx)
4. c=split(s,"|",-1,1):qx=c(0):qy=c(1)
5. 调用外部VBScript子程序 读取内存地址(&H604A60,2,jdz)
6. （VBScript语句） gdx="&H" & hex(jdz+43036)
7. （VBScript语句） gdy="&H" & hex(jdz+43036+4)
8. //***********************************************************
9. 标记 1
10. 调用外部VBScript子程序 读取内存地址(&H604A60,2,jdz)
11. 如果表达式 (fx>0) 为真,则
12.     tx=fx:ty=fy:jqd=5
13.     调用子程序 movetoxy
14.     左键单击
15.     延时2000毫秒
16. 否则
17.     延时200毫秒
18.     跳转到标记 denglu1
19. 条件结束
20. 标记 2
21. 调用外部VBScript子程序 读取内存地址(&H604A60,2,jdz)
22. 如果表达式 (fx>0) 为真,则
23.     延时200毫秒
24.     tx=fx+70:ty=fy+7:jqd=5
25.     调用子程序 movetoxy
26.     延时500毫秒
27.     左键单击
28.     延时2000毫秒
29. 否则
30. 条件结束
31. 标记 3
32. 调用外部VBScript子程序 读取内存地址(&H604A60,2,jdz)
33. 如果表达式 (fx>0) 为真,则
34.     延时500毫秒
35.     tx=fx+265:ty=fy-15:jqd=3
36.     调用子程序 movetoxy
37.     延时300毫秒
38.     左键单击
39.     延时300毫秒
40.     左键单击
41.     延时300毫秒
42.     左键单击
43.     延时300毫秒
44.     左键单击
45. 否则
46. 条件结束
47. 延时1500毫秒
48. 标记 4
49. 调用外部VBScript子程序 读取内存地址(&H604A60,2,jdz)
50. 如果表达式 (fx>0) 为真,则
51.     tx=fx:ty=fy-3:jqd=3
52.     调用子程序 movetoxy
53.     左键单击
54.     延时1000毫秒
55.     延时5000毫秒
56.     跳转到标记 denglu1
57. 否则
58. 条件结束
59. 跳转到标记 denglu1
60. 子程序 movetoxy
61.     调用插件命令 dh=Window.Foreground()
62.     sx=tx+(320-tx)*0.3+qx
63.     sy=ty+(240-ty)*0.3+qy
64.     标记 move
65.     调用外部VBScript子程序 读取内存地址(&H604A60,2,jdz)
66.     如果表达式 (x>qx+640 or x<qx+0 or y>qy+480 Or y<qy+0) 为真,则
67.         sx=qx+tx:sy=qy+ty
68.     条件结束
69.     鼠标移到 sx , sy
70.     延时70毫秒
71.     调用外部VBScript子程序 读取内存地址(&H604A60,2,jdz)
72.     调用外部VBScript子程序 读取内存地址(&H604A60,2,jdz)
73.     //MessageBox(mx&","&my)
74.     rx=tx-mx
75.     ry=ty-my
76.     如果表达式 (abs(tx-mx)<=jqd and abs(ty-my)<=jqd) 为真,则
77.         // MoveR rx,ry
78.     否则
79.         sx=sx+rx*0.7
80.         sy=sy+ry*0.7
81.         跳转到标记 move
82.     条件结束
83. 子程序结束,回到调用处