找到图片数量=找多图(t1,t2,t3,t4,t5,t6,t7,t8)

//d2 全局变量 二维数组用来储存

//找多图 用来返回找到 图片的数量

//t1,t2,t3,t4能够确定区域找图范围

//t5 图片路径

//t6 偏色

//t7 相似度

//t8 找图填 true ； 找色 填 false

/*

例子1.图片形式

找多图(1,1,1079,1979,"Attachment:1.png"，"000000", 0.8,true)找多图(100,250,600,1000,"Attachment:1.png"，"000000", 0.8,true)

例子2.多点找色

找多图(1,1,1079,1979, " 484200 "，" 30|0|484100 ,0|30|453F00 , 30|30|453F00 ", 0.9,false)

t1~t4 t7相同

不同： t5起点颜色 t6偏移颜色

*/

dim d2(100,2),找到图片数量

找到图片数量=找多图(1,1,1079,1979,"Attachment:1.png"，"000000", 0.8,true)

找到图片数量=找多图(1,1,1079,1979, " 484200 "，" 30|0|484100 ,0|30|453F00 , 30|30|453F00 ", 0.9,false)

找到图片数量=找多图(100,250,100,888, " 484200 "，" 30|0|484100 ,0|30|453F00 , 30|30|453F00 ", 0.9,false)

//d2 全局变量 二维数组用来储存

//找多图 用来返回找到 图片的数量

//t1,t2,t3,t4能够确定区域找图范围

//t5 图片路径

//t6 偏色

//t7 相似度

//t8 找图填 true ； 找色 填 false

/*

例子1.图片形式

找多图(1,1,1079,1979,"Attachment:1.png"，"000000", 0.8,true)

例子2.多点找色

找多图(1,1,1079,1979, " 484200 "，" 30|0|484100 ,0|30|453F00 , 30|30|453F00 ", 0.9,false)

t1~t4 t7相同

不同： t5起点颜色 t6偏移颜色

*/

dim d2(100,2),找到图片数量

找到图片数量=找多图(1,1,1079,1979,"Attachment:1.png"，"000000", 0.8,true)

找到图片数量=找多图(1,1,1079,1979, " 484200 "，" 30|0|484100 ,0|30|453F00 , 30|30|453F00 ", 0.9,false)

/*验证结果 放在剪切板里面

dim qq2,qq3

qq2=0

qq3=""

for 找到图片数量

qq3=qq3&d2(qq2,0)&" "&d2(qq2,1)&"\n"

qq2=qq2+1

next

Sys.SetClipText qq3

*/

function 找多图(t1,t2,t3,t4,t5,t6,t7,t8)

dim x,y,i,c,d,d1

c=t1

d = t2

找多图=0

Do

If t8=true Then

FindPic c, d, t3, t4, t5, t6, 0, t7, x, y

Else

FindMultiColor c, d, t3, t4, t5, t6, 0, t7, x, y

End If

delay 10

if x>-1 then

d2(i,0)=x

d2(i,1)=y

i=i+1

c=x+1

d=y

else

c=1

d=d+1

if d>t4 then

找多图=i

exit do

end if

end if

loop

end function