1. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★说★明★〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
2. //　　　　　　　　　　　　　屏幕区域范围找“我”字形状演示　　　　　　　　　　　　　　//
3. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★定★义★〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
4. //<>=========================================<区域搜索范围>
5. 用户定义变量 Fstr_X=0 屏幕X开始起点
6. 用户定义变量 Fstr_Y=0 屏幕Y开始起点
7. 用户定义变量 Fend_X=1024 屏幕X结束范围
8. 用户定义变量 Fend_Y=768 屏幕Y结束范围
9. //<>=========================================<形状特征点>
10. Arr=Split("2|0|1,4|0|1,6|0|0,-4|1|1,-1|1|1,5|1|1,-4|3|1,-1|3|1,2|3|1,6|3|1,-4|5|0,2|5|1,5|5|1,-1|6|1,6|6|0,-4|7|1,3|8|1,6|8|1,-4|10|0,-3|10|1,-1|10|1,2|10|0,6|10|1",",")
11. //<>=========================================<特征点循环次数>
12. n = UBound(Arr)+1
13. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★演★示★〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
14. //<>=========================================<开始范围搜索>
15. y=Fstr_Y
16. 循环 Fend_Y-Fstr_Y 遍
17.     x=Fstr_X
18.     循环 Fend_X-Fstr_X 遍
19.         鼠标移到 x , y
20.         i=0
21.         循环 n 遍
22.             //<>=========================================<分解特征点>
23.             Ar=Split(Arr(i),"|")
24.             调用外部VBScript子程序 GetColor1=得到指定点的颜色(x,y)
25.             调用外部VBScript子程序 GetColor1=得到指定点的颜色(x,y)
26.             //<>=========================================<条件判断>
27.             如果表达式 (Ar(2)=1) 为真,则
28.                 //<>=========================================<条件相等时判断>
29.                 如果表达式 (GetColor1=GetColor2) 为真,则
30.                 否则
31.                     跳转到标记 离开
32.                 条件结束
33.             否则
34.                 //<>=========================================<条件不等时判断>
35.                 如果表达式 (GetColor1<>GetColor2) 为真,则
36.                 否则
37.                     跳转到标记 离开
38.                 条件结束
39.             条件结束
40.             i=i+1
41.         循环结束
42.         跳转到标记 结果
43.         标记 离开
44.         x=x+1
45.     循环结束
46.     y=y+1
47. 循环结束
48. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★结★束★〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
49. //<>=========================================<找到形状位置>
50. 标记 结果
51. msgbox "找到位置为：x=" & x &", y=" & y,64,"演示提示："
52. 脚本停止运行
53. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★备★注★〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
54. //【脚本作者】兄弟工程师01　　　　　　　　　　　　【QQ】1094599314
55. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★结★束★〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//