If 找图(101,352,201,398, "手机zc") Then
Tap 152,388
Delay 1000
End If
If 找图(253,370,298,398, "手机号") Then
Tap 203,124
Delay 1000
End If
Call 获取手机号码()
删除 15
InputText 手机号
Delay 1000
If 找图(0,0,0,0, "密码") Then
Tap 166,150
Delay 1000
删除 15
InputText ReadUIConfig("hello密码")
Delay 1000
End if
If 找图(0,0,0,0, "下一步") Then
Touch intX, intY, 150
Delay 20000
End If
If 找图(0,0,0,0, "输入验证码") Then
Tap 246,71
Delay 1000
Call 获取验证码 ()
InputText 验证码
Delay 10000
End If
If 找图(0,0,0,0, "下一步") Then
Touch intX, intY, 150
Delay 20000
End If
If 找图(0,0,0,0, "发送1") Then
Touch intX, intY, 150
Delay 1000
End If
If 找图(0,0,0,0, "个人资料") Then
b保存账号 手机号, File.ReadLine(保存账号, CInt(File.Read(保存账号记数)) - 1) & "|" & zc密码
Delay 1000
End If
TracePrint "zc完毕!"
End Sub
Sub b保存账号(文件路径, 保存内容)
If Dir.Exist(文件路径) = 0 Then
File.Write 文件路径, ""
End If
Call File.WriteLine(文件路径, CInt(File.LinesNumber(文件路径)) + 1, 保存内容)
End Sub
Sub f写入行(欲写入文件, 原文件, 计数器,k)
File.WriteLine 欲写入文件, CInt(File.LinesNumber(欲写入文件) + 1), f读取行(原文件, 计数器, k)
End Sub
Function f读取行(文件名路径, 计数器路径, k)
If k = 0 Then
f读取行 = File.ReadLine(文件名路径, CInt(File.Read(计数器路径)))
ElseIf k = "+" Then
f读取行 = File.ReadLine(文件名路径, CInt(File.Read(计数器路径)) + 1)
ElseIf k = "-" Then
f读取行 = File.ReadLine(文件名路径, CInt(File.Read(计数器路径)) - 1)
End If
End Function