老马黑科技
//==============================================================================
Dim path = "/sdcard/账号.txt"
Dim arr()
arr = File.ReadLines(path)
'直接遍历每行账号，每读取一行就执行一次任务
For Each n In arr
text = Split(n, "|")
账号 = text(0)
密码 = text(1)
Call 登录账号()
Call 执行任务()
Next
Dim path = "/sdcard/账号.txt"
Dim arr()
arr = File.ReadLines(path)
'直接遍历每行账号，每读取一行就执行一次任务
For Each n In arr
text = Split(n, "|")
账号 = text(0)
密码 = text(1)
Call 登录账号()
Call 执行任务()
Next
Dim path = "/sdcard/账号.txt" Dim arr() arr = File.ReadLines(path) '直接遍历每行账号，每读取一行就执行一次任务 For Each n In arr text = Split(n, "|") 账号 = text(0) 密码 = text(1) Call 登录账号() Call 执行任务() Next
//=====================================
Dim path1 = “/sdcard/账号.txt”
Dim path2 = “/sdcard/记录.txt”
Dim 账号,密码,行
Do
‘先读取当前需要登录第几行账号
行 = File.Read(path2)
‘读取账号、密码
Call 读取账号(path1,cint(行))
Call 登录账号()
‘登录成功之后行数加1，再次登录时就会自动读取下一个账号
Call File.Write(path2, CInt(行) + 1)
‘执行游戏中的功能
Call 执行()
Loop
Function 读取账号(账号路径,行)
Dim arr(),text()
arr = File.ReadLines(账号路径)
text = Split(arr(行), “|”)
账号 = text(0)
密码 = text(1)
End Function
//=====================================
Dim p=ReadConfig(“p”,1)’放在脚本第一行
Dim 账号文本=”/sdcard/账号.txt”,分割符号=”,”
Call 登陆账号(账号文本,分割符号)’调用函数
Sub 登陆账号(文本路径,分割符号)
Dim 账号
Do'判断有没有账号
账号 = File.ReadLine(文本路径, p):账号 = Split(账号, 分割符号)
p = p + 1 : WriteConfig "p", p
If Len(账号(1)) < 3 Then
账号 = File.ReadLine(文本路径, p)
账号 = Split(账号, 分割符号)
If Len(账号(1)) < 3 Then
TracePrint "账号读取完毕，重新开始。"
p = 1 : WriteConfig "p", p
Else : p = p + 1 : WriteConfig "p", p : Exit Do
End If
Else Exit Do
End If
Loop
Tap x,y'账号输入框坐标
Delay 500
For 20 : KeyPress "Del" : Next
Delay 500
InputText 账号(0)'账号
Delay 500
Tap x,y'密码输入框坐标
Delay 500
For 20 : KeyPress "Del" : Next
Delay 500
InputText 账号(1)'密码
Delay 500
//如果要加点击登陆的 自己加
End Sub
Sub 登陆账号(文本路径,分割符号)
Dim 账号
Do'判断有没有账号
账号 = File.ReadLine(文本路径, p):账号 = Split(账号, 分割符号)
p = p + 1 : WriteConfig "p", p
If Len(账号(1)) < 3 Then
账号 = File.ReadLine(文本路径, p)
账号 = Split(账号, 分割符号)
If Len(账号(1)) < 3 Then
TracePrint "账号读取完毕，重新开始。"
p = 1 : WriteConfig "p", p
Else : p = p + 1 : WriteConfig "p", p : Exit Do
End If
Else Exit Do
End If
Loop
Tap x,y'账号输入框坐标
Delay 500
For 20 : KeyPress "Del" : Next
Delay 500
InputText 账号(0)'账号
Delay 500
Tap x,y'密码输入框坐标
Delay 500
For 20 : KeyPress "Del" : Next
Delay 500
InputText 账号(1)'密码
Delay 500
//如果要加点击登陆的 自己加
End Sub
Sub 登陆账号(文本路径,分割符号) Dim 账号 Do'判断有没有账号 账号 = File.ReadLine(文本路径, p):账号 = Split(账号, 分割符号) p = p + 1 : WriteConfig "p", p If Len(账号(1)) < 3 Then 账号 = File.ReadLine(文本路径, p) 账号 = Split(账号, 分割符号) If Len(账号(1)) < 3 Then TracePrint "账号读取完毕，重新开始。" p = 1 : WriteConfig "p", p Else : p = p + 1 : WriteConfig "p", p : Exit Do End If Else Exit Do End If Loop Tap x,y'账号输入框坐标 Delay 500 For 20 : KeyPress "Del" : Next Delay 500 InputText 账号(0)'账号 Delay 500 Tap x,y'密码输入框坐标 Delay 500 For 20 : KeyPress "Del" : Next Delay 500 InputText 账号(1)'密码 Delay 500 //如果要加点击登陆的 自己加 End Sub
