回复 0楼ssgzs的帖子Dim a1 = "/sdcard/账号.txt"
Dim a2 = "/sdcard/记录.txt"
Dim 账号,密码,行,几个账号,i
几个账号 = CInt(File.LinesNumber(a1))
TracePrint 几个账号
//EndScripta
i = 0
Do
I = i + 1
TracePrint "循环第" & i & "遍"
Delay 3000
'先读取当前需要登录第几行账号
行 = CInt(File.Read(a2))
If 行 >= 几个账号 Then
TracePrint "执行了"
Call File.DeleteLine(a2, 1)
Delay 4000
行 = CInt(File.Read(a2))
Else
TracePrint 行
End If
Call 读取账号(a1,cint(行))
TracePrint 账号
TracePrint 密码
'登录成功之后行数加1,再次登录时就会自动读取下一个账号
Call File.Write(a2, CInt(行) + 1)
'执行游戏中的功能
TracePrint"执行任务"
Loop
Function 读取账号(账号路径,行)
Dim arr(),text()
arr = File.ReadLines(账号路径)
text = Split(arr(行), "|")
账号 = text(0)
密码 = text(1)
End Function