找到图片数量=找多图(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