为编程爱好者分享易语言教程源码的资源网
易语言网站app定制QQ1918812225 网络赚钱,从这里开始 想日赚300到3000来 三叶资源网培训教程视频 三叶资源网官方③群:33301895
三叶资源网官方③群:33301895 网络赚钱,从这里开始 B全站文字广告,诚邀与您合作 三叶资源网培训教程视频 三叶资源网官方③群:33301895

网站首页 按键精灵相关 按键精灵安卓版 正文

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

三叶资源网 2019-02-17 按键精灵安卓版 1452 ℃ 12 评论

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

@78765403

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
文件下载

Tags:

来源:三叶资源网,欢迎分享,公众号:iisanye,(三叶资源网官方③群:33301895

已有12位网友发表了看法:

  • 三叶网

    三叶网  评论于 [2019-03-07 10:52:51]  回复

    手机按键精灵+检测提示框

  • 访客

    访客  评论于 [2019-03-09 13:12:01]  回复

    能下载就好了,不知道源码里图片是什么

  • 三叶资源网站

    三叶资源网站  评论于 [2019-03-23 17:09:33]  回复

    按键精灵手机版自动过滑块验证码的源码

  • 源码网

    源码网  评论于 [2019-04-22 00:32:55]  回复

    易语言滑块模拟登录

欢迎 发表评论:

百度站内搜索
关注微信公众号
三叶资源网官方③群:三叶资源网官方③群

网站分类
随机tag
web浏览器加载皮肤源码.易语言支持库公交查询系统社会网络未闻花名UI薅羊毛鱼刺多线程模块2345签到取QQ昵称Ex_ui界面支持库HPSocketQQ注册自动审核进群cleverQQ机器人插件websocket协议scriptcontrol对象百度API三叶资源网
最新评论