战舰少女 黑暗炼钢 按键精灵 代码及apk下载

注：

该代码仅仅适用于1920*1080分辨率的android手机，因为我只有这个分辨率的手机TnT

代码其实蛮简单的，都是比较简单的模拟就好了……

要改也比较轻松吧

APK下载地址：链接: http://pan.baidu.com/s/1bn6TzeZ 密码: t95n

在我手机跑的蛮稳定的，目前刷了半小时，没出现任何意外

　　

Dim intX,intY
Dim flag
Function 进入船坞()
    FindMultiColor 293,1343,442,1505,"D6C71D","-10|83|D2C113,-32|158|917103,-74|71|C39300,-96|78|BBBCBC,100|59|F7F18D,34|220|BDBEBE",0,0.9,intX,intY
    If intX>-1 And intY>-1 Then
         Tap 372, 1422
         flag=0
End If
End Function

Function 船坞中选择第一艘船
FindMultiColor 52,262,472,528,"","-74|30|848484,-115|-22|838383,-141|-71|979358,-83|-76|FFFFFF",0,0.9,intX,intY
If intX>-1 And intY>-1 Then
    Tap 383, 368
    flag = 0
End If
End Function

Function 上阵第一艘船
FindMultiColor 516,261,903,446,"7C5915","10|-144|8C6415",0,0.9,intX,intY
If intX>-1 And intY>-1 Then
     Tap 732, 345
     flag = 0
End If
End Function

Function 回到港口
FindMultiColor 0,0,197,279,"386FA4","-48|54|F6F6F6,-69|139|5789B6,-10|112|B7D2EF",0,0.9,intX,intY
If intX>-1 And intY>-1 Then
     Tap 48, 95
     flag = 0
End If
End Function

Function 进入建造
FindMultiColor 405,1026,776,1427,"E7BC38","5|-76|E9C13D,-132|21|C39200,129|27|BBBBBB,-5|133|E8C13C",0,0.9,intX,intY
If intX>-1 And intY>-1 Then
    Tap 594, 1218
    flag = 0
End If
End Function

Function 选择解体
FindMultiColor 762,0,912,248,"C59500","53|10|EEC842,4|171|8F6E00,98|74|4D3109,58|162|F0CB43",0,0.9,intX,intY
If intX>-1 And intY>-1 Then
    flag = 0
    Tap 825, 92
End If
End Function

Function 添加材料
FindMultiColor 492,281,888,511,"F6D345","-147|40|A07500,-66|98|E2BB3A,-111|58|C5C5BE,1|23|F3D044",0,0.9,intX,intY
If intX>-1 And intY>-1 Then
    flag = 0
    Tap 693, 393
End If
End Function

Function 添加第一艘解体舰船
FindMultiColor 508,46,915,267,"7C5915","21|-152|855F14,366|10|EADA82,-3|-68|775615,-3|-150|886114",0,0.9,intX,intY
If intX>-1 And intY>-1 Then
     Tap 722, 149
     flag = 0
End If
End Function

Function 选择解体确定
FindMultiColor 209,1720,322,1895,"F2CD43","-61|62|BF8C00,-2|93|FFFFFF,-27|78|D7D7D4,-1|124|F2CD43",0,0.9,intX,intY
If intX>-1 And intY>-1 Then
     Tap 260, 1812
     flag = 0
End If
End Function

Function 解体
FindMultiColor 82,641,225,1030,"ECC440","-15|97|F9F9F9,-15|102|F3F3F2,20|50|F2CE44,-31|256|C79700",0,0.9,intX,intY
If intX>-1 And intY>-1 Then
    flag = 0
    Tap 148, 823
End If
End Function

Function 出征
FindMultiColor 619,1233,980,1612,"2A69E3","-40|-5|2879DE,-85|111|56A9EE,-83|-107|59ABEF,-144|-43|74D5FD",0,0.9,intX,intY
If intX>-1 And intY>-1 Then
    Tap 791, 1415
    flag = 0
End If
End Function

