- UID
- 1
- 帖子
- 11122
- 积分
- 7224
- 紫菀
- 102 朵
- 花瓣
- 9777 片
- 花蕊
- 1613 朵
- 野草莓
- 301 个
- 蒲公英
- 491 朵
- 社区等级
- 200 级
- 在线时间
- 5246 小时
- 注册时间
- 2006-7-9
- 蜗居何地
- 浙江台州
- 登录状态
-
当前离线
|
楼主
发表于 2007-8-30 18:09
| 只看该作者
在从零开始学起时,在我硬盘上一些曾经帮助我很多的小纸条!--Sz
Rem 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★说★明★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓
Rem 【功能说明】〖查找一个区域3种颜色〗
Rem 【使用说明】颜色(如:"0000FF")代码替换"颜色1~3"
Rem 【提示说明】颜色代码要加上引号(" ");自行修改3种颜色代码
Rem 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★定变量★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓
VBS dim color(2)
VBS color(0)="颜色1"
VBS color(1)="颜色2"
VBS color(2)="颜色3"
Rem 〖在这里可以加入更多颜色〗*
Rem 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★主程序★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓
Rem 【脚本开始】
VBS i=0
Rem 〖下面是修改加入多少颜色就改多少循环次数〗*
For 3
VBSCall Call FindCenterColor(x1,y1,x2,y2,color(i),x,y)
Rem 〖x1,y1=区域左上角坐标;x2,y2=区域右下角坐标(自行修改坐标)〗
If x>=0 and y>=0
Rem 〖在这里加入三种颜色找到任意一种后需要执行的脚本〗*
EndIf
VBS i=i+1
EndFor
Delay 200
Goto 【脚本开始】
Rem 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★备★注★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓
Rem 【脚本经过修改】
Rem 【创作日期】2005
Rem 【数字记号】①②③④⑤⑥⑦⑧⑨⑩
Rem 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★结★束★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓 |
|