【Android】趣头条自动看视频新闻代码
本帖最后由 wushaominkk 于 2018-11-19 23:14 编辑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)=FalseThen
次数 = 次数 + 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 zs9527 发表于 2018-11-19 07:26
var i="";
var y=470
这句式什么意思 i代表什么意思470是刷新吗
不是，接触的语言太多了 平时用的又不多 所以忘了哪些要先定义 哪些可以复制的时候定义，所以就在前面直接先定义了 以免出错
y=470是在纵坐标上弄了个if判断 一次点上面的视频下次再点下面的视频
我这个是先点下面的视频再点上面的视频，都一样的索性就没调它 mq0072018 发表于 2018-11-19 02:59
我开始也是抱着试一试的心态，为了怕被封就用了一些随机数，让系统感觉每次按的地方都不一样，用了一个多 ...
兄弟 安卓的话要怎么用才可以 怎么看？没有看明白哦 fuli2018 发表于 2018-11-19 00:45
怎么看？没有看明白哦
模仿人工 操作点屏幕那种看 不是后台自动运行 后台自动赚钱了？ wangqiustc 发表于 2018-11-19 01:04
后台自动赚钱了？
不是后台运行，就是模仿人工点击运行。后台那种自动的我怕封号 怎么改分辨率 ------------ 运行结束，用时0.075000秒 01:29:31.150/V: 开始运行 01:29:31.174/E: missing } in compound statement (<趣头条>#34) 01:29:31.175/V: 趣头条太容易封号 blackstrike 发表于 2018-11-19 01:31
趣头条太容易封号
我开始也是抱着试一试的心态，为了怕被封就用了一些随机数，让系统感觉每次按的地方都不一样，用了一个多月了还是没封，反正封了就不玩这个了{:1_886:}