安卓按键精灵脚本命令-顺序UID登录

Function 顺序UID()
   Dim lines,content,Row
    Row = file.linesnumber(用户路径)  '计算用户路径总数
    lines=File.Readline(用户关注记录, 1) '找到记录 
    If Row < CInt(lines) Then 
    ms "用户关注关键词用完了.."
    Delay 1000
    zm.FileWrite 用户关注记录,1'清空记录
     Delay 1000
    EndScript
    Else
    content = File.ReadLine(用户路径, CInt(lines))
    TracePrint content
    Delay 2000
    InputText content
     ms "输入.."&lines  
    lines = CInt(lines) + 1
//     TracePrint lines
//    Call File.WriteLine(用户关注记录, 1, lines)
    zm.FileWrite 用户关注记录,lines'清空记录
    TracePrint File.Read(用户关注记录) 
    End If
End Function