Sub 读取账号()
rem 读账号
m=0
n=0
account=File.Readlines("/sdcard/account.txt")
If account(0)=null Then
ShowMessage "SD卡根目录下没有账号文件！"
Delay 1000
Exit Sub
end if
// TracePrint account(0)
Do until account(m)=null
m=m+1
loop
FinishAcc=File.Readlines("/sdcard/finishacc.txt")
Do until FinishAcc(n)=null
n=n+1
loop
If m=n
File.write "/sdcard/finishacc.txt",""
goto 读账号
end if
ShowMessage "读取账号完毕"
RunAcc= Account(n)
RunAccP= "****"
FinishAcc(n)=Account(n)
File.writelines "/sdcard/finishacc.txt",FinishAcc
End Sub