释放双手-QQ登录脚本

Snipaste_2020-07-22_22-42-32.png

遇到的主要问题是:当登录按钮是一个gif按钮,那么我们可以用多点找色的办法来找到这个按钮,如果一次没有找到,那就再来一次,给个死循环,重复查找该按钮颜色,直到找到则结束循环,点击该按钮

Dim intX,intY
Call 点击登录()
Function 点击登录()
Delay 500
KeepCapture
    FindPic 0,0,0,0,"Attachment:dl.png","050505",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
    TracePrint intX
    TracePrint intY
    TracePrint "找到了"
    Delay 500
    Tap intX, intY
    Delay 500
    Call 激活()
    Else 
    TracePrint "未找到登录"
End If
ReleaseCapture
End Function

Function 激活()
Delay 500
KeepCapture
    FindPic 0,0,0,0,"Attachment:激活账号.png","050505",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
    TracePrint intX
    TracePrint intY
    Delay 500
    For 3
        Tap intX,intY
    Next
    InputText "861479614"
    Call 激活密码()
    Else 
    TracePrint "为找到激活账号"
End If
ReleaseCapture
End Function

Function 激活密码()
Delay 500
KeepCapture
    FindPic 0,0,0,0,"Attachment:激活2.png","050505",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
    TracePrint intX
    TracePrint intY
    Delay 500
    For 3
        Tap intX,intY
    Next
    InputText "xxj666688"
    Delay 500
    Call 进去()
    Else 
    TracePrint "未找到激活密码"
End If
ReleaseCapture
End Function

Function 进去()
    Delay 500
    Do
        FindMultiColor 0,0,0,0,"EE800F","-26|34|F8AD0B,40|36|FFA040",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
    TracePrint intX
    TracePrint intY
    Delay 500
    Tap intX, intY
    Exit Do
    Else 
    TracePrint "未找到"
    Delay 500
    Call 点击登录()
End If
    Loop
End Function