这个方案我有两种思路,第一种思路是你像你这样所说的,但是这种有一个缺点就是你读取了这一行的内容在把它删除掉,日后你在观看以前的数据删除了这一点就不够友好。第二种方案采用两个数组,第一个数组读取账号和密码,第二个数组记录需要读取哪个账号。
第一种方案:Dim 路径,行数,账号,密码,分割内容,内容
路径="/sdcard/MobileAnjian/anjiantxt"
Call FileWrite(路径,"3057531662----dsa1475575\n306696547----lfd86876876")
行数 = filelinesnumber(路径)
For 行数
内容=FileReadLine(路径,1)
分割内容=Split(内容,"----")
账号 = 分割内容(0)
TracePrint 账号
密码 = 分割内容(1)
TracePrint 密码
FileDeleteLine(路径,1)
Next
第二种方案
Dim path1 = "/sdcard/账号txt"
Dim path2 = "/sdcard/记录txt"
Dim 账号,密码,行
Do
'先读取当前需要登录第几行账号
行 = FileRead(path2)
'读取账号、密码
Call 读取账号(path1,cint(行))
Call 登录账号()
'登录成功之后行数加1,再次登录时就会自动读取下一个账号
Call FileWrite(path2, CInt(行) + 1)
'执行游戏中的功能
Call 执行任务()
Loop
Function 读取账号(账号路径,行)
Dim arr(),text()
arr = FileReadLines(账号路径)
text = Split(arr(行), "|")
账号 = text(0)
密码 = text(1)
End Function
//1模拟按键(keypress)功能实现[输出01~100]
for i=7 to 16//键值7对应0,16对应9
for j=7 to 16
keypress i
keypress j
keypress "," //用逗号分隔
next
next
keypress 8:keypress 7:keypress 7//输出1 0 0
//2inputtext功能实现
for i=1 to 100
inputtext i
inputtext ","//用逗号分隔
next
//3手动输入第三方输入法键盘数字键坐标
dim xy=array(数字0的x坐标,数字0的y坐标,1的x,1的y[省略])
for i=0 to 9
for j=0 to 9
tap(xy(i),xy(i))
tap(xy(j),xy(j))
next
next
你描述的有问题啊!是一次输入两组数字还是一组
下面是按照我的理解来写的按键8的源码,每次输入一组数字,具体情况你自己改下
Xa = : Ya =
Xb = : Yb =
j = 123456789
i=0
For 1000
k = j 1000 +i
MoveTo Xa, Ya
LeftClick 1
Delay 1000
MoveTo Xb, Yb
LeftClick 1
Delay 1000
SayString k
KeyPress "Enter", 1
i=i+1
Delay 1000
Next//按键7就用end for
以上就是关于按键精灵脚本每次运行时怎么读取txt内的账号跟密码,具体如下:全部的内容,包括:按键精灵脚本每次运行时怎么读取txt内的账号跟密码,具体如下:、[image]30 用按键精灵脚本在手机上用数字键盘依次自动输入数字1~100,求大神帮忙,求解、求按键精灵脚本,能在网页中输入递增数字等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)