• 新浪微博:
  • 腾讯微博:
  • 微信 :
按键精灵电脑版
立即下载

软件版本:2014.05
软件大小:21.6M
更新时间:07-04

按键精灵安卓版
立即下载

软件版本:3.2.9
软件大小:62.5M
更新时间:12-07

按键精灵iOS版
立即下载

软件版本:1.3.1
软件大小:29.2M
更新时间:09-29

按键精灵Mac版
立即下载

软件版本:1.1.0
软件大小:12.3M
更新时间:12-29

快捷导航

登录 后使用快捷导航
没有帐号? 注册

登录 注册
发新话题 回复该主题

[已回复] 【求助】登入帐号的疑问~求各位大神啦! [复制链接]

1#


我在 文档tx 里写了 一共10个帐号密码。现在 我希望 脚本 只读取 前5个帐号 反复循环登入 应该怎么写啊 请大神给个例子,小弟感激不尽!
Dim 路径 = "/sdcard/tx.txt"
arr = File.ReadLines(路径)
do
For Each n In arr
Call 游戏开始()

text = Split(n, "|")
账号 = text(0)
密码 = text(1)



Call 登录账号()
Call 执行任务()
Call 主程序()

Next

loop

本主题由 版主 gljxsd 于 2017/12/8 2:04:59 执行 主题分类 操作
2#



以建会友,共同学习,共同进步。无偿帮助解答各种简单小问题。

3#

  1. Dim 路径 = "/sdcard/tx.txt"
  2. arr = File.ReadLines(路径)
  3. do
  4. For i=0 to 4
  5. Call 游戏开始()
  6. text = Split(arr(i), "|")
  7. 账号 = text(0)
  8. 密码 = text(1)
  9. Call 登录账号()
  10. Call 执行任务()
  11. Call 主程序()
  12. Next
  13. loop
复制代码

按键精灵安卓版编写脚本零基础课程【视频教程】
公众号:3分钟学堂
4#

回复 3楼microgly的帖子

大神 我试了下 出问题了 不输入帐号和密码 显示 null

5#

回复 2楼aboutbook的帖子

大神 我是新手 没看懂 给写个例子 可以吗 求求你了!无比感激!

6#

  1. /*txt文件格式
  2. 账号0|0
  3. 账号1|1
  4. 账号2|2
  5. 账号3|3
  6. 账号4|4
  7. 账号5|5
  8. 账号6|6
  9. 账号7|7
  10. 账号8|8
  11. */

  12. Dim path=GetTempDir()&"anjian.txt" //设定文件存储路径根据存放路径需要自己设置

  13. /* 创建文本内容↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓
  14. Dim message=array("账号0|0","账号1|1","账号2|2","账号3|3","账号4|4","账号5|5","账号6|6","账号7|","账号8|8")
  15. Call File.WriteLines (path,message) //将内容写入文本文件
  16. */

  17. Dim account,userName, passWord
  18. For i = 1 To 3// 提取3行账号信息
  19. account = File.Readline(path, i) //读取文本的第 i 行内容
  20. account = Split(account,"|")//分割用户名和密码字符串
  21. userName = account(0) //用户名
  22. passWord = account(1) //用户密码
  23. TracePrint "第"&i&"个用户名:" & userName," / 用户密码:"& passWord
  24. Next
复制代码

最后编辑aboutbook 最后编辑于 2017-12-07 15:52:13

以建会友,共同学习,共同进步。无偿帮助解答各种简单小问题。

7#

您好, 不想读取全部 就不要用 For Each 命令. 建议改为 For i = 0 To 4 这样的写法

发新话题 回复该主题