换号思路

“工欲善其事必先利其器”，要想实现换号，那我们需要先来整理下换号的思路。我这里就先列出两种比较常用的换号方法供参考

方法一
先建立账号密码的文档，格式可以是这样：

每行单独存放一个账号和密码，账号密码之间用分隔符“|”分割开。
在读取的时候使用For循环遍历读取出每行账号密码数据，然后进行登录的操作，具体的思路流程如下：

这种方法的好处在于对于新手来说，比较容易理解。但是有一个缺点，就是在无意中停止脚本之后就会重新从第一个账号开始登录，对于调试不是很方便。
方法二
建立两个文本文档，文档1是保持账号密码数据，文档2是用来专门记录需要读取哪个账号的
使用的时候先读取文档2，然后根据具体的数字来决定要读取文档1中的哪行账号。流程图如下：

这个方法的好处在于不用担心中途停止脚本后会影响之前登陆过的账号，并且从结构上来说会更加清晰一些。

代码实现

 

方法一代码

  1. Dim path = “/sdcard/账号.txt”
  2. Dim arr()
  4. arr = File.ReadLines(path)
  5. ‘直接遍历每行账号，每读取一行就执行一次任务
  6. For Each n In arr
  7. text = Split(n, “|”)
  8. 账号 = text(0)
  9. 密码 = text(1)
  10. Call 登录账号()
  11. Call 执行任务()
  12. Next

复制代码

方法二代码

  1. Dim path1 = “/sdcard/账号.txt”
  2. Dim path2 = “/sdcard/记录.txt”
  3. Dim 账号,密码,行
  5. Do
  6. ‘先读取当前需要登录第几行账号
  7. 行 = File.Read(path2)
  8. ‘读取账号、密码
  9. Call 读取账号(path1,cint(行))
  10. Call 登录账号()
  11. ‘登录成功之后行数加1，再次登录时就会自动读取下一个账号
  12. Call File.Write(path2, CInt(行) + 1)
  13. ‘执行游戏中的功能
  14. Call 执行任务()
  15. Loop
  17. Function 读取账号(账号路径,行)
  18. Dim arr(),text()
  19. arr = File.ReadLines(账号路径)
  20. text = Split(arr(行), “|”)
  21. 账号 = text(0)
  22. 密码 = text(1)
  23. End Function

复制代码

 

声明：
本站所有文章，如无特殊说明或标注，均为本站原创发布。
任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。
如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。