返回列表 回复 发帖

[贴士] 当满足一种颜色时,表示找到目标

在从零开始学起时,在我硬盘上一些曾经帮助我很多的小纸条!--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 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★结★束★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓
简单就好!
返回列表