【Android】趣头条自动看视频新闻代码

mq0072018

[Java] 纯文本查看 复制代码

app.launchApp("趣头条");
auto();
a=device.width;
b=device.height;
var i="";
var y=470;
sleep("2500");
while(true){
    click(322,1828);
for(var r=1;r<=8;r++){
    sleep("3300");
    if(y==470)
    click(535,y=y+800);
    else
    click(535,y=y-800);
    i=Math.random()*40000+60000;
    sleep(i);
    click(50,128);
    }
    r=0;
for(var n=1;n<=10;n++){
     click(100,1830);
     sleep("4000");
     click(800,450);
     sleep(5000);
    for(var h=1;h<=5;h++){
     swipe(i=Math.random()*200+400,r=Math.random()+1300,i,r=r-200,Math.random()*100+500);
     sleep(6000);
    }
     sleep(2000);
     click(50,128);
     sleep(1000);
     }
    }

模仿人工点击操作加了些随机数。用auto.js运行就可以了，一般正常运行半个小时以上没什么问题。屏幕分辨率1080*1920 根据自己手机可以修改，很多地方都可以改

道袍学者

好的，分享出来一起学习学习

Import "zm.luae" //导入插件,只需执行一次
zm.Init
//720*1280
/*********************定义**********************/
Dim ScreenY,ScreenX
ScreenY = GetScreenY()
ScreenX = GetScreenX()
Dim intX,intY
Dim Fy=0
Dim Fx1,Fx2
Dim 置顶=Array ("5858FF","7|12|5555FF,16|-4|5656FF,30|6|6666FF,11|-9|FFFFFF",0.9)
Dim 分隔线=Array ("FFFFFF","30|0|D2D2D2,354|0|D2D2D2,369|-1|FFFFFF,689|0|D2D2D2,719|0|FFFFFF",1)
Dim 红包=Array ("26EDF7","-4|-10|5C73FF,-8|-22|F6F7FF,-6|-37|EDEFFB,-3|-37|535FFF",0.95)

/*********************检测**********************/
Dim 领取=Array("007FFF","-24|-8|007FFF,-16|0|54DEFF,-15|-27|FFFFFF",1)
Dim 我知道了=Array("FFFFFF","30|4|FAFDFF,69|-2|FFFFFF,83|2|1AA1FF,-13|3|1AA1FF",0.9)
Dim 忽略=Array ("30322E","11|0|30322E,1|22|30322E,30|9|30322E,49|22|30322E,22|10|F7F7F7",0.95)
'TracePrint FCex(584,61,705,128,领取, 0)
//TracePrint FCex(0,0,0,0,分隔线, 0)
//TracePrint intX,intY

zm.Swipe 12, 457, 12, 1046, 500
Delay 3000
Do
   
    Do
        If FCex(584,61,705,128, 领取, 1) Then
            TracePrint "领红包"
        ElseIf FCex(163,797,267,847,忽略, 1) Then
            TracePrint "忽略"
        ElseIf FCex(293, 769, 427, 810, 我知道了, 1) Then
        ElseIf FCex(0, 0, 0, 0, 分隔线, 0) Then
            Exit Do
        End If
    Loop
    If FCex(0, Fy, ScreenX, ScreenY, 分隔线, 0) Then
        Fx1=intX:Fx2=intY
        If FCex(0, intY - 80, intX + 140, intY, 置顶, 0) Then
            Fy = intY + 90
            TracePrint "是置顶"
        Else
            Tap Fx1 + 80, Fx2 - 140
            刷分
            KeyPress "back"
            zm.Swipe 12, 457, 12, 1046, 500
            Delay 3000
            Fy = 0
        End If
    Else
        Fy = 0
        zm.Swipe 12, 457, 12, 1046, 500
        Delay 3000
    End If
Loop
Sub 刷分()
    Dim 次数=0,Thread1
    Do
        If FCex(535, 703, 680, 856, 红包, 0) Then
            Delay 2000
            Thread1 = Thread.Start(滑屏)
            Do
                If FCex(535, 703, 680, 856, 红包, 0)=False  Then
                    次数 = 次数 + 1
                    Delay 3000
                End If
                Delay 100
            Loop While 次数 < 3
            Thread.Stop (Thread1)
            Exit Sub
        End If      
    Loop
End Sub

Sub 滑屏()
    Dim 开头,结尾
    Dim mode = 0
    Do
        If mode = 0 Then
            zm.Swipe 16, 745, 16, 498, 500
            结尾 = CmpColor(717, 1066, "F6F6F6", 1)
            TracePrint "结尾",结尾
            Delay 1000
            If 结尾 = -1 Then
                mode=1
            End If
            TracePrint "下"
        Else
            zm.Swipe 16, 498, 16, 745, 500
            开头 = CmpColor(715, 251, "F6F6F6", 1)
            Delay 1000
            If 开头 = -1 Then
                mode=0
            End If
            TracePrint "上"
        End If
        
    Loop
End Sub


Function FCex(x,y,x1,y1,arr,mode)

    FCex=False
    FindMultiColor x,y,x1,y1,arr(0),arr(1),0,arr(2),intX,intY
    If intX>-1 And intY>-1 Then
        If mode = 1 Then
            Tap intX, intY
            FCex = True
            Exit Function
        ElseIf mode = 0 Then
            FCex = True
            Exit Function
        End If
    End If
End Function

mq0072018

zs9527 发表于 2018-11-19 07:26
var i="";
var y=470
这句式什么意思    i代表什么意思  470是刷新吗

不是，接触的语言太多了 平时用的又不多 所以忘了哪些要先定义 哪些可以复制的时候定义，所以就在前面直接先定义了 以免出错
y=470是在纵坐标上弄了个if判断 一次点上面的视频下次再点下面的视频
我这个是先点下面的视频再点上面的视频，都一样的索性就没调它

fzh5520

mq0072018 发表于 2018-11-19 02:59
我开始也是抱着试一试的心态，为了怕被封就用了一些随机数，让系统感觉每次按的地方都不一样，用了一个多 ...

兄弟 安卓的话要怎么用才可以

fuli2018

怎么看？没有看明白哦

mq0072018

fuli2018 发表于 2018-11-19 00:45
怎么看？没有看明白哦

模仿人工 操作点屏幕那种看 不是后台自动运行

wangqiustc

后台自动赚钱了？

mq0072018

wangqiustc 发表于 2018-11-19 01:04
后台自动赚钱了？

不是后台运行，就是模仿人工点击运行。后台那种自动的我怕封号

carzy1120

怎么改分辨率

carzy1120

------------ [/storage/emulated/0/脚本/趣头条.js]运行结束，用时0.075000秒 01:29:31.150/V: 开始运行[/storage/emulated/0/脚本/趣头条.js] 01:29:31.174/E: missing } in compound statement (<趣头条>#34) 01:29:31.175/V:

blackstrike

趣头条太容易封号

mq0072018

blackstrike 发表于 2018-11-19 01:31
趣头条太容易封号

我开始也是抱着试一试的心态，为了怕被封就用了一些随机数，让系统感觉每次按的地方都不一样，用了一个多月了还是没封，反正封了就不玩这个了