为编程爱好者分享易语言教程源码的资源网
易语言源码视频(易学院) A全站文字广告,诚邀与您合作 建站,挂机器人,挂监控服务器 A全站文字广告,诚邀与您合作 三叶资源网官方③群:33301895
每日必买商品 20块一小时,一小时一结账 299买3年腾讯云服务器 B全站文字广告,诚邀与您合作 三叶资源网官方③群:33301895

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

最右App主题新帖自动发送私聊脚本

三叶资源网 2018-06-10 按键精灵安卓版 973 ℃ 4 评论

资源介绍:

最右APP新帖全自动私聊脚本

自动过滤用户已发用户

自动翻页

资源作者:

杀死书生

资源界面:

最右App主题新帖自动发送私聊脚本 (1).gif

资源源码:

Dim intX1, intY1,intX3, intY3,intX4, intY4,intX5,intY5,startx,starty, endx,endy,count,结果,已发,继续
Dim img="Attachment:三点.png"
Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次 276  
Rem 继续
startx = 662 : starty = 90 : endx = 720 : endy = 1280  : count = 0
Do
    FindPic startx, starty, endx, endy, img,"000000",0,  0.8, intX1, intY1'一图多坐标写法
    If intx1 = - 1  Then
        If startx=0 Then Exit do //查找结束
        starty = starty + 1 : startx = 0
    Else
        If inty1 = starty or startx = 0 Then
            startx = intx1 + 1:starty=inty1
            count = count + 1
            结果 = 结果 & intx1 - 639 & "," & inty1 & "|"
        Else
            startx = 0 : starty = starty + 1
        End If
    End If
Loop
结果 = Split(结果, "|") 
For i = 0 To UBOUND(结果) - 1
    TracePrint 结果(i)'按顺序输出所有坐标 
    zm.Tap 结果(i),1000'点击 
    已发 = 0 
    While 已发 = 0  
        Delay 200 
        FindPic 651, 1237, 707, 1270, "Attachment:发送.png", "000000", 0, 0.9, intX4, intY4
        If intX4 > -1 And intY4 > -1 Then
            TracePrint "私聊界面" 
            InputText "关注微信公众号:**** 回复资源名字 就能观看影视、小说、网盘、等资源哦!"
            Delay 500 
            Tap 681, 1252 
            Delay 500
            KeyPress "Back"
            Delay 500
            KeyPress "Back"
            Delay 3000 
            已发 = 1
             
        Else 
          /*  FindPic 555, 46, 582, 71, "Attachment:已关注.png", "000000", 0, 0.8, intX3, intY3 
            If intX3 > -1 And intY3 > -1 Then 
                TracePrint "已关注" 
            Else */ 
            // TracePrint "点击私聊" 
          
            // zm.Tap 589,59, 500 //点击关注 
            //zm.Tap 640,60, 200 //点击私聊 
            //End If 
             
             
            FindPic 291,630,431,688,"Attachment:已封.png","000000",0,0.9,intX5,intY5
            If intX5 > -1 And intY5 > -1 Then
                TracePrint "被私聊的用户被封了"
                Delay 500
                KeyPress "Back" 
                Delay 3000 
                已发 = 1 
            Else
                TracePrint "点击私聊"
                zm.Tap 640,60, 200 //点击私聊 
            End If
        End If
    Wend
Next 
结果 = ""
zm.Swipe 312,1276,338,0, 300 '滑动  
Delay 1000
Goto 继续


Tags:

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

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

欢迎 发表评论:

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

网站分类
随机tag
Hp-SocketUI界面辅助源码自绘64位进程界面设计微信加人未闻花名皮肤模块PrintableQQ好友计数器软件文件夹大小QQ群引流易语言寻路易语言5.8WS/WSS抖音去水印FlashFXP注册表操作AsmBass音频库
最新评论