按键精灵脚本每次运行时怎么读取txt内的账号跟密码,具体如下:

按键精灵脚本每次运行时怎么读取txt内的账号跟密码,具体如下:,第1张

这个方案我有两种思路,第一种思路是你像你这样所说的,但是这种有一个缺点就是你读取了这一行的内容在把它删除掉,日后你在观看以前的数据删除了这一点就不够友好。第二种方案采用两个数组,第一个数组读取账号密码,第二个数组记录需要读取哪个账号。

第一种方案: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,求大神帮忙,求解、求按键精灵脚本,能在网页中输入递增数字等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!

欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/web/9664441.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-04-30
下一篇 2023-04-30

发表评论

登录后才能评论

评论列表(0条)

保存