安卓按键:读取txt内容并遍历出来 并且带有记忆功能的例子

本文介绍了一种自动化脚本的设计思路,该脚本能够循环读取账号文件中的信息,并实现登录功能。它能检测账号文件的变化,并从上次中断的位置继续执行,支持多种错误处理。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

//例子5:一个完整的读取txt内容循环读取出每行内容的结构 可以理解为循环帐号登录的结构 自己会检测账号文件是否发生变化 发生了变化从第一个位置开始 没变化则从脚本配置记录的位置开始

Dim 指定的起始记录,脚本记录账号,脚本记录密码,脚本记录行数,当前账号文件全部内容,当前账号文件全部内容数组

Dim 文件读取结果,本行内容,当前行数

 

//判断从哪行开始

指定的起始记录=0

//脚本记录的是 执行到的那个记录的 账号和密码 还有所在的行数

脚本记录账号=ReadConfig("账号","",true)

脚本记录密码=ReadConfig("密码","",true)

脚本记录行数=ReadConfig("行数","",true)

      

当前账号文件全部内容=""

当前账号文件全部内容 = Trim(File.Read(账号文件路径))

当前账号文件全部内容数组 = ""

当前账号文件全部内容数组=file.ReadLines(账号文件路径)

 

      

If Trim(脚本记录账号) = "" or Trim(脚本记录密码) = "" or Trim(脚本记录行数) = "" Then

Call show("起始记录是第一条")

Delay 500

指定的起始记录 = 0

ElseIf InStr(1, 当前账号文件全部内容, 脚本记录账号 & "----" & 脚本记录密码) < 1 Then //判断账号文件里面是否有那个账号密码组

Call show("起始记录是第一条")

Delay 500

指定的起始记录 = 0

ElseIf not IsNumeric(Trim(脚本记录行数)) or CInt(Trim(脚本记录行数)) < 0 Then

Call show("起始记录是第一条")

Delay 500

指定的起始记录 = 0    

ElseIf UTF8.InStr(1, Trim(当前账号文件全部内容数组(CInt(脚本记录行数))), 脚本记录账号 & "----" & 脚本记录密码) < 1 Then

Call show("文件内容变动 起始记录是第一条 ")

Delay 500

指定的起始记录 = 0

      

Else     

Call show("起始记录是第["& cstr(指定的起始记录+1) &"]")

Delay 1000

指定的起始记录 = CInt(Trim(脚本记录行数))

End If

 

文件读取结果 = File.ReadLines(账号文件路径)

Call show("本次账号遍历开始 起点是:" & CStr(指定的起始记录) & ",终点:" & CStr(UBOUND(文件读取结果)))

Delay 500

 

 

//二 遍历账号数组 开始循环执行 (1)遍历到最后停止即可 无需 (2)依然需要记忆功能

For i = 指定的起始记录 To UBOUND(文件读取结果)

//为了避免空值

If Trim(文件读取结果(i)) = "" Then

goto 循环结尾

End If

本行内容 = ""

错误代码 = 0

本行内容=Trim(文件读取结果(i))

当前行数 = i

TracePrint 本行内容

brr = Split(本行内容, "----")

当前账号 = trim(brr(0))

 

当前密码 = Trim(brr(1))

 

 

 

//把行数 账号密码写入到配置文件

WriteConfig "账号",当前账号,true

WriteConfig "密码", 当前密码, true

WriteConfig "行数", CStr(当前行数), true

 

当前状态 = Trim(brr(2))

If 当前状态 = "提交成功" Then

      

ElseIf 当前状态 = "验证成功" Then

 

ElseIf 当前状态 = "永久封禁" Then

Else

      

Call show("[" & 当前账号 & "] 开始流程,是第[" & CStr(当前行数 + 1) & "]个账号")

Delay 1000

      

 

      

Call show("信息写入")

Delay 200

//这个是针对各种错误代码 进行的处理部分

If 错误代码 = 0 Then

Call 修改账号当前状态(本行内容,当前账号&"----"&当前密码&"----提交成功",账号文件路径)

 

ElseIf 错误代码 = 5 Then

ElseIf 错误代码 = 6 Then

      

ElseIf 错误代码 = 8 Then

ElseIf 错误代码 = 9 Then

ElseIf 错误代码 = 15 Then

ElseIf 错误代码 = 16 Then

Call 修改账号当前状态(本行内容,当前账号&"----"&当前密码&"----验证成功",账号文件路径)

      

// 17//1.重复写入账号密码依然无法登录

ElseIf 错误代码 = 17 Then

      

ElseIf 错误代码 = 20 Then

//错误代码=40

ElseIf 错误代码 = 40 Then

Call 修改账号当前状态(本行内容,当前账号&"----"&当前密码&"----永久封禁",账号文件路径)

      

Else

End If

      

      

End If

 

 

 

Rem 循环结尾

Delay 50

Next

 

Call show("本次账号循环结束 重置起始位置")

WriteConfig "账号","",true

WriteConfig "密码", "", true

WriteConfig "行数","",true

Delay 500

 

 

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值