代码改变世界

按键精灵手机版多点找色,图片对比 by <剑行洪荒> 忠哥

2017-02-28 20:18  稀里糊涂丶  阅读(3083)  评论(0编辑  收藏  举报

代码:

 

 

Do
    Dim ret1,ret2
    Delay 500
    ret1 = CmpColor(76,72, "153274", 0.9)
    ret2 = CmpColor(81,574, "CCEFFF", 0.9)
    If ret1 > -1 and ret2 > -1 Then
        Tap 72, 92
        Delay 300
        Tap 73,608
        Exit Do
    
    End If       
Loop

代码:

 

Do

    FindPic  0,0,1080,1920, "Attachment:k确定.png", "000000", 0, 0.9, intX, intY
    If intX > -1 And intY > -1 Then
        Delay 300
        Tap 97, 631
        Exit Do
    End If
Loop

 

代码:

 

RunApp "com.wanmei.xom.uc" 启动UC客户端

killApp "com.wanmei.xom.uc"关闭UC客户端

KeyPress "Back”

KeyPress "Del"

Swipe 251, 940, 251, 840

Exit for

Rem A3  标记 A3

Goto A3 跳转到 A3

 

代码:

//定义全局变量

Dim a,intX,intY,dx1,dx2,dx3,dx4,dx5,dx6,dx7,dx8,dx9,dx10
dx1= ReadUIConfig("dx1", "")   //是否早上6点开始
If dx1=true then
    Do
        a = DateTime.Hour()
        Delay 1000
        If a  = 6 Then
            Exit Do
    
        Else
            If a > 6 and a < 12 Then           
                Exit Do    
            End If
        End If   
    Loop
End If

 

代码:

 

//已点击到账号

Sub 输入958()
    Delay 300
    InputText "589611958"
    Delay 500
    Tap 357, 677
    Delay 200
    InputText "19911031"
    Delay 300
    KeyPress "Enter"

End Sub

 

代码:

 

//复杂情况下排错的多重应用(多对一关系)

Sub 刷装备普4()

     Do
                      //扫荡
       
//            Dim intX, intY
            FindPic 182, 659, 105, 839, "Attachment:扫荡.png", "000000", 0, 0.9, intX, intY
            If intX > -1 And intY > -1 Then
                Tap 146,747
            End If

            //开始         
            FindPic 179, 584, 117, 675, "Attachment:开始.png", "000000", 0, 0.9, intX, intY
            If intX > -1 And intY > -1 Then
                Tap 149,642
            End If
            //元宝不足
            FindPic 186, 554, 126, 720, "Attachment:充值.png", "000000", 0, 0.9, intX, intY
            If intX > -1 And intY > -1 Then
                Delay 300
                Tap 567,998
                Delay 500
                goto A1
            End If
            //确定

            FindPic 376, 483, 311, 608, "Attachment:确定.png", "000000", 0, 0.9, intX, intY
            If intX > -1 And intY > -1 Then
                Tap 263, 640
                Delay 500
                Goto A1
            End If
            //包满
            FindPic 444, 424, 358, 721, "Attachment:包满.png", "000000", 0, 0.9, intX, intY
            If intX > -1 And intY > -1 Then
                Tap 262, 640
                Delay 500
                Goto A1
            End If

       
            //是
            ret1 = CmpColor(261,480, "0F3059", 0.9)
            ret2 = CmpColor(264,743, "103162", 0.9)
            If ret1 > -1 and ret2 > -1 Then
                Tap 261,480
            End If

 

   

            //退出循环
            ret1 = CmpColor(265,621, "BEECF9", 0.9)
            ret2 = CmpColor(427,559, "111A23", 0.9)
            If ret1 > -1 and ret2 > -1 Then
                Tap 265, 621
                Delay 500
                Tap 593, 927
                Delay 200
                Exit Do
            End if   

      Loop
 
 

Rem A1
    //关闭 副本
    Do
        //取消
        ret1 = CmpColor(266,748, "C0DDEF", 0.9)
        ret2 = CmpColor(266,795, "D3F0FE", 0.9)
        If ret1 > -1 and ret2 > -1 Then
            Tap 266, 748

        End If
        //关闭背包
        ret1 = CmpColor(432,850, "43D1D5", 0.9)
        ret2 = CmpColor(432,1012, "3CD0DA", 0.9)
        If ret1 > -1 and ret2 > -1 Then
            Tap 681,1134

        End If


        ret1 = CmpColor(679,1112, "1B4374", 0.9)
        ret2 = CmpColor(679,1135, "507CAA", 0.9)
        If ret1 > -1 and ret2 > -1 Then
            Delay 200
            Tap 679, 1112
            Delay 200
            Exit Do
        End If   
    Loop  

End Sub

 

代码:

 

 

//是否中,do loop结构确是一定的处理

 

//是否第二章精英
do
    Delay 700
    ret1 = CmpColor(681,296, "000000", 0.9)
    ret2 = CmpColor(690,296, "010202", 0.9)
    ret3= CmpColor(548,237, "0A0AF1", 0.9)
    If ret1 > -1 and ret2 > -1 and ret3 > -1 Then
        Exit Do
    Else
        Swipe 410, 1051, 410, 800
    End If   
Loop

 

 

代码:

 

   

 

//艺术就是代码 by忠哥

Sub 小交易()
    Dim ret1,ret2,intX, intY
    Rem j2
    //交易
    Do
        Delay 500
        //点开交易
        ret1 = CmpColor(537,1056, "151840", 0.9)
        ret2 = CmpColor(531,1050, "0F133E", 0.9)
        If ret1 > -1 and ret2 > -1 Then
            Tap 521, 1049
            Delay 500
            Tap 262, 504
        End If
        //是 否交易
//        FindPic 445,423, 365,573, "Attachment:八.png", "000000", 0, 0.9, intX, intY
//        If intX > -1 And intY > -1 Then
//            Tap 262, 504
//        Else
//            ret1 = CmpColor(265,742, "113263", 0.9)
//            ret2 = CmpColor(260,772, "CEEBFA", 0.9)
//            If ret1 > -1 and ret2 > -1 Then
//                Tap 265,772
//            End If
//        End If
        FindPic 705,597, 667,674, "Attachment:交易.png", "000000", 0, 0.9, intX, intY
        If intX > -1 And intY > -1 Then
            Exit Do
        End If               
    Loop
    //交易装备
    Delay 500
    ret1 = CmpColor(550,863, "3E6590", 0.9)
    ret2 = CmpColor(546, 900, "3E6590", 0.9)
    If ret1 > -1 and ret2 > -1 Then
        Tap 681,1131
        Goto A3
    End If
    Dim x,y
    x = 547
    
    For 2
        y=880
        For 3
            Delay 500
            Tap x, y
            Delay 500
            ret1 = CmpColor(77,520, "CEEBFA", 0.9)
            ret2 = CmpColor(73,489, "07214C", 0.9)
            If ret1 > -1 and ret2 > -1 Then
                Tap 77,520
    
            End If
    
            y=y+111
        Next
        x=x-111
    Next
    delay 300
    Tap 54, 896
    Delay 100
    Do
        ret1 = CmpColor(57,1039, "0D2E5F", 0.9)
        ret2 = CmpColor(60,1114, "05264F", 0.9)
        If ret1 > -1 and ret2 > -1 Then
            Tap 57, 1039
            Exit Do
        End If   
    Loop
    Do
        ret1 = CmpColor(537,1056, "151840", 0.9)
        ret2 = CmpColor(531,1050, "0F133E", 0.9)
        If ret1 > -1 and ret2 > -1 Then
            Goto j2
        End If   
    Loop

 

    Rem A3    
End Sub



 

代码:

 

 

 //相对于上面多重多对一,if嵌套能不用尽量不用吧,呃我觉得。只有当必须要搞的时候,才去嵌套。正常情况下,游戏逻辑是不可逆的。所以流水线般运作的程序完全不必担心.

Sub 刷装备4()
    Do
        Dim ret1,ret2
        ret1 = CmpColor(185,1130, "C8E0FF", 0.9)
        ret2 = CmpColor(191,1125, "B3C8D8", 0.9)
        If ret1 > -1 and ret2 > -1 Then
            Tap 199,1133
            Exit Do
        End If   
    Loop
    Delay 500
    Tap 205, 1134
    Do
        Delay 700
        ret1 = CmpColor(682,278, "010203", 0.9)
        ret2 = CmpColor(678,285, "000101", 0.9)
        If ret1 > -1 and ret2 > -1 Then
            Exit Do
        Else
            Swipe 520, 990, 520, 900
        End If   
    Loop

 

    Dim x,y
    x = 463
    y=376
    For 3
        rem g1
        Delay 300

        Tap x, y

        Delay 300
        Tap 147, 757
        Delay 500
        ret1 = CmpColor(261,631, "C1EFFB", 0.9)
        ret2 = CmpColor(357,505, "D10102", 0.9)
        If ret1 - 1 and ret2 > -1 Then
            Tap 261, 631
            Delay 500
            Tap 375,936
            delay 300
            Tap 367, 661
            Delay 300
            Tap 246, 509
            Delay 300
            Tap 677, 1131
            Exit for
        End If
        Do
            delay 300
            Tap 138, 640
            Delay 300
            Tap 265, 501
            Delay 500
            ret1 = CmpColor(261,631, "C1EFFB", 0.9)
            ret2 = CmpColor(422,559, "000000", 0.9)
            If ret1 - 1 and ret2 > -1 Then
                Tap 261, 631
                Delay 500
                ret1 = CmpColor(592,927, "15213F", 0.9)
                ret2 = CmpColor(589,932, "111A37", 0.9)
                If ret1 - 1 and ret2 > -1 Then
                    Tap 589,932
                End If
                Exit Do
            End If

            ret1 = CmpColor(261,631, "C1EFFB", 0.9)
            ret2 = CmpColor(357,505, "D10102", 0.9)
            If ret1 - 1 and ret2 > -1 Then
                Tap 261, 631
                Delay 500
                Tap 375,936
                delay 300
                Tap 367, 661
                Delay 300
                Tap 246, 509
                Delay 300
                Tap 677, 1131
                Delay 300
                Tap 594,929
                Exit Do
            End If
            //武器不刷
            ret1 = CmpColor(296,1005, "C8B1BD", 0.9)
            ret2 = CmpColor(345,1025, "47262E", 0.9)
            If ret1 > -1 and ret2 > -1 Then
                Tap 627, 1079
                Delay 200
                goto g1
            End If   

        Loop

        x=x-110
    Next
    x = 463
    y=902
    For 3
        rem g2
        Delay 300

        Tap x, y

        Delay 300
        Tap 147, 757
        Delay 500
        ret1 = CmpColor(261,631, "C1EFFB", 0.9)
        ret2 = CmpColor(357,505, "D10102", 0.9)
        If ret1 - 1 and ret2 > -1 Then
            Tap 261, 631
            Delay 500
            Tap 375,936
            delay 300
            Tap 367, 661
            Delay 300
            Tap 246, 509
            Delay 300
            Tap 677, 1131
            Exit for
        End If
        Do
            delay 300
            Tap 138, 640
            Delay 300
            Tap 265, 501
            Delay 500
            ret1 = CmpColor(261,631, "C1EFFB", 0.9)
            ret2 = CmpColor(422,559, "000000", 0.9)
            If ret1 - 1 and ret2 > -1 Then
                Tap 261, 631
                Delay 500
                ret1 = CmpColor(592,927, "15213F", 0.9)
                ret2 = CmpColor(589,932, "111A37", 0.9)
                If ret1 - 1 and ret2 > -1 Then
                    Tap 589,932
                End If
                Exit Do
            End If

            ret1 = CmpColor(261,631, "C1EFFB", 0.9)
            ret2 = CmpColor(357,505, "D10102", 0.9)
            If ret1 - 1 and ret2 > -1 Then
                Tap 261, 631
                Delay 500
                Tap 375,936
                delay 300
                Tap 367, 661
                Delay 300
                Tap 246, 509
                Delay 300
                Tap 677, 1131
                Delay 300
                Tap 594,929
                Exit Do
            End If
            //武器不刷
            ret1 = CmpColor(296,1005, "C8B1BD", 0.9)
            ret2 = CmpColor(345,1025, "47262E", 0.9)
            If ret1 > -1 and ret2 > -1 Then
                Tap 627, 1079
                Delay 200
                goto g2
            End If   

        Loop

        x=x-110
    Next

    Delay 500
    ret1 = CmpColor(682,1125, "111A37", 0.9)
    ret2 = CmpColor(677,1130, "111A37", 0.9)
    If ret1 - 1 and ret2 > -1 Then
        Tap 680, 1131
    End If
End Sub