按键精灵手机版教程第十八课:自动换号

换号思路

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

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

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

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

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

代码实现

 

方法一代码

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

复制代码

方法二代码

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

复制代码

 

●本文来源互联网及网友投稿,如有侵权请及时联系本站进行删除。
●转载原创文章请保留地址及版权信息,否则侵权必究。
●分享目的仅供大家学习和交流,请不要用于商业用途。
●该资源版权归原著作者所有,请于下载后24小时内删除。
●如有链接无法下载、失效或广告,请联系右侧点击QQ咨询处理。
●本站资源售价只是赞助,收取费用仅维持本站的日常运营所需。
●如遇到加密压缩包,默认解压密码为"fdeer.com",如遇到无法解压的请联系管理员。

飞鹿日志 » 按键精灵手机版教程第十八课:自动换号

发表回复