• 新浪微博:
  • 微信 :
按键精灵电脑版
立即下载

软件版本:2014.05
软件大小:21.6M
更新时间:07-04

按键精灵安卓版
立即下载

软件版本:3.3.1
软件大小:62.5M
更新时间:5-24

按键精灵iOS版
立即下载

软件版本:1.3.5
软件大小:29.2M
更新时间:06-14

最新企业版UiBot
立即下载

软件版本:2.2
软件大小:191M
更新时间:03-27

快捷导航

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

登录 注册
发新话题 回复该主题

[已解决] 自动换号的脚本一直执行不成功,求大佬指点下 [复制链接]

1#
請大神幫我檢查一下謝謝
//----------------用于文档内已有号码全自动进行登录-----------------
Function 登录账号()
Dim intX,intY,Var,path1,path2,行
Do While True
FindMultiColor 0,0,0,0,"C9C831","8|50|C9C831,9|104|C9C831,-4|220|FFFFFF,-237|281|66665A,-238|313|75756A,50|307|999999",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
Exit Do
End If
Loop
Do
'先读取当前需要登录第几行账号,初始记录为0行
行 = File.Read(path2)
'读取账号、密码
Call 登录读取账号(path1, CInt(行))
If Var = False Then //根据返回值判断是否账号输出为空值
TracePrint "1"
//如果是退出循环,并且删除记录文档
Call File.DeleteLine("/sdcard/Pictures/记录.txt", 1)
Delay 300
Exit Do
End If
Delay 100
Tap 375,785 //点击登录
'登录成功之后行数加1,再次登录时就会自动读取下一个账号
Call File.Write(path2, CInt(行) + 1)
Delay 5000
Loop
End Function
Function 登录读取账号(path1, 行)
Dim arr(),text(),账号,密码,Var
arr = File.ReadLines(path1) //读取路径文档当中的信息
text = Split(arr(行), "|")
//用|分隔账号于密码,例如:12|34|56 = 12(text(0))|34(text(1))|56(text(2))
账号 = text(0)
密码 = text(1)
If 账号 = "" Then '自行确定是null/"null"/""哪种
Var = False //判断读取结果“假”为返回值,则返回给 var
Exit Function
Else
Var = True //判断读取结果“真”为返回值,不做任何操作
End If
Delay 500
Tap 294, 537 //点击登录用户名
Delay 1000
InputText 账号 //输出账号信息
Delay 100
tap 290,604 //点击密码输入框
Delay 1000
InputText 密码 //输出密码信息
Delay 500
End Function
//----------------用于文档内已有号码全自动进行登录----------------

本主题由 超级版主 n15976906190 于 2019/4/11 16:33:01 执行 审核帖子 操作
2#

回复 1楼zzaiccf的帖子

注:你好 提问时请提供简洁、扼要、清晰可直接测试的代码结构,并注释以及描述问题所在以及疑问(删除多余代码 提供可直接测试代码并清晰描述问题所在)可用模板:自行按本模板修改
  1. TracePrint 读取一行()
  2. Dim 微博帐号记录,j,Var1
  3. Function 读取一行()
  4. 微博帐号记录 = File.ReadLines(GetTempDir()&"/微博帐号记录.txt")
  5. If 微博帐号记录(0) = null Then
  6. j = 0
  7. Else
  8. j = 微博帐号记录(0)
  9. End If
  10. TracePrint "本次读取第----"&j&"行"
  11. Var1 = File.ReadLines(GetTempDir()&"/微博帐号.txt")
  12. If Int(j) > Int(UBOUND(Var1)) Then
  13. Do
  14. TracePrint "已经是最后一行了"
  15. Delay 5000
  16. Loop
  17. End If
  18. 读取一行 = Var1(j)
  19. j=j+1
  20. Dir.Delete GetTempDir()&"/微博帐号记录.txt"
  21. Call File.Write (GetTempDir() & "/微博帐号记录.txt",j)
  22. End Function
复制代码

最后编辑n15976906190 最后编辑于 2019-04-11 10:11:15
收徒索引
----将满
个人QQ:1223116618
3#

慢慢学习,继续努力。

发新话题 回复该主题