按鍵精靈手機版多點找色，圖片對比 by <劍行洪荒> 忠哥

代碼：

 

 

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 IfEnd Sub