按键精灵_循环登陆账号

Dim p=ReadConfig("p",1)'放在脚本第一行
Dim 账号文本="/sdcard/账号.txt",分割符号=","
Call 登陆账号(账号文本,分割符号)'调用函数

Sub 登陆账号(文本路径,分割符号)
    Dim 账号
    Do'判断有没有账号
        账号 = File.ReadLine(文本路径, p):账号 = Split(账号, 分割符号)
        p = p + 1 : WriteConfig "p", p
        If Len(账号(1)) < 3 Then 
            账号 = File.ReadLine(文本路径, p)
            账号 = Split(账号, 分割符号)
            If Len(账号(1)) < 3 Then 
                TracePrint "账号读取完毕，重新开始。"
                p = 1 : WriteConfig "p", p
            Else  : p = p + 1 : WriteConfig "p", p : Exit Do 
            End If 
            Else  Exit Do 
        End If     
    Loop
    Tap x,y'账号输入框坐标
    Delay 500
    For 20 : KeyPress "Del" : Next
    Delay 500
    InputText 账号(0)'账号
    Delay 500
    Tap x,y'密码输入框坐标
    Delay 500
    For 20 : KeyPress "Del" : Next
    Delay 500
    InputText 账号(1)'密码
    Delay 500
    //如果要加点击登陆的 自己加
End Sub