按键精灵

按键精灵–挖宝石源码

FindPic 0, 0, 1366, 768, "Attachment:\剩余数.bmp", 0.9, x, y
TracePrint x & "," & y//451,250
If x = - 1  Then TracePrint "没有找到启动位置,建议查看启动状态"ExitScript
End If
范围左上角x = x + (431 - 451)
范围左上角y = y + (297 - 250)
范围右下角x = x + (958 - 451)
范围右下角y = y + (610 - 250)
//深黄 1D88D0 深蓝AB2B2B  紫色7C20B9  浅黄23BCBC  浅蓝 BBBB5F 红色2424BD
宝石 = Array("1D88D0", "AB2B2B", "7C20B9", "23BCBC", "BBBB5F", "2424BD")
下一关颜色 = Array("0159B1", "0066CC")
下一关x = x + (734 - 451)
下一关y = y + (535 - 250)
DoFor j = 0 To UBound(宝石)call 寻找宝石并点击(宝石(j))Next
//    For Each 宝石颜色 In 宝石
//        Call 寻找宝石并点击(宝石颜色)
//    Next
//    For Each 颜色 In 下一关颜色
//        Call 进入下一关(颜色)
//    NextFor i = 0 To UBound(下一关颜色)Call 进入下一关(下一关颜色(i))NextDelay 1
Loop
Function 寻找宝石并点击(宝石颜色)FindCenterColor 范围左上角x, 范围左上角y, 范围右下角x, 范围右下角y, 宝石颜色, x, yIf x > - 1  Then LClick x, yEnd If
End Function
Sub 进入下一关(颜色)IfColor 下一关x, 下一关y, 颜色, 0 ThenDelay 5000//为了看一下分数LClick 下一关x, 下一关yDelay 10End If
End Sub
Sub LClick(x, y)MoveTo x, yDelay 10LeftClick 1
End Sub