dim n,分割账号密码,账号,密码
Call 自动换号()
Function 自动换号()
n = File.ReadLine("/sdcard/misc/1.txt",1)
TracePrint "第一行为:"&n
分割账号密码 = Split(n, "----")
账号 = 分割账号密码(0)
密码 = 分割账号密码(1)
TracePrint "账号="&账号
TracePrint "密码="&密码
/*
Tap 4672,215 //账号框
InputText 账号
Delay 1000
Tap 636,299 //密码框
InputText 密码
Delay 1000
*/
n = File.DeleteLine("/sdcard/misc/1.txt", 1)//删除账号
End Function
/*要使用的时候 ,请复制下面的两个封装函数!
修改 “判断账号被封” 这个函数的找色、找图操作即可。
一般账号被封都会有提示之类的。
根据实际情况进行判断
*/
Function 判断账号被封()
If CmpColorEx("643|289|13A2FD-101010,644|293|009CFF-101010,685|72|666666-101010,697|1246|89837F-101010",0.9) = 1 Then
判断账号被封 = 1
TracePrint "账号已被封--->"
Else
判断账号被封 = 0
TracePrint "账号没被封--->"
End If
End Function
If 判断账号被封() = 1 Then
Call 自动换号()
End If
源码学习
按键精灵