发一个农行抢50E卡的源码

每天一个，妥妥的

按键精灵写的，分辨率不一样的话需要修改内容，我也不太会，自己瞎弄的！

Dim intX,intY

Dim 购买 = Array(19,2005,1069,2217,"1D73F1","-73|-7|FFFFFF,-15|18|FFFFFF,5|-13|FFFFFF,33|15|FFFFFF,72|-13|F8FAFF,72|16|FFFFFF,0|45|1D73F1,459|-2|2453EE,-370|4|178BF3",0,0.8,1,1000)

Do

    Tap 157, 1802

    Delay 1000

    If 多点找色(购买) = true Then

        TracePrint intX, intY

        Delay 500

        Tap 934, 2144

        Delay 2500

        Tap 518,1953

        Delay 1000

        For 60

            Vibrate 1000

        Next

    End If

    Tap 459, 1805

    Delay 500

Loop

Function 多点找色(数组)

    FindMultiColor 数组(0), 数组(1), 数组(2), 数组(3), 数组(4), 数组(5), 数组(6), 数组(7), IntX, intY

    If intX > -1 And intY > -1 Then

        多点找色 = True

        If 数组(8) = 1  Then Tap intX, intY

        If 数组(9)>0 Then Delay 数组(9)

    End If  

End Function