1. //查找窗口类名(0)或者标题("《星尘传说》"),返回找到的句柄Hwnd
2. 调用插件命令 Hwnd = Window.Find(0, "《星尘传说》")
3. //得到窗口句柄的客户区大小
4. 调用插件命令 Rect = Window.GetClientRect(Hwnd)
5. Dim MyArray
6. MyArray=Split(Rect,"|")
7. Ux=CLng(MyArray(0))
8. Uy=CLng(MyArray(1))
9. 按键 <X>
10. 延时300毫秒
11. 鼠标移到 176+Ux , 205+Uy
12. 延时200毫秒
13. 左键双击
14. 延时2000毫秒
15. 如果 (1243+Ux,391+Uy) 的颜色等于 #ababab 则
16.     延时200毫秒
17.     鼠标移到 973+Ux , 593+Uy
18.     延时200毫秒
19.     左键单击
20.     延时200毫秒
21.     鼠标移到 928+Ux , 674+Uy
22.     延时200毫秒
23.     左键单击
24.     延时700毫秒
25.     鼠标移到 1001+Ux , 289+Uy
26.     延时700毫秒
27.     左键单击
28.     延时700毫秒
29.     鼠标移到 987+Ux , 452+Uy
30.     延时200毫秒
31.     左键单击
32.     标记 +
33.     如果 (1138+Ux,13+Uy) 的颜色等于 #ff00 则
34.         延时600毫秒
35.     否则
36.         跳转到标记 +
37.     条件结束
38.     按键 <X>
39.     延时700毫秒
40.     鼠标移到 133+Ux , 453+Uy
41.     延时200毫秒
42.     左键单击
43.     延时200毫秒
44.     按键 <Num 2>
45.     延时50毫秒
46.     按键 <Num 1>
47.     延时50毫秒
48.     按键 <Num 3>
49.     延时50毫秒
50.     按键 <Tab>
51.     延时50毫秒
52.     按键 <Num 3>
53.     延时50毫秒
54.     按键 <Num 3>
55.     延时50毫秒
56.     按键 <Num 6>
57.     延时200毫秒
58.     按键 <Enter>
59.     延时16000毫秒
60.     标记 001
61.     鼠标移到 615+Ux , 394+Uy
62.     延时200毫秒
63.     右键单击
64.     延时3000毫秒
65.     如果 (1003+Ux,370+Uy) 的颜色不等于 #FFFFFF 则
66.         跳转到标记 001
67.     否则
68.         延时200毫秒
69.         鼠标移到 86+Ux , 179+Uy
70.         延时200毫秒
71.         左键双击
72.         延时16000毫秒
73.     条件结束
74.     如果 (877+Ux,216+Uy) 的颜色等于 #14d9d8 则
75.         鼠标移到 954+Ux , 429+Uy
76.         延时200毫秒
77.         左键单击
78.         标记 -
79.         如果 (1147+Ux,15+Uy) 的颜色等于 #ff00 则
80.             延时500毫秒
81.         否则
82.             跳转到标记 -
83.         条件结束
84.     否则
85.     条件结束
86.     按键 <X>
87.     延时200毫秒
88.     鼠标移到 71+Ux , 208+Uy
89.     延时200毫秒
90.     左键双击
91.     延时5000毫秒
92.     鼠标移到 1162+Ux , 606+Uy
93.     延时300毫秒
94.     左键单击
95.     延时300毫秒
96.     鼠标移到 965+Ux , 611+Uy
97.     延时300毫秒
98.     左键单击
99.     延时300毫秒
100.     鼠标移到 924+Ux , 674+Uy