Function 选择1_1
    FindMultiColor 904,244,1069,596,"3152BA","17|76|77ADEA,-51|175|FDFDFC,-8|224|495A96,-40|270|274FC7",0,0.9,intX,intY
    If intX>-1 And intY>-1 Then
        Tap 990, 416
        flag = 0
    End If

    flag = 1
    Delay 1000
    FindMultiColor 30,925,144,1273,"EAC23E","-26|48|FFFFFF,24|119|F4D044,-27|185|768270,17|258|F1CC43",0,0.9,intX,intY
    If intX>-1 And intY>-1 Then
          Tap 89, 1097
          flag = 0
    End If
End Function

Function 出征开始
FindMultiColor 7,572,184,1135,"4D898F","-3|73|1E6F99,-44|160|6188EA,8|243|1E72A6,-60|403|447F7F",0,0.9,intX,intY
If intX>-1 And intY>-1 Then
     Tap 97, 842
     flag = 0
End If
End Function

Function 追击
FindMultiColor 287,607,597,984,"F2CD44","-73|38|63633F,-39|70|2A2A1A,-35|124|D1D1C0,-89|150|C08E00",0,0.9,intX,intY
If intX>-1 And intY>-1 Then
     Tap 415, 795
     flag = 0
End If
End Function

Function 战斗确认
FindMultiColor 7,1333,138,1551,"EBC33F","-29|58|C18F00,5|96|BCA032,-20|64|866A00,-29|-5|C18F00",0,0.9,intX,intY
If intX>-1 And intY>-1 Then
     Tap 76, 1428
     flag = 2
End If
End Function

Function 战斗结果确认
FindMultiColor 21,1664,167,1888,"EEC841","-31|11|C39200,-5|43|EBC43F,-12|86|FDFDFD,-6|118|A4882B",0,0.9,intX,intY
If intX>-1 And intY>-1 Then
    Tap 84, 1758
    flag = 0
End If
End Function

Function 回港
FindMultiColor 229,1468,600,1779,"","98|-35|75793E,67|21|7A7C3F,36|51|797D40,21|65|797B3E",0,0.9,intX,intY
If intX>-1 And intY>-1 Then
    Tap 370, 1604
End If

FindMultiColor 442,914,832,1285,"F3D044","-56|70|B2B2B2,-102|49|BF8C00,-30|91|4F4713,-60|155|CA9C00",0,0.9,intX,intY
If intX>-1 And intY>-1 Then
Tap 608, 1106
flag = 0
End If
End Function

Function 黑暗炼钢()
    Delay 1000
    flag = 1
    While flag = 1
        进入船坞
    Wend
    Delay 1000
    flag = 1
    While flag = 1
        船坞中选择第一艘船
    Wend
    flag = 1
    Delay 1000
    While flag = 1
        上阵第一艘船
    Wend
    flag = 1
    Delay 1000
    While flag = 1
        回到港口
    Wend
    flag = 1
    Delay 1000
    While flag = 1
        进入建造
    Wend
    flag = 1
    Delay 1000
    While flag = 1
        选择解体
    Wend
    flag = 1
    Delay 1000
    While flag = 1
        添加材料
    Wend

    flag = 1
    Delay 1000
    While flag = 1
        添加第一艘解体舰船
    Wend

    flag = 1
    Delay 1000
    While flag = 1
        选择解体确定
    Wend

    flag = 1
    Delay 1000
    While flag = 1
        解体
    Wend

    flag = 1
    Delay 1000
    While flag = 1
        回到港口
    Wend

    flag = 1
    Delay 1000
    While flag = 1
        出征
    Wend

    flag = 1
    Delay 1000
    While flag = 1
        选择1_1
    Wend

    flag = 1
    Delay 1000
    While flag = 1
        出征开始
    Wend

    flag = 1
    Delay 1000
    While flag = 1
        FindMultiColor 94,1182,194,1466,"3C87EC","-57|48|034AAF,-17|64|172F3C,-40|150|364249,-3|198|3885E9",0,0.9,intX,intY
        If intX>-1 And intY>-1 Then
             Tap 148, 1319
        End If
        追击
        战斗确认
    Wend

    If flag = 0 Then 

        flag = 1
        Delay 1000
        While flag = 1
            战斗确认
        Wend

    End If

    flag = 1
    Delay 1000
    While flag = 1
        战斗结果确认
    Wend

    flag = 1
    Delay 1000
    While flag = 1
        回港
    Wend
End Function

Dim val_black
val_black = ReadUIConfig("black")
While val_black = True
    黑暗炼钢
Wend