按键精灵 循环登陆账号【源码】

作者 : 小陈 本文共542个字,预计阅读时间需要2分钟 发布时间: 2019-09-22 共732人阅读

 

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


1. 本站所有资源来源于用户上传和网络,如有侵权请邮件联系站长!
2. 分享目的仅供大家学习和交流,请不要用于商业用途!
3. 如果你也有好源码或者教程,可以到审核区发布,分享有金币奖励和额外收入!
4. 本站提供的源码、模板、插件等等其他资源,都不包含技术服务 请大家谅解!
5. 如有链接无法下载、失效或广告,请点击后面字体→到投诉版块区举报,可领回失去的金币,并额外有奖!
6. 如遇到加密压缩包,默认解压密码为"www.axbok.com",如遇到无法解压的请联系管理员!
小陈 » 按键精灵 循环登陆账号【源码】

常见问题FAQ

免费下载或者VIP会员专享资源能否直接商用?
本站所有资源版权均属于原作者所有,这里所提供资源均只能用于参考学习用,请勿直接商用。若由于商用引起版权纠纷,一切责任均由使用者承担。更多说明请参考 VIP介绍。
提示下载完但解压或打开不了?
最常见的情况是下载不完整: 可对比下载完压缩包的与网盘上的容量,若小于网盘提示的容量则是这个原因。这是浏览器下载的bug,建议用百度网盘软件或迅雷下载。 若排除这种情况,可在对应资源底部留言,或联系我们。
找不到素材资源介绍文章里的示例图片?
对于会员专享、整站源码、程序插件、网站模板、网页模版等类型的素材,文章内用于介绍的图片通常并不包含在对应可供下载素材包内。这些相关商业图片需另外购买,且本站不负责(也没有办法)找到出处。 同样地一些字体文件也是这种情况,但部分素材会在素材包内有一份字体下载链接清单。