[教程源码] 快手极速版智能刷金币脚本

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