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