- UID
- 1
- 帖子
- 11122
- 积分
- 7224
- 紫菀
- 102 朵
- 花瓣
- 9777 片
- 花蕊
- 1613 朵
- 野草莓
- 301 个
- 蒲公英
- 491 朵
- 社区等级
- 200 级
- 在线时间
- 5246 小时
- 注册时间
- 2006-7-9
- 蜗居何地
- 浙江台州
- 登录状态
-
当前离线
|
楼主
发表于 2007-8-30 18:39
| 只看该作者
【功能说明】.
此脚本利用数组定义多个颜色进行区域找色(也可以用这种方法区域查找多个图片).
.
【使用说明】.
先修改颜色代码 保存退出即可.
.
【作者介绍】.
【按键专家团 晨风】.
.
【制作日期】.
<2006-09-15>
[Script]
VBS dim color(2),s,x,y
//声明变量
VBS color(0)="FFFFFF":color(1)="000000":color(2)="00FFFF"
//定义颜色数组变量 请自行修改颜色代码
Rem start
VBS s=0
//定义数组下标初始值变量
For 3
//循环3次
Delay 10
//循环里设置延时 防止系统内存占用太高
VBSCall findcentercolor(0,0,1024,768,color(s),x,y)
//区域从中间向外查找颜色。0,0,1024,768为区域范围,color(s)为颜色数组变量,x,y为坐标变量
If x>=0 and y>=0
//如果找到颜色
Delay 100
//延时100毫秒
VBSCall MessageBox("找到颜色"&"color("&s&") "&"坐标为:"&x&","&y)
//弹出窗口 找到颜色和坐标
Else
Delay 100
//延时100毫秒
VBSCall MessageBox("没找到颜色"&"color("&s&")")
//弹出窗口 没有找到颜色
EndIf
//条件结束
VBS s=s+1
//变量递增
EndFor
//循环结束
Goto start |
|