【功能说明】
根据[范围区域内查找形状]插件做的演示例子
【使用说明】
设置搜索范围即可,搜索屏幕上“我”字
2009.4.3
运行环境:分辨率:1440×900 色深:32位 操作系统:Windows XP 按键精灵版本:7.00.3956
@兄弟工程师01 2009/4/3
UserVar Fstr_X=0 屏幕X开始起点 UserVar Fstr_Y=0 屏幕Y开始起点 UserVar Fend_X=1024 屏幕X结束范围 UserVar Fend_Y=768 屏幕Y结束范围 //<>=========================================<形状特征点> 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",",") //<>=========================================<特征点循环次数> n = UBound(Arr)+1 //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★演★示★〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓// //<>=========================================<开始范围搜索> y=Fstr_Y For Fend_Y-Fstr_Y x=Fstr_X For Fend_X-Fstr_X MoveTo x,y i=0 For n //<>=========================================<分解特征点> Ar=Split(Arr(i),"|") VBSCall GetColor1=GetPixelColor(x,y) VBSCall GetColor2=GetPixelColor(x+Ar(0),y+Ar(1)) //<>=========================================<条件判断> If Ar(2)=1 //<>=========================================<条件相等时判断> If GetColor1=GetColor2 Else Goto 离开 EndIf Else //<>=========================================<条件不等时判断> If GetColor1<>GetColor2 Else Goto 离开 EndIf EndIf i=i+1 EndFor Goto 结果 Rem 离开 x=x+1 EndFor y=y+1 EndFor //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★结★束★〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓// //<>=========================================<找到形状位置> Rem 结果 msgbox "找到位置为:x=" & x &", y=" & y,64,"演示提示:" EndScript
VBSCall GetColor=GetPixelColor
按键精灵找形状
按键精灵区域多点找形状用法
图色脚本源码
按键精灵圆形范围
按键精灵的区域形状找字没用
按键精灵寻找形状