为编程爱好者分享易语言教程源码的资源网

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

按键精灵抖音引流脚本源码

三叶资源网 2018-08-06 11:31:32 按键精灵安卓版 18799 ℃ 208 评论

资源说明:

使用要求:

1.逍遥模拟器

2.模拟器分辨率

资源作者:

@杀死书生

资源图片:

按键精灵抖音引流脚本源码 (1)

资源源码:

dim cz_intx,cz_inty,startx,starty, endx,endy,count,结果,首次,话术1,话术2,话术3,临时路径,延迟时间Dim 关注,发消息,话术私聊,随机字符前缀,随机字符后缀,话术,话术发送完毕,完成操作,点击之后,intX,intY,错误信息
临时路径 = GetTempDir()
PutAttachment 临时路径 & "Misaki_douyin1.0/", "*.luae"
PutAttachment 临时路径 & "Misaki_douyin1.0/", "*.png"
首次 = 0
话术1 = ReadUIConfig("话术1", "text1.text2.text3")
话术2 = ReadUIConfig("话术2", "text1.text2.text3")
话术3 = ReadUIConfig("话术3", "text1.text2.text3")
Dim a = {话术1, 话术2, 话术3}
Dim img="Attachment:aixin.png"
If ReadUIConfig("延迟时间") = 0 Then 
    延迟时间 = 800
ElseIf ReadUIConfig("延迟时间") = 1 Then
    延迟时间 = 2500
ElseIf ReadUIConfig("延迟时间") = 2 Then
    延迟时间 = 9500
End If
//ShowMessage "延时时间:"&延迟时间
TracePrint "延时时间:"&延迟时间
Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次
zm.Swipe 358,1222, 312, -10, 300 //滑动
Do
    Call 重置起点()
    TracePrint "按顺序输出所有坐标"
    结果 = Split(结果, "|") 
    For i = 首次 To UBOUND(结果) - 1
        TracePrint 结果(i)'按顺序输出所有坐标
        zm.Tap 结果(i),1000'点击 
        关注 = 0
        发消息 = 0
        完成操作 = 0
        点击之后 = 0
        错误信息 = 0
        Do While 完成操作 = 0
            //查找关注坐标
            If 关注 = 0 Then
                If CmpColorEx("552|119|341E6F,652|119|331D6E,552|160|4827C8,651|160|552CFE,589|138|552CFE,589|137|D5CBFF,621|150|6C48FE,621|149|F8F6FF,621|148|B8A7FF", 0.9) = 1 Then
                    TracePrint "关注"
                    Tap 605, 145
                    关注 = 1
                End If
            Else
                错误信息 = 错误信息 + 1
                If 错误信息 > 6 Then
                    Tap 24,58
                    完成操作 = 1
                End If
                TracePrint "错误信息次数:"&错误信息
            End If
            //查找发送消息
            If 关注 = 1 or 话术发送完毕 = 1 Then
                If CmpColorEx("502|118|211715,602|119|2E2423,602|161|2E2423,524|133|4D4644,525|133|8E8988,526|133|6B6564,581|149|948F8E,582|149|7B7574",0.9) = 1 Then
                    If 关注 = 1 Then
                        TracePrint "发消息"
                        Tap 552,141
                        关注 = 0
                        发消息 = 1
                    ElseIf 话术发送完毕 = 1 Then
                        Tap 24,58
                        完成操作 = 1
                    End If
                End If
            End If
            //发送消息界面
            If 发消息 = 1 or 点击之后 = 0 Then
                If CmpColorEx("650|1245|655E5C,640|1256|372D2B,650|1266|655E5C,661|1255|655D5B,646|1251|605857,646|1250|231816,652|1251|362C2A,651|1251|231816,646|1258|645C5B,653|1258|655E5C",0.9) = 1 Then
                    TracePrint "发送消息界面"
                    Tap 52, 1259
                    发消息 = 0
                    话术私聊 = 1
                End If
            End If
            If 话术私聊 = 1 Then
                随机字符前缀 = zm.RndStr(3, 4 + 8, true)
                随机字符后缀 = zm.RndStr(3, 1 + 4 + 8, true)
                话术 = zm.RndArrElement(a)
                //                话术 = " 你好,我非常喜欢你的作品,我的 V 123456 交个朋友吧!"
                InputText 随机字符前缀 & " " & 话术 & " " & 随机字符后缀
                话术私聊 = 0
                话术发送完毕 = 1
                Delay 延迟时间
                Tap 700, 1260
                Delay 200
                Tap 24,58
            End If
            Delay 2000
        Loop
    Next
    zm.Swipe 358,1222, 312, -10, 300 //滑动
