按键精灵手机版过滑块的源码

Import "shanhai.lua" Dim intx,inty,文件路径1="/sdcard/.money/wx2.jpg",文件路径2="/sdcard/DCIM/wx2.jpg",ok=1 Do     FindPic 112,959, 353,1101, "Attachment:滑块.png|Attachment:滑块1.png", "000000", 0, 0.9, intX, intY     If intX > -1 And intY > -1 Then          //        Delay 2000         xxk "滑块模拟"         滑块函数              End If     FindPic 446,1705,616,1874,  "Attachment:桌面0.png", "000000", 0, 0.9, intX, intY     If intX > -1 And intY > -1 Then          ok = 1              End If         FindPic 893,1823,1010,1907,  "Attachment:登录成功_我.png", "000000", 0, 0.9, intX, intY     If intX > -1 And intY > -1 Then          Dir.Copy 文件路径1, 文件路径2         Call ShanHai.UpdatePicture("/sdcard/DCIM/wx2.jpg")               Delay 3000         If ok = 1 Then                          FindPic 218,71,554,169,  "Attachment:后备份.png", "000000", 0, 0.9, intX, intY             If intX > -1 And intY > -1 Then               xxk "开始任务"                 RunApp "com.tencent.mm", ".plugin.scanner.ui.BaseScanUI"                 Delay 3000                 ok = 0             End If                  FindPic 415,70,755,157,  "Attachment:后备份.png", "000000", 0, 0.9, intX, intY             If intX > -1 And intY > -1 Then                  RunApp "com.tencent.mm", ".plugin.scanner.ui.BaseScanUI"                 Delay 3000                 ok = 0             End If                  End If          End If     FindPic 70,1824,199,1892,  "Attachment:封面.png", "000000", 0, 0.9, intX, intY     If intX > -1 And intY > -1 Then        TracePrint "封面"                Tap 991,142         Delay 2000     End If         FindPic 49,1745,466,1919,  "Attachment:从相册.png", "000000", 0, 0.9, intX, intY     If intX > -1 And intY > -1 Then          TracePrint "从相册"         Tap intX,intY         Delay 2000        End If     FindPic 241,1835,326,1893,  "Attachment:所有图片.png", "000000", 0, 0.9, intX, intY     If intX > -1 And intY > -1 Then         TracePrint "所有图片"         Tap 405,336'第一张图片         Delay 2000         Dim n=0                 For n = 0 To 10             FindPic 148,1806,286,1909,  "Attachment:红包墙.png", "000000", 0, 0.9, intX, intY             If intX > -1 And intY > -1 Then                  ok = 1                 Tap 847, 1841                 Delay 2000                 Exit For             End If             Delay 500                          FindPic 740,1071,911,1191,  "Attachment:组件升级.png", "000000", 0, 0.9, intX, intY             If intX > -1 And intY > -1 Then                  Tap intX,intY                              End If             Delay 500                          FindPic 446,1705,616,1874,  "Attachment:桌面0.png", "000000", 0, 0.9, intX, intY             If intX > -1 And intY > -1 Then                  ok = 1                 Exit For             End If                      Next                    End If         FindPic 148,1806,286,1909,  "Attachment:红包墙.png", "000000", 0, 0.9, intX, intY     If intX > -1 And intY > -1 Then         TracePrint "红包墙"         Tap 847,1841         ok = 1     End If                   FindPic 745,1193,882,1278,  "Attachment:允许.png", "000000", 0, 0.9, intX, intY     If intX > -1 And intY > -1 Then          TracePrint "允许"         Tap intX,intY              End If          FindPic 740,1071,911,1191,  "Attachment:组件升级.png", "000000", 0, 0.9, intX, intY     If intX > -1 And intY > -1 Then          TracePrint "组件升级"         Tap intX,intY                End If          FindPic 547,1333,697,1435,  "Attachment:关闭.png", "000000", 0, 0.9, intX, intY     If intX > -1 And intY > -1 Then          TracePrint "关闭"         Tap intX,intY              End If          FindPic 28,267,267,392,  "Attachment:附近的小程序.png", "000000", 0, 0.9, intX, intY     If intX > -1 And intY > -1 Then          TracePrint "附近的小程序"         Touch 126,572,1000                 FindPic 79,217,333,512,  "Attachment:删除小程序.png", "000000", 0, 0.9, intX, intY         If intX > -1 And intY > -1 Then              Tap intX,intY                          End If                  FindPic 381,494,690,599,  "Attachment:没有小程序.png", "000000", 0, 0.9, intX, intY         If intX > -1 And intY > -1 Then              TracePrint "删除小程序完成了"             Delay 2000         End If                  FindPic 73,467,129,514,  "Attachment:没有小程序2.png", "000000", 0, 0.9, intX, intY         If intX > -1 And intY > -1 Then              TracePrint "删除小程序完成了2"             Delay 2000         End If         ok = 1               End If          FindPic 480,1769,606,1871,  "Attachment:小程序界面.png", "000000", 0, 0.9, intX, intY     If intX > -1 And intY > -1 Then          TracePrint "小程序界面"         Tap 983,150         Delay 2000         ok = 1     End If          FindPic 739,1784,960,1912,  "Attachment:我的红包.png", "000000", 0, 0.9, intX, intY     If intX > -1 And intY > -1 Then          //        Dim n         n = 0         For n = 0 To 5                      FindPic 418,738,672,868,  "Attachment:红包完成.png", "000000", 0, 0.9, intX, intY             If intX > -1 And intY > -1 Then                  TracePrint "红包完成啦"                 RunApp "com.tencent.mm", ".plugin.appbrand.ui.AppBrandLauncherUI"                 Delay 2000                 Exit For             End If             Delay 1000             FindPic 446,1705,616,1874,  "Attachment:桌面0.png", "000000", 0, 0.9, intX, intY             If intX > -1 And intY > -1 Then                  ok = 1                 Exit For             End If         Next                  Tap 215,1861         Delay 2000         ok = 1               End If     TracePrint ok       Delay 1000 Loop Function 滑块函数()             '颜色特征存放进数组里     Dim 特征1,特征2,特征3,特征4,特征5,特征6,滑动解锁     特征1 = Array(378,408,1012,936, "182931","-13|0|141F28,0|13|16282F,1|124|7098A6,-123|123|112F3A,-123|0|274448")//鸟     特征2 = Array(378,408,1012,936, "334D7A","-6|1|151E4C,-1|5|192848,0|124|4B618F,-123|123|1B253F,-124|0|43586A")//红色纱布     特征3 = Array(378,408,1012,936, "6A6564","-14|1|4D4847,0|14|4B4948,1|124|9C9A99,-123|123|383537,-123|0|6B6864")//企鹅     特征4 = Array(378,408,1012,936, "555352","-3|0|3B3938,0|5|434140,0|123|3B342B,-124|124|A5A098,-123|0|223247")//青草     特征5 = Array(378,408,1012,936, "A3EDF2","-2|10|28394A,-9|2|104242,0|127|BAB5A1,-127|127|C3BFAA,-127|0|E0E1D1")//黄沙     特征6 = Array(378,408,1012,936, "2B4D3C","-12|1|193022,0|14|273924,0|124|4A6662,-124|124|4B7065,-124|0|3B5C4E") //草地     滑动解锁 = False     Call shanhai.TimeSign(1)     Dim XX=Random(160,290)     Dim XXX=XX-160+Random(-5,5)     Dim cishu=Random(5, 10)     Do         If 多点找色(特征1) = True Then              TracePrint intx             TouchDown XX , Random(970, 1000), 1             For i=1 to cishu                 TouchMove ((intx-120+XXX)/cishu)*i, Random(980, 1050), 1,Random(500/cishu,1000/cishu)                 Delay Random(100, 300 )             Next             Delay Random(100, 1000)             TouchUp 1             滑动解锁 = True         ElseIf 多点找色(特征2) = True Then             TracePrint intx             TouchDown XX , Random(970, 1000), 1             For i=1 to cishu                 TouchMove ((intx-120+XXX)/cishu)*i, Random(980, 1050), 1,Random(500/cishu,1000/cishu)                 Delay Random(100, 300 )             Next             Delay Random(100, 1000)             TouchUp 1             滑动解锁 = True         ElseIf 多点找色(特征3) = True Then             TouchDown XX , Random(970, 1000), 1             For i=1 to cishu                 TouchMove ((intx-120+XXX)/cishu)*i, Random(980, 1050), 1,Random(500/cishu,1000/cishu)                 Delay Random(100, 300 )             Next             Delay Random(100, 1000)             TouchUp 1             滑动解锁 = True         ElseIf 多点找色(特征4) = True Then             TracePrint intx             TouchDown XX , Random(970, 1000), 1             For i=1 to cishu                 TouchMove ((intx-120+XXX)/cishu)*i, Random(980, 1050), 1,Random(500/cishu,1000/cishu)                 Delay Random(100, 300 )             Next             Delay Random(100, 1000)             TouchUp 1             滑动解锁 = True         ElseIf 多点找色(特征5) = True Then             TracePrint intx             TouchDown XX , Random(970, 1000), 1             For i=1 to cishu                 TouchMove ((intx-120+XXX)/cishu)*i, Random(980, 1050), 1,Random(500/cishu,1000/cishu)                 Delay Random(100, 300 )             Next             Delay Random(100, 1000)             TouchUp 1             滑动解锁 = True         ElseIf 多点找色(特征6) = True Then             TracePrint intx             TouchDown XX , Random(970, 1000), 1             For i=1 to cishu                 TouchMove ((intx-120+XXX)/cishu)*i, Random(980, 1050), 1,Random(500/cishu,1000/cishu)                 Delay Random(100, 300 )             Next             Delay Random(100, 1000)             TouchUp 1             滑动解锁 = True         ElseIf 滑动解锁 = False Then             ShowMessage "未匹配到方案"             Delay 500             Tap 982, 1177             Delay 3500         End If         If shanhai.Timer(1, 10) Then              TracePrint "成功解锁"             //            Dim n             //            For n = 0 To 10             //                FindPic 138,1135,269,1204,  "Attachment:请对准.png", "000000", 0, 0.9, intX, intY             //                If intX > -1 And intY > -1 Then              //                    ShowMessage "滑块错误"             //                    Tap 982, 1177             //                    Delay 3500             //                End If             //            Next             Exit Do          End If         FindPic 138,1135,269,1204,  "Attachment:请对准.png", "000000", 0, 0.9, intX, intY         If intX > -1 And intY > -1 Then              ShowMessage "滑块错误"             Tap 982, 1177             Delay 3500         End If                       Loop End Function Function xxk(str)     ShowMessage "【提示】" & str, 100, 5, 1830     Delay 500 End Function Function 多点找色(特征数组)  '多点找色函数     FindMultiColor 特征数组(0), 特征数组(1), 特征数组(2), 特征数组(3), 特征数组(4), 特征数组(5), 4, 0.8, intX, intY     If intx > -1 Then         多点找色() = intx         多点找色 = True     Else          多点找色 = False     End If End Function Function Random(min, max)//随机数     Randomize     Dim Random = 0     Random = Int((max - min + 1) * Rnd() + min) End Function