[教程源码] 新同学福利,一个函数封装图色!仅供参考哦

//____给不熟悉封装的学弟一个我自己早期用的函数,为了方便理解我做了精简,去掉了是否点击一类的功能,抛砖引玉
//____有兴趣的小伙伴可以拿去自己编辑,实现自己所需要的功能,如果有错误,欢迎指正!


Dim intX,intY
Dim 测试找按键精灵 = {"按键精灵" ,3 , 255, 165, 434, 371, "按键精灵","000000",0,0.9}// 数组第二个元素的值是3  代表找图 

If isExist(测试找按键精灵) Then 
End If

Function isExist(tb)
    Dim Sret = False
    Select Case tb[2]                //tb[2]这个值非常重要,它相当于一个开关,0 代表找色,1 代表比色,2 代表多点找色,3 代表找图
    Case 0
        FindColor tb[3], tb[4], tb[5], tb[6], tb[7], tb[8], tb[9], intX, intY
        If intX > -1 And intY > -1 Then 
            TracePrint "找色识别 : " & tb[1] & "--坐标 : " & intX & "--" & intY
            Sret = True 
        End If
    Case 1
        If CmpColorEx(tb[3], tb[4]) = 1 Then 
            TracePrint "比色识别 : " & tb[1]
            Sret = True
        End If
    Case 2
        FindMultiColor tb[3], tb[4], tb[5], tb[6], tb[7], tb[8], tb[9], tb[10], intX, intY
        If intX > -1 And intY > -1 Then 
            TracePrint "多点找色 : " & tb[1] & "--坐标 : " & intX & "--" & intY
            Sret = True
        End If
    Case 3
        FindPic tb[3], tb[4], tb[5], tb[6], "Attachment:" & tb[1] & ".png", tb[7], tb[8], tb[9], intX, intY
        If intX > -1 And intY > -1 Then 
            TracePrint "找图识别 : " & tb[1] & "--坐标 : " & intX & "--" & intY  
            Sret = True
        End If
    End Select
    isExist = Sret
End Function