Loop
Sub 重置起点()
    Do
        startx = 1 : starty = 1 : endx = 720 : endy = 1280  : count = 0
        结果 = ""
        Do
            FindPic startx, starty, endx, endy, img,"000000",0,0.9, cz_intx, cz_inty'一图多坐标写法
            If cz_intx = -1 Then
                Exit do
            Else
                //startx = cz_intx + 60
                starty = cz_inty + 5
                count = count + 1 
                结果 = 结果 & cz_intx - 258 & "," & cz_inty + 12 & "|"
                TracePrint cz_intx, cz_inty
                TracePrint "x:"&cz_intx&"y:"&cz_inty&"几张:"&count&" "&结果
                //                Tap cz_intx - 258, cz_inty + 12
            End If
            If 结果 = "" Then '说明没有找到 
            End If
            //            Delay 5000
        Loop
        Exit Do
    loop
End Sub


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

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

  • 引流

    引流  评论于 [2018-08-11 01:57:48]  回复

    老大多发点引流脚本代码啊

  • 三叶网

    三叶网  评论于 [2018-09-15 15:57:08]  回复

    按键精灵脚本源码

  • 资源站

    资源站  评论于 [2018-09-30 12:22:50]  回复

    按键精灵+抖音

  • 易论坛

    易论坛  评论于 [2018-10-08 10:27:01]  回复

    抖音引流脚本源码

  • gitosc

    gitosc  评论于 [2018-11-04 14:21:56]  回复

    gitosc:按键精灵脚本源码

  • 创建验证码图像

    创建验证码图像  评论于 [2019-01-12 13:26:55]  回复

    Import+"zm.luae"
    zm.Init+//初始化插件,只需执行一次

    • 访客

      访客  评论于 [2019-06-13 18:50:44]  回复

      怎么联系怎么联系

  • 置加密方式

    置加密方式  评论于 [2019-01-19 10:07:20]  回复

    手机版按键精灵,如何写抖音脚本

  • 三叶网

    三叶网  评论于 [2019-02-24 12:44:52]  回复

    按键精灵手机脚本源码

  • 三叶网

    三叶网  评论于 [2019-02-25 12:08:36]  回复

    按键精灵引流

  • 三叶网

    三叶网  评论于 [2019-02-25 12:12:30]  回复

    按键精灵安卓脚本源码

  • 三叶网

    三叶网  评论于 [2019-03-05 17:45:58]  回复

    安卓抖音引流脚本免费下载

  • 三叶网

    三叶网  评论于 [2019-03-07 11:15:19]  回复

    抖音按键精灵脚本代码

  • 三叶网

    三叶网  评论于 [2019-03-07 11:20:13]  回复

    抖音引流脚本源码

  • 三叶网

    三叶网  评论于 [2019-03-07 11:23:43]  回复

    按键精灵抖音

  • 三叶网

    三叶网  评论于 [2019-03-08 10:53:53]  回复

    按键精灵手机脚本源码

  • 资源网

    资源网  评论于 [2019-04-01 12:42:30]  回复

    抖音引流脚本2018最新火山话术

  • 资源网

    资源网  评论于 [2019-04-29 11:08:43]  回复

    抖音养号脚本

  • 资源网

    资源网  评论于 [2019-04-29 11:08:49]  回复

    按键精灵引流源码

  • 资源网

    资源网  评论于 [2019-04-29 11:10:04]  回复

    按键精灵刷抖音脚本

  • 易飞扬

    易飞扬  评论于 [2019-04-29 12:41:38]  回复

    按键精灵?音原码

欢迎 发表评论:

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

网站分类
随机tag
国密算法skinsharp验证码图片计算剩余时间窗口信息svg图片转换黑猫论坛取色器多线程CreateMutexA自动检查更新GDIWonderWall资料LayUI框架appium模块keep中间件高级输入框自媒体平台
最新评论