按键精灵-实现自动刷视频

按键精灵-实现自动刷视频

按键精灵官网:http://www.anjian.com/

手机助手下载:http://download.myanjian.com/

使用“按键精灵-手机助手”版本,进行安卓调试。

注:安卓手机精灵需安卓手机需要rootroot方式建议:TWRP+Magisk

TWRP:https://twrp.me/Devices/

Magisk:https://github.com/topjohnwu/Magisk/releases

历时1天半完善脚本,适配所有屏幕尺寸,随机观看6~16秒。

//实现功能:
//1.适配所有屏幕
//2.防检测:区域随机从下往上滑,且滑动延迟随机
//3.防检测:区域随机双击点赞,且点赞双击浮动随机、双击延迟随机
//4.防检测:随机点赞,以播放时长为基数,且点赞视频延时一倍时长
//5.防检测:每次打开app观看视频数量随机
//6.支持多个app连续刷视频
//7.随机观看6~16秒
//8.提示剩余数量、播放时长、滑动时长
//9.提示app总播放时长

/////////////唯一需要修改app值,可根据自己手机app增加!//////////////
//定义app(默认app顺序:刷宝、点淘、快手极速版、抖音极速版)
dim app = array("com.jm.video", "com.taobao.live","com.kuaishou.nebula","com.ss.android.ugc.aweme.lite")




///////////////////////可改可不改,不影响使用////////////////////////
///////////////////////可改可不改,不影响使用////////////////////////
///////////////////////可改可不改,不影响使用////////////////////////

//定义最多视频个数和最少视频个数,进行随机(默认最多50个,最少30个)
Dim nummax,nummin
nummax=50
nummin=30

//定义点赞视频时长(默认随机出12~14秒视频进行点赞)
Dim langmax,langmin
langmax = 14000
langmin = 12000

////////////////////////下面不需要修改内容////////////////////////////
////////////////////////下面不需要修改内容////////////////////////////
////////////////////////下面不需要修改内容////////////////////////////
////////////////////////下面不需要修改内容////////////////////////////

//遍历app数组
For Each value In app
TracePrint "---------------------"
	app = value
TracePrint "app当前值"
TracePrint app
TracePrint "---------------------"

//定义初始已执行次数(已播放数量)
Dim number=0

//定义视频随机个数
Dim sprndnum=Int(((nummax-(nummin)+1) * Rnd()) + (nummin))
TracePrint "视频随机个数"
TracePrint sprndnum

//先关闭,再打开app,防止重复后台
KillApp app
KeyPress "Home"
Delay 2000
RunApp app
ShowMessage "正在打开" & app
Delay 5000
ShowMessage "正在打开" & app
Delay 5000
ShowMessage "正在打开" & app
Delay 5000

//获取屏幕分辨率
Dim screenX,screenY
screenX = GetScreenX()
screenY = GetScreenY()
TracePrint "屏幕分辨率"
TracePrint screenX,screenY


//定义纵向滑动区间
//滑动起点
Dim x1,y1
x1=screenX/2
y1=screenY/5*4
//滑动终点
Dim x2,y2
x2=screenX/2
y2=screenY/5

//定义点赞区间
Dim dianzanx,dianzany
dianzanx= screenX/2
dianzany= screenY/3

//定义播放总时长
Dim langlang

For sprndnum

//定义浮动漂移范围随机数
//大范围浮动
Dim fdrnd=Int(((100-(-100)+1) * Rnd()) + (-100))
//小范围浮动
Dim fdrnd1=Int(((10-(-10)+1) * Rnd()) + (-10))

//点赞时长300~150毫秒
Dim dzlangrnd=Int(((200-(100)+1) * Rnd()) + (100))

//滑动时长600~300毫秒
Dim hdlangrnd=Int(((600-(300)+1) * Rnd()) + (300))

//视频时长16000毫秒~6000毫秒
Dim splangrnd=Int(((16000-(6000)+1) * Rnd()) + (6000)) 

//随机滑动浮动坐标
Dim hdrndx1,hdrndy1,hdrndx2,hdrndy2
hdrndx1 =x1 + fdrnd
hdrndy1 =y1 + fdrnd
hdrndx2 =x2 + fdrnd
hdrndy2 =y2 + fdrnd

//双击点赞
dim dzrndx1,dzrndy1,dzrndx2,dzrndy2
dzrndx1 = dianzanx + fdrnd
dzrndy1 = dianzany + fdrnd 
dzrndx2 = dzrndx1 + fdrnd1
dzrndy2 = dzrndy1 + fdrnd1

//已播放视频数量
number=number+1
TracePrint "================="
TracePrint "随机视频"
TracePrint sprndnum
TracePrint "已播放视频"
TracePrint number
TracePrint "剩余视频"
TracePrint sprndnum-number

//////////////////////流程开始
//随机滑动
TouchDown hdrndx1, hdrndy1, 1
TouchMove hdrndx2, hdrndy2, 1, hdlangrnd
TouchUp 1
TracePrint "滑动坐标"
TracePrint hdrndx1, hdrndy1,hdrndx2, hdrndy2
TracePrint "滑动时长"
TracePrint hdlangrnd

