按键精灵_循环找图和找图函数

Dim imgX,imgY,imgid //必须定义 函数需要的

Dim 找图_测试找图=array(175,232,346,421,"测试找图.png","202020",0,0.85)

//30秒内持续的找该图

If 循环找图(找图_测试找图, 30) > -1 Then 

    Delay 500

    Tap imgX,imgY //找到自然点击

Else 

    TracePrint  "30秒内无法找到测试找图"

End If

/*

Function 循环找图(arr, delaytime)  
    Dim x1, y1, x2, y2, imgname, 偏色, 方向, sim
    x1 = arr(0)
    y1 = arr(1)
    x2 = arr(2)
    y2 = arr(3)
    imgname = arr(4)
    偏色 = arr(5)
    方向 = arr(6)
    sim = arr(7)
    imgid=-1 //重置imgid全局变量
    Dim imagecopy,result,开始时间,当前时间   
    //记录下开始的时间 注意是毫秒为单位
    开始时间 = TickCount()
      //开始对imgname进行处理 //这部分千万不能放到循环里面 会导致无限给图片前面添加attenment
    Imgname=replace(imgname,"|","|attachment:")
    Imgname = "attachment:" & Imgname
        //建议5秒  不要太多了
    For i = 0 To delaytime * 10
        imagecopy = imgname    
        //判断下时间是否超出  超出就退出
        当前时间 = TickCount()
        If 当前时间 - 开始时间 > Delaytime * 1000 Then 
            Exit for
        End If
      result = FindPic(x1, y1, x2, y2, imgname, 偏色, 方向, sim, imgX, imgY)
        If result > -1 Then 
            Exit for
      End If
      Delay 100
    Next
    
    //循环完毕开始判断结果
    If result > -1 Then 
        TracePrint "-循环找图片:" & imgname & "找到了,坐标:" & imgX & ":" & imgY & ",图片序号为:" & result
        imgid = result
        循环找图=result
    Else 
        TracePrint "循环找图片:" & imgname & "没找到"
        imgid = -1
        循环找图=-1
    End If
    
End Function