为编程爱好者分享易语言教程源码的资源网
____广告位招租____ ____广告位招租____ 服务器99/年 ____广告位招租____ ____广告位招租____ 挂机,建站服务器
____广告位招租____ ____广告位招租____ 服务器低至38/年 ____广告位招租____ ____广告位招租____ 挂机,建站服务器

网站首页 > 脚本专栏 > 按键精灵相关 > 按键精灵安卓版 正文

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

三叶资源网 2019-02-17 12:16:48 按键精灵安卓版 6623 ℃ 53 评论

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

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

来源:三叶资源网,欢迎分享,公众号:iisanye,(三叶资源网⑤群:21414575

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

  • 三叶网

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

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

  • 访客

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

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

  • 三叶资源网站

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

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

  • 源码网

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

    易语言滑块模拟登录

  • 易语言TV

    易语言TV  评论于 [2019-08-09 15:54:26]  回复

    按键精灵闲鱼过滑块

  • 易语言TV

    易语言TV  评论于 [2019-09-14 16:53:46]  回复

    手机按键精灵滑块验证

  • 三叶网

    三叶网  评论于 [2019-11-02 22:56:53]  回复

    按键精灵过联众滑块代码

  • 模块开发

    模块开发  评论于 [2020-02-17 23:59:06]  回复

    安卓按键精灵教程+滑块

  • 广大易友

    广大易友  评论于 [2020-02-23 21:47:10]  回复

    按键精灵滑块验证源码

  • 模块官网

    模块官网  评论于 [2020-03-04 17:13:57]  回复

    按键精灵安卓版滑块轨迹

  • 现行程序

    现行程序  评论于 [2020-03-13 12:09:44]  回复

    联众对接按键精灵滑块移动

  • 目的代码

    目的代码  评论于 [2020-03-19 12:43:19]  回复

    按键精灵滑块验证源码

  • 易语言

    易语言  评论于 [2020-04-07 15:40:15]  回复

    手机按键精灵+更新源码

  • 易语言

    易语言  评论于 [2020-04-17 20:31:51]  回复

    手机版按键精灵滑块指令

  • sql语句

    sql语句  评论于 [2020-04-17 20:44:00]  回复

    手机按键精灵滑块

  • 易语言

    易语言  评论于 [2020-04-17 21:45:30]  回复

    按键精灵安卓过滑块验证

  • 易语言

    易语言  评论于 [2020-04-17 22:06:58]  回复

    脚本的滑块怎么过

  • 易语言

    易语言  评论于 [2020-05-08 22:57:21]  回复

    手机按键精灵向上滑动脚本

  • 易语言

    易语言  评论于 [2020-06-16 23:09:42]  回复

    快手自动精灵过滑块

  • 易语言

    易语言  评论于 [2020-08-17 17:13:18]  回复

    按键精灵如何处理滑块验证

  • 易语言

    易语言  评论于 [2020-09-08 09:31:17]  回复

    安卓脚本精灵制作滑块验证

  • 多线程

    多线程  评论于 [2021-05-28 16:47:46]  回复

    按键精灵+滑块

欢迎 发表评论:

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

网站分类
随机tag
微信群发器鱼刺多线程脚本PC微信次世代觅风易语言脚本引擎限制未授权U盘内涵段子注册表易代码编辑框抖音脚本抖音评论采集链接器批量修改源码IP地址定位流量监控临时会话libMysqlCSS
最新评论