• 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:2021-12-03

按键精灵安卓版
立即下载

软件版本:4.0.2
软件大小:45M
更新时间:2025-07-01

按键精灵iOS版
立即下载

软件版本:2.3.3
软件大小:29.2M
更新时间:2025-07-01

按键手机助手
立即下载

软件版本:4.3.0
软件大小:242M
更新时间:2025-07-01

快捷导航

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

返回列表 «7879808182838485» / 129
发新话题 回复该主题

[按键精灵安卓版] 用安卓按键来实现自动换号 -【201509期】 [复制链接]

1621#

一大堆的错误,完全不能用,新手学这个-完全搞不清是什么鬼东西

1622#

Call FileEx.Write("/sdcard/MobileAnjian/anjian.txt","我爱按键精灵")

1623#

谢谢分享!!!!!!

1624#

学习了

1625#

好东西6666666666666

1626#

刚好需要,学习一下。

1627#

学习学习看看

1628#

谢谢分享,正是我想要找的内容

1629#

感谢楼主

1630#

谢谢分享

1631#

该用户帖子内容已被屏蔽

1632#

厉害,牛人

1633#

看下学习下

1634#

这个需要好好学习

1635#

顶一下,顶一下

1636#

回复 1楼quitout的帖子

有个不足之处 变量 行 数在 DO 循环里 值是不停地增加 如果只有2个账号去循环第2次 行的值 就是3了 那么你还能在数组里读出arr(3)账号跟密码? 2个账号 在数组中 代表 arr(0)="第一个账号" arr(1)="第2个账号" 所以下面的 行 = 几个账号的时候 就要删除 a2 = "/sdcard/记录.txt" 这里的数值了

1637#

回复 0楼ssgzs的帖子

Dim a1 = "/sdcard/账号.txt"
Dim a2 = "/sdcard/记录.txt"

Dim 账号,密码,行,几个账号,i
几个账号 = CInt(File.LinesNumber(a1))
TracePrint 几个账号
//EndScripta
i = 0
Do
I = i + 1
TracePrint "循环第" & i & "遍"
Delay 3000
'先读取当前需要登录第几行账号
行 = CInt(File.Read(a2))
If 行 >= 几个账号 Then
TracePrint "执行了"
Call File.DeleteLine(a2, 1)
Delay 4000
行 = CInt(File.Read(a2))
Else
TracePrint 行
End If

Call 读取账号(a1,cint(行))
TracePrint 账号
TracePrint 密码


'登录成功之后行数加1,再次登录时就会自动读取下一个账号
Call File.Write(a2, CInt(行) + 1)
'执行游戏中的功能
TracePrint"执行任务"
Loop

Function 读取账号(账号路径,行)
Dim arr(),text()
arr = File.ReadLines(账号路径)
text = Split(arr(行), "|")
账号 = text(0)
密码 = text(1)
End Function

1638#

学习下代码 0 0

1639#

学习学习

1640#

阿斯顿飞凤飞飞飞凤飞飞凤飞飞

发新话题 回复该主题