好友
阅读权限10
听众
最后登录1970-1-1
|
本帖最后由 sbflflilei 于 2021-10-31 20:16 编辑
Dim intX,intY,挂机,R,G,B,区域1,脚本,X1,X2
挂机 = "开始"
Thread.SetShareVar "重启", "否"
脚本=Thread.Start(检测,"检测开始")
Do Until (挂机 = "停止")
delay 1000
TracePrint 挂机
loop
Sub 检测(调试)
TracePrint 调试
Dim 不动=0,不动1,不动2,包名
Do
Delay 500
If 不动 > 10 Then
不动=0
End If
FindPic 0,0,1024,768,"Attachment:重新登录.png","000000",0, 0.9, intX, intY
If intX > 0 And intY > 0 Then
Delay 500
Tap intX, intY
Call 登录()
End If
不动1 =GetPixelColor(1185,616)
Delay 500
不动2 =GetPixelColor(1185,616)
If 不动1 = "010A0E" and 不动1 = 不动2 Then
不动 = 不动 + 1
If 不动 = 10 Then
Call 登录()
End If
Else
不动 =0
End If
包名 = Sys.GetFront()
If 包名 <> "com.lhydbbycz.easygame.papa" Then
Call 登录()
End If
Sys.ClearMemory
Loop
End Sub
********************以上是大致的源码******************
用助手调试是正常的,手机直接用就这样 |
|