轻松实现自动换号
本文由按键学院提供技术支持
按键学院技术交流①群（1群）：547563540（开放中）
按键学院技术交流②群（2群）：465560580（开放中）
按键学院技术交流③群（3群）：714719015（开放中）
安卓按键精灵除了能和PC按键精灵一样实现挂机自动操作的功能外，他对于文件的读写功能也是棒棒哒！利用他的文件读写功能，我们就可以实现游戏自动换号，批量换号挂机神马的简直轻松搞定。 |
- 您所在的用户组无法下载或查看附件
换号思路“工欲善其事必先利其器”，要想实现换号，那我们需要先来整理下换号的思路。我这里就先列出两种比较常用的换号方法供参考 |
方法一先建立账号密码的文档，格式可以是这样：
- 您所在的用户组无法下载或查看附件
每行单独存放一个账号和密码，账号密码之间用分隔符“|”分割开。
在读取的时候使用For循环遍历读取出每行账号密码数据，然后进行登录的操作，具体的思路流程如下：
- 您所在的用户组无法下载或查看附件
这种方法的好处在于对于新手来说，比较容易理解。但是有一个缺点，就是在无意中停止脚本之后就会重新从第一个账号开始登录，对于调试不是很方便。方法二建立两个文本文档，文档1是保持账号密码数据，文档2是用来专门记录需要读取哪个账号的
使用的时候先读取文档2，然后根据具体的数字来决定要读取文档1中的哪行账号。流程图如下：
- 您所在的用户组无法下载或查看附件
这个方法的好处在于不用担心中途停止脚本后会影响之前登陆过的账号，并且从结构上来说会更加清晰一些。代码实现
[hide]
方法一代码
- Dim path = "/sdcard/账号.txt"
- Dim arr()
- arr = File.ReadLines(path)
- '直接遍历每行账号，每读取一行就执行一次任务
- For Each n In arr
- text = Split(n, "|")
- 账号 = text(0)
- 密码 = text(1)
- Call 登录账号()
- Call 执行任务()
- Next
方法二代码
- Dim path1 = "/sdcard/账号.txt"
- Dim path2 = "/sdcard/记录.txt"
- Dim 账号,密码,行
- Do
- '先读取当前需要登录第几行账号
- 行 = File.Read(path2)
- '读取账号、密码
- Call 读取账号(path1,cint(行))
- Call 登录账号()
- '登录成功之后行数加1，再次登录时就会自动读取下一个账号
- Call File.Write(path2, CInt(行) + 1)
- '执行游戏中的功能
- Call 执行任务()
- Loop
- Function 读取账号(账号路径,行)
- Dim arr(),text()
- arr = File.ReadLines(账号路径)
- text = Split(arr(行), "|")
- 账号 = text(0)
- 密码 = text(1)
- End Function
闽公网安备 35010002000112号