求助如何封装包含数组的多点找色函数？

星光

Function 点运镖任务()    //活动栏运镖任务按钮
    KeepCapture
    点运镖任务=False
    Dim 参加运镖()
    参加运镖(0)=array(302,507,1136,88,"0B326D","-4|5|1A4C84,1|10|0C346F,35|7|103B75,24|-2|17467E")
    参加运镖(1)=array(317,494,1131,88,"134079","3|-7|0D3670,30|0|103C75,-22|-25|314762,-19|-8|354B66")
    If 多点找色(参加运镖) Then
        TracePrint "参加运镖任务"
        点运镖任务=True
    End If
    ReleaseCapture
End Function

求助多点找色()这个封装怎么写?因为上边是个数组,最好能设置是否点击和输出点击坐标.困扰好几天不知道怎么写.

星光

有哪位知道吗？求指导

紫猫

去看下命令宝典里的命令库教程, 有详细讲解的

冒泡的小猫

Function 多点找色(arr)
    FindMultiColor arr(0),arr(1),arr(2),arr(3),arr(4),arr(5), 0, 0.9, ColX, ColY
    If ColX > -1 Then
        多点找色 = 0
        If IsNull(arr(7)) Then TracePrint arr(6),"坐标:",ColX,ColY,"范围[:",arr(0),arr(1),arr(2),arr(3),"]"
    Else
        多点找色 = -1
        If IsNull(arr(7)) Then TracePrint arr(6),"[找不到]---------------------------------------------------------------------------------------------范围[",arr(0),arr(1),arr(2),arr(3),"]"
    End If
End Function