//定义点赞
//播放时长符合14000~12000内随机点赞
If langmax > splangrnd > langmin Then 
	ShowMessage "随机点赞,剩余" & sprndnum - number & "个,播放时长" & splangrnd * 2 /1000 & "秒,滑动时长" & hdlangrnd /1000& "秒"
	TracePrint "-----------------"
	TracePrint "符合条件,执行点赞"
	TracePrint "视频时长(秒)"
	TracePrint splangrnd*2/1000
	TracePrint "滑动时长(秒)"
	TracePrint hdlangrnd/1000
	TracePrint "两次点赞坐标"
	TracePrint dzrndx1,dzrndy1
	TracePrint dzrndx2,dzrndy2
	TracePrint "两次点击间隔"
	TracePrint dzlangrnd
	TracePrint "-----------------"
	//视频时长
	Delay splangrnd
	//点赞动作
	Tap dzrndx1,dzrndy1
	Delay dzlangrnd
	Tap dzrndx2,dzrndy2
    //点赞视频,双倍播放时长
	Delay splangrnd
Else 
 	//视频时长
 	ShowMessage "剩余" & sprndnum - number & "个,播放时长" & splangrnd / 1000 & "秒,滑动时长" & hdlangrnd / 1000 & "秒"
	Delay splangrnd
	

End If
langlang = langlang + splangrnd

Next
TracePrint "已观看时长(秒)"
TracePrint langlang

//观察总时长提醒
ShowMessage "已观看时长" & langlang / 1000 & "秒"
Delay 1000
ShowMessage "已观看时长" & langlang / 1000 & "秒"
Delay 1000
ShowMessage "已观看时长" & langlang / 1000 & "秒"
Delay 1000
ShowMessage "已观看时长" & langlang / 1000 & "秒"
Delay 1000
ShowMessage "已观看时长" & langlang / 1000 & "秒"
Delay 1000

//关闭app
KeyPress "Home"
Delay Int(((2000)+1000) * Rnd()) + (1000))
KillApp app

Next

下面是百度了一天资料,写的脚本,比较粗糙,做个记录,可根据自己手机分辨率重新定位坐标(滑动坐标、点赞坐标),适合新手查看

刷宝视频app实现功能:随机观看时长(5~16秒)、随机从下往上滑切换视频、随机点赞(12~14秒范围,点赞视频观看时长延长1倍)

//返回home键
KeyPress "Home"
Delay 5000

RunApp "com.jm.video"
ShowMessage "正在打开刷宝短视频"

Delay 15000


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

zm.RndInitSeed() //初始化随机种子,只需执行一次,也可以使用zm.Init()初始化


//循环刷视频次数
For 100

// 变量 xxx=滑动起点,下坐标
// 变量 yyy=滑动起点,下坐标
// 变量 xxx1=滑动结束,上坐标
// 变量 yyy1=滑动结束,上坐标

// 变量 nnn=执行次数,第几个视频
// 变量 ttt=观看时长(毫秒)
// 变量 ht=滑动时长(毫秒)
// 变量 gt=观看时长(秒)

// 变量 dzx=点赞坐标
// 变量 dzy=点赞坐标



Dim xxx,yyy,xxx1,yyy1,nnn,ttt,ht,gt,dzx,dzy,ooo

xxx = Int(((320 - 220 + 1) * Rnd()) + 220)
yyy = Int(((1010 - 980 + 1) * Rnd()) + 980)
xxx1 = Int(((400 - 300 + 1) * Rnd()) + 300)
yyy1 = Int(((260 - 180 + 1) * Rnd()) + 180)

nnn = nnn+1
ttt = Int(((16000 - 5000 + 1) * Rnd()) + 5000)
ht = Int(((860 - 480 + 1) * Rnd()) + 380)
gt = ttt/1000

dzx 	=Int (((671 - 629 + 1) * Rnd()) + 629)
dzy 	=Int (((666 - 615 + 1) * Rnd()) + 615)
  
//以下是多点触控的例子
TouchDown xxx,yyy, 1

TouchMove xxx1,yyy1, 1, ht

TouchUp 1//松开弹起ID=1的触点


//当前执行点赞

If 14000>ttt>12000 Then
    TracePrint "条件判断符合被通过!执行点赞"
    ShowMessage "条件判断符合被通过!执行点赞"
	//点赞时间点为观看时长减去滑动时间
	Delay ttt-ht
	Tap dzx,dzy


Traceprint xxx,yyy,xxx1,yyy1
Traceprint  "---------------"
Traceprint "当前执行次数"
Traceprint nnn
Traceprint ""

Traceprint "观看时长"
Traceprint gt
Traceprint ""

Traceprint "滑动时长"
Traceprint ht
Traceprint ""

Traceprint  "---------------"

ShowMessage "当前第"&nnn&"个视频,观看时长" & gt & "秒x2倍,滑动时长"& ht&"毫秒"
Delay ttt


ELSE


Traceprint xxx,yyy,xxx1,yyy1
Traceprint  "---------------"
Traceprint "当前执行次数"
Traceprint nnn
Traceprint ""

Traceprint "观看时长"
Traceprint gt
Traceprint ""

Traceprint "滑动时长"
Traceprint ht
Traceprint ""

Traceprint  "---------------"

ShowMessage "当前第"&nnn&"个视频,观看时长" & gt & "秒,滑动时长"& ht&"毫秒"
Delay ttt

End If


Next



Delay 5000
ShowMessage "正在关闭app"

KillApp "com.jm.video"


good good study, day day up!

发表评论

textsms
account_circle
email

按键精灵-实现自动刷视频
按键精灵官网:http://www.anjian.com/ 手机助手下载:http://download.myanjian.com/ 使用“按键精灵-手机助手”版本,进行安卓调试。 注:安卓手机精灵需安卓手机需要root,root…
扫描二维码继续阅读
2021-06-23