按键精灵移动端系列一滑块本地识别源码参考例子

/*
马赛克滑块本地识别原理:
对比前后2次的背景色
没必要整个验证码图的颜色都取下来
只需要间隔一定范围，比如滑块是100,
那么Y坐标间隔90就涵盖了那个滑块
*/
Function 获取背景(s)
    '这个函数是获取背景颜色
    KeepCapture 
    '截图到内存增加识别速度
    Dim i,j,mx,my,temp,tbx()
    mx=s[3]-s[1]:my=s[4]-s[2]:temp=""
    For i = 0 To mx
        For j = s[2] To s[4] step 30
            temp = temp & GetPixelColor(s[1] + i, j) & "-"
        Next
        tbx[i + 1] = Split(temp, "-")
        temp = ""
    Next
    获取背景 = tbx
    ReleaseCapture 
    '释放内存图片
End Function

Function 获取位置(s)
    Dim A,B,i,j,maxa,maxb
    Do
        A = 获取背景(s)
        '背景颜色1
        Delay 500
        B = 获取背景(s)
        '背景颜色2
        If B[1][1] = A[1][1] Then 
            '为了防止整个背景色突然改变,所以用了一个不会变色的坐标点判断
            Exit Do
        End If
        'TracePrint "010101"
    Loop
    maxa = UBOUND(A) + 1
    maxb = UBOUND(A[1])
    '对比背景颜色1,背景颜色2
    For i = 1 To maxa
        For j = 1 To maxb
            If A[j] <> B[j] Then
                获取位置 = s[1] + i - 1
                '如果有颜色不一样的就返回
                Exit Function
            End If    
        Next
    Next
    获取位置 = 500
    '若上述代码无法识别,则返回默认值.
End Function