马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?立即注册
×
本帖最后由 what788 于 2019-11-8 17:25 编辑
需要用到1311小桂哥的jsdvip插件,支持全分辨率的快手极速版,只分享核心内容。是根据定位黄色的圈来进行判断操作是否读完视频,是否需要滑动刷下一个视频。代码内容比较多放附件里了。
[按键精灵] 纯文本查看 复制代码 Import "jsdvip.luae"
If jsdvip.StartServer() Then '启动jsdvip需要购买账号
TracePrint "启动成功"
Else
TracePrint "启动失败"
EndScript
End If
Dim x1,y1,x2,y2
Dim Tab()
For 10
Tab = jsdvip.FindNodeInfo("By.res('com.kuaishou.nebula:id/circular_progress_bar').clazz('android.view.View')","'rect'")//返回数组或null
If Tab Then
TracePrint "节点矩形范围",Tab[1],Tab[2],Tab[3],Tab[4]
x1=cint(Tab[1])
y1=cint(Tab[2])
x2=cint(Tab[3])-3 '右边的超出了重新弄过
y2=cint(Tab[4])-3'右边的超出了重新弄过
Exit For
Else
TracePrint "找不到圈"
End If
Delay 1000
Next
Dim pi=3.1415926
Dim 中心x,中心y,中心坐标x,中心坐标y,圆x,圆y,zhi,sss(89,2)
中心x = (x2 - x1) / 2
中心y = (y2 - y1) / 2
TracePrint "中心x"&中心x&"--中心y"&中心y
中心坐标x = 中心x + x1
中心坐标y = 中心y + y1
TracePrint "中心坐标x"&中心坐标x&"--中心坐标y"&中心坐标y
zhi = 30
For zhi = 1 To 89
圆y = Sin(zhi*pi/180) * 中心x
圆x = Cos(zhi*pi/180) * 中心y
sss(zhi, 1) = 圆x
sss(zhi, 2) = 圆y
Next
Dim 顶上x=cint(中心坐标x)
Dim 顶上y=cint(中心坐标y-中心y)
TracePrint "顶上x:"&顶上x&"-----顶上y:"&顶上y
Dim 底下x = 中心坐标x
Dim 底下y=cint(中心坐标y + 中心y)
TracePrint "底下x:"&底下x&"-----底下y:"&底下y
Dim 左边x = cint(中心坐标x - 中心x)
Dim 左边y = cint(中心坐标y)
TracePrint "左边x:"&左边x&"-----左边y:"&左边y
Dim 右边x = cint(中心坐标x + 中心x)
Dim 右边y=cint(中心坐标y)
TracePrint "右边x:"&右边x&"-----右边y:"&右边y
Dim 右上x=cint(sss(45, 1)+中心坐标x)
Dim 右上y=cint(中心坐标y-sss(45, 2))
TracePrint "右上x:"&右上x&"----右上y:"&右上y
Dim 右下x=cint(sss(45, 1)+中心坐标x)
Dim 右下y=cint(中心坐标y+sss(45, 2))
TracePrint "右下x:"&右下x&"----右下y:"&右下y
Dim 左上x=cint(中心坐标x-sss(45, 1))
Dim 左上y=cint(中心坐标y-sss(45, 2))
TracePrint "左上x:"&左上x&"----左上y:"&左上y
Dim 左下x=cint(中心坐标x-sss(45, 1))
Dim 左下y=cint(中心坐标y+sss(45, 2))
TracePrint "左下x:"&左下x&"----左下y:"&左下y
Do
Dim quan=0
Dim leijia
TracePrint "------------------------"
Dim zhi22
zhi22=查看_黄圈在哪里()
Delay 2000
If zhi22 =null Then
TracePrint "空值"
Else
If cint(zhi22(0)) = -1 Then
TracePrint "值为-1跳过"
Else
leijia=0
dim qian1=cint(zhi22(0))
Dim qian2=cint(zhi22(1))
zhi22 = 查看_黄圈在哪里()
If zhi22 Then
dim qian11=cint(zhi22(0))
Dim qian22=cint(zhi22(1))
If (qian11 <> -1 And qian1 <> -1) Then
If (qian11 = qian1 And qian22 = qian2) Then
TracePrint "滑动!!!"
Call 中幅度滑动()
quan=1
Delay 1000
End If
End If
End If
End If
End If
qian11 = -2
qian22 = -2
qian1 = -2
qian2=-2
If quan = 0 Then
leijia = leijia + 1
TracePrint "时间到!"
If leijia = 5 Then
Call 中幅度滑动()
leijia =0
End If
End If
TracePrint "-----------低-------------"
Loop
|