Import "zm.luae" //共享文件
Import "zmFile.lua" //导入插件,只需执行一次
zm.Init //随机姓名插件初始化插件,只需执行一次
zm.rndinitseed //随机姓名插件加速
Dim 存储文件,网络时间,时间,共享路径,设备ID,短信第一次延迟,短信延迟,备注,路径, 读取结果,存储内容,a,账号,内容,成功计数,密码,次数,登录地址,手机号,短信地址,登录返回值,短信,token,普通取卡,dxjs,项目id,转换,结果,验证码,登录密码,邀请码
//设备ID = GetDeviceID()
网络时间=GetNetworkTime()
时间 = 网络时间
时间 = Replace(网络时间, ":", "|")
项目id=10736
账号 = "123"
密码 = "123"
登录密码 = "123"
路径 = "/sdcard/jiyuncixian.txt"
邀请码 = ReadUIConfig("输入框1","kaYFpmYH")'获取账号输入框内容，如果为空则默认为kaYFpmYH
次数 = ReadUIConfig("输入框2","15")'获取账号输入框内容，如果为空则默认为15
备注 = ReadUIConfig("输入框3","艾泽拉斯")'获取账号输入框内容，如果为空则默认为15
短信第一次延迟 = ReadUIConfig("输入框4","15000")'获取账号输入框内容，如果为空则默认为15
短信延迟 = ReadUIConfig("输入框5","3000")'获取账号输入框内容，如果为空则默认为15
内容 = 手机号 & "成功" & 成功计数 & "次"
存储文件=备注&邀请码&".txt"
共享路径="/sdcard/Pictures/"&存储文件
FW.NewFWindow "成功", 0, 0, 800, 80
FW.AddTextView ("成功","文字","初始",200, 50, 100, 50)
FW.Show ("成功")
成功计数 = 1
//Call 登录()
token="123"
for 次数
Call 主程序()
next
Sub 主程序
// Rem 获取手机号码
// Call 释放号码()
Call 获取手机号()
Call 输入手机号()
Call 注册协议打对勾()
Call 获取短信()
Call 如果获取短信失败()
Call 输入验证码()
Call 输入密码()
Call 点击注册()
Call 昵称和头像()
Call 登录账号()
Call 输入邀请码()
call 退出登录()
end Sub
sub 登录()
项目id=10736
账号 = "ranran158"
密码 = "z1992920"
登录地址 = "http://api.sqhyw.net:90/api/logins?username=" & 账号 & "&password=" & 密码
登录返回值 = URL.Get(登录地址)
转换 = Encode.JsonToTable(登录返回值)
//TracePrint 转换["token"]
token = 转换["token"]
TracePrint token
End sub
Sub 获取手机号()
短信地址 = "http://api.sqhyw.net:90/api/get_mobile?token=" & token & "&project_id=" & 项目id
手机号 = URL.Get(短信地址)//获取手机号的返回值
TracePrint 手机号
转换 = Encode.JsonToTable(手机号)//Json转换成Table
手机号 = 转换["token"]//提取Table数据中的token
//TracePrint 转换["token"]
手机号 = 转换["mobile"]//获取手机号
结果=UTF8.InStr(1,手机号,"1")//搜索字符串
If 结果 > 0 Then
TracePrint "手机号获取成功"&手机号
Else
TracePrint"手机号获取失败"
End If
End sub
sub 获取短信()
Delay 短信第一次延迟
dxjs=0
TracePrint "短信"&手机号
短信地址 = "http://api.sqhyw.net:90/api/get_message?token=" & token & "&project_id=" & 项目id & "&phone_num=" & 手机号
Do While 验证码 = null and dxjs<7
短信 = URL.Get(短信地址)
TracePrint 短信
转换 = Encode.JsonToTable(短信)//Json转换成Table
验证码 = 转换["code"]
dxjs=dxjs+1
TracePrint "短信获取失败"&dxjs&"次"
Delay 短信延迟
Loop
TracePrint "短信获取成功"&验证码
TracePrint dxjs
End Sub
Sub 关闭注册界面()
tap 666,102 //关闭注册界面
Delay 500
End Sub
Sub 如果获取短信失败()
Do
If dxjs <7 Then
Exit Do
End If
call 释放号码()
call 拉黑号码()
Call 关闭注册界面()
Call 进入注册界面()
Call 释放号码()
Call 获取手机号()
Call 输入手机号()
Call 注册协议打对勾()
Call 获取短信()
Loop
Tap 202,663
Delay 500
End Sub
Sub 进入注册界面()
Dim 颜色2,注册红,点快速注册的计数器
注册红 = "424DF5"
点快速注册的计数器=1
颜色2 = GetPixelColor(111, 991)
TracePrint 颜色2&注册红
While 颜色2=注册红 and 点快速注册的计数器<20
Delay 1000
TracePrint 点快速注册的计数器
点快速注册的计数器 = 点快速注册的计数器 + 1
TracePrint "在登录界面"
tap 123,993//进入注册界面
Delay 500
颜色2 = GetPixelColor(111,991)
wend
Delay 500
tap 395,508//删除手机号
Delay 500
call 注册协议打对勾()
End Sub
sub 输入验证码()
Delay 500
// Tap 202,663
// Tap 202,663
// Delay 500
InputText 验证码
验证码 = null
End Sub
Sub 输入手机号()
Delay 200
Tap 155,509//点击手机号的输入框
Delay 500
InputText 手机号//输入手机号
Delay 500
Tap 539, 509
End Sub
sub 输入密码()
Delay 200
Tap 161, 809//点击密码的输入框
Delay 500
InputText 登录密码
Delay 500
End Sub
sub 登录协议打对勾()
//变量222222需要预先定义。如果您还没有定义该变量，请取消下面一行的注释
Dim 颜色,白色
颜色 = GetPixelColor(68, 919)
If 颜色 = 白色 Then
Tap 68, 919
Delay 500
Else
End If
End Sub
sub 注册协议打对勾()
//变量222222需要预先定义。如果您还没有定义该变量，请取消下面一行的注释
Dim 颜色,白色
白色= "FFFFFF"
颜色 = GetPixelColor(55,1082)
If 颜色 =白色 Then
Tap 55,1082
Delay 500
Else
End If
End Sub
Sub 登录账号
Call 登录协议打对勾()
Tap 638,507//激活手机输入框
Delay 500
InputText 手机号
Delay 500
Tap 426,657//激活密码输入框
Delay 100
Tap 426,657//激活密码输入框
Delay 400
InputText "z123456"
Delay 500
Tap 195,810//点击登录
Delay 1500
End Sub
Sub 输入邀请码
Tap 282,863//点击邀请码图标
Delay 800
Tap 314,646//激活邀请码输入
Delay 800
InputText 邀请码
Delay 800
Tap 355,785//点击提交
Delay 1800
End Sub
Sub 退出登录
Tap 129,227//点击头像
Delay 1000
Tap 357,1223//点击推出登录
Delay 1000
Call 拉黑号码()
Call 存储内容1()
call 悬浮窗更新()
call 进入注册界面()
End Sub
Sub 昵称和头像
Dim name = zm.RndName()//随机姓名
tap 367,525//激活昵称输入框
Delay 800
InputText name
Delay 800
tap 363,263//点击头像
Delay 1300
tap 326,198//选中头像
Delay 1000
Tap 655, 1231//点击完成
Delay 1300
Tap 668,110//裁剪完成
Delay 2800
Tap 361,655//红色的完成
Delay 3000
End Sub
Sub 点击注册()
Tap 348,961//点击注册
Delay 1800
End Sub
Sub 拉黑号码()
Dim 拉黑号码地址,拉黑号码返回值
拉黑号码地址 = "http://api.sqhyw.net:90/api/add_blacklist?token=" & token & "&project_id=" & 项目id & "&phone_num=" & 手机号
拉黑号码返回值 = URL.Get(拉黑号码地址)
转换 = Encode.JsonToTable(拉黑号码返回值)
结果 = 转换["message"]
TracePrint 结果
ShowMessage 结果&"拉黑号码"
End Sub
sub 悬浮窗()
成功计数 = 0
内容 = 手机号 & "成功" & 成功计数 & "次"
FW.NewFWindow("成功", 0, 0, 800, 50)
FW.AddTextView ("成功","文字","初始",200, 50, 100, 50)
FW.Show ("成功")
End Sub
sub 悬浮窗更新()
成功计数=成功计数+1
内容 = 手机号 & "成功" & 成功计数 & "次"
FW.SetTextView "文字", 内容, 200, 50, 800, 50
ShowMessage 内容
End Sub
sub 存储内容1()
存储内容 = 手机号&邀请码&备注&成功计数&"次"
File.Append 路径, 存储内容
读取结果 = File.Read(路径)
TracePrint 读取结果
zmFile.WriteAppend(共享路径, 手机号&邀请码&备注&成功计数&"次") //输出信息在末尾追加内容
End Sub
Sub 释放号码()
Dim 释放所有号码,释放所有号码返回值,释放所有号码地址
释放所有号码地址 = "http://api.sqhyw.net:90/api/free_mobile?token=" & token &"phone_num="& 手机号
释放所有号码返回值 = URL.Get(释放所有号码地址)
转换 = Encode.JsonToTable(释放所有号码返回值)
结果 = 转换["message"]
TracePrint 手机号&结果&"释放号码"
ShowMessage 手机号&结果&"释放号码"
End Sub
Import "zmFile.lua" //导入插件,只需执行一次
zm.Init //随机姓名插件初始化插件,只需执行一次
zm.rndinitseed //随机姓名插件加速
Dim 存储文件,网络时间,时间,共享路径,设备ID,短信第一次延迟,短信延迟,备注,路径, 读取结果,存储内容,a,账号,内容,成功计数,密码,次数,登录地址,手机号,短信地址,登录返回值,短信,token,普通取卡,dxjs,项目id,转换,结果,验证码,登录密码,邀请码
//设备ID = GetDeviceID()
网络时间=GetNetworkTime()
时间 = 网络时间
时间 = Replace(网络时间, ":", "|")
项目id=10736
账号 = "123"
密码 = "123"
登录密码 = "123"
路径 = "/sdcard/jiyuncixian.txt"
邀请码 = ReadUIConfig("输入框1","kaYFpmYH")'获取账号输入框内容，如果为空则默认为kaYFpmYH
次数 = ReadUIConfig("输入框2","15")'获取账号输入框内容，如果为空则默认为15
备注 = ReadUIConfig("输入框3","艾泽拉斯")'获取账号输入框内容，如果为空则默认为15
短信第一次延迟 = ReadUIConfig("输入框4","15000")'获取账号输入框内容，如果为空则默认为15
短信延迟 = ReadUIConfig("输入框5","3000")'获取账号输入框内容，如果为空则默认为15
内容 = 手机号 & "成功" & 成功计数 & "次"
存储文件=备注&邀请码&".txt"
共享路径="/sdcard/Pictures/"&存储文件
FW.NewFWindow "成功", 0, 0, 800, 80
FW.AddTextView ("成功","文字","初始",200, 50, 100, 50)
FW.Show ("成功")
成功计数 = 1
//Call 登录()
token="123"
for 次数
Call 主程序()
next
Sub 主程序
// Rem 获取手机号码
// Call 释放号码()
Call 获取手机号()
Call 输入手机号()
Call 注册协议打对勾()
Call 获取短信()
Call 如果获取短信失败()
Call 输入验证码()
Call 输入密码()
Call 点击注册()
Call 昵称和头像()
Call 登录账号()
Call 输入邀请码()
call 退出登录()
end Sub
sub 登录()
项目id=10736
账号 = "ranran158"
密码 = "z1992920"
登录地址 = "http://api.sqhyw.net:90/api/logins?username=" & 账号 & "&password=" & 密码
登录返回值 = URL.Get(登录地址)
转换 = Encode.JsonToTable(登录返回值)
//TracePrint 转换["token"]
token = 转换["token"]
TracePrint token
End sub
Sub 获取手机号()
短信地址 = "http://api.sqhyw.net:90/api/get_mobile?token=" & token & "&project_id=" & 项目id
手机号 = URL.Get(短信地址)//获取手机号的返回值
TracePrint 手机号
转换 = Encode.JsonToTable(手机号)//Json转换成Table
手机号 = 转换["token"]//提取Table数据中的token
//TracePrint 转换["token"]
手机号 = 转换["mobile"]//获取手机号
结果=UTF8.InStr(1,手机号,"1")//搜索字符串
If 结果 > 0 Then
TracePrint "手机号获取成功"&手机号
Else
TracePrint"手机号获取失败"
End If
End sub
sub 获取短信()
Delay 短信第一次延迟
dxjs=0
TracePrint "短信"&手机号
短信地址 = "http://api.sqhyw.net:90/api/get_message?token=" & token & "&project_id=" & 项目id & "&phone_num=" & 手机号
Do While 验证码 = null and dxjs<7
短信 = URL.Get(短信地址)
TracePrint 短信
转换 = Encode.JsonToTable(短信)//Json转换成Table
验证码 = 转换["code"]
dxjs=dxjs+1
TracePrint "短信获取失败"&dxjs&"次"
Delay 短信延迟
Loop
TracePrint "短信获取成功"&验证码
TracePrint dxjs
End Sub
Sub 关闭注册界面()
tap 666,102 //关闭注册界面
Delay 500
End Sub
Sub 如果获取短信失败()
Do
If dxjs <7 Then
Exit Do
End If
call 释放号码()
call 拉黑号码()
Call 关闭注册界面()
Call 进入注册界面()
Call 释放号码()
Call 获取手机号()
Call 输入手机号()
Call 注册协议打对勾()
Call 获取短信()
Loop
Tap 202,663
Delay 500
End Sub
Sub 进入注册界面()
Dim 颜色2,注册红,点快速注册的计数器
注册红 = "424DF5"
点快速注册的计数器=1
颜色2 = GetPixelColor(111, 991)
TracePrint 颜色2&注册红
While 颜色2=注册红 and 点快速注册的计数器<20
Delay 1000
TracePrint 点快速注册的计数器
点快速注册的计数器 = 点快速注册的计数器 + 1
TracePrint "在登录界面"
tap 123,993//进入注册界面
Delay 500
颜色2 = GetPixelColor(111,991)
wend
Delay 500
tap 395,508//删除手机号
Delay 500
call 注册协议打对勾()
End Sub
sub 输入验证码()
Delay 500
// Tap 202,663
// Tap 202,663
// Delay 500
InputText 验证码
验证码 = null
End Sub
Sub 输入手机号()
Delay 200
Tap 155,509//点击手机号的输入框
Delay 500
InputText 手机号//输入手机号
Delay 500
Tap 539, 509
End Sub
sub 输入密码()
Delay 200
Tap 161, 809//点击密码的输入框
Delay 500
InputText 登录密码
Delay 500
End Sub
sub 登录协议打对勾()
//变量222222需要预先定义。如果您还没有定义该变量，请取消下面一行的注释
Dim 颜色,白色
颜色 = GetPixelColor(68, 919)
If 颜色 = 白色 Then
Tap 68, 919
Delay 500
Else
End If
End Sub
sub 注册协议打对勾()
//变量222222需要预先定义。如果您还没有定义该变量，请取消下面一行的注释
Dim 颜色,白色
白色= "FFFFFF"
颜色 = GetPixelColor(55,1082)
If 颜色 =白色 Then
Tap 55,1082
Delay 500
Else
End If
End Sub
Sub 登录账号
Call 登录协议打对勾()
Tap 638,507//激活手机输入框
Delay 500
InputText 手机号
Delay 500
Tap 426,657//激活密码输入框
Delay 100
Tap 426,657//激活密码输入框
Delay 400
InputText "z123456"
Delay 500
Tap 195,810//点击登录
Delay 1500
End Sub
Sub 输入邀请码
Tap 282,863//点击邀请码图标
Delay 800
Tap 314,646//激活邀请码输入
Delay 800
InputText 邀请码
Delay 800
Tap 355,785//点击提交
Delay 1800
End Sub
Sub 退出登录
Tap 129,227//点击头像
Delay 1000
Tap 357,1223//点击推出登录
Delay 1000
Call 拉黑号码()
Call 存储内容1()
call 悬浮窗更新()
call 进入注册界面()
End Sub
Sub 昵称和头像
Dim name = zm.RndName()//随机姓名
tap 367,525//激活昵称输入框
Delay 800
InputText name
Delay 800
tap 363,263//点击头像
Delay 1300
tap 326,198//选中头像
Delay 1000
Tap 655, 1231//点击完成
Delay 1300
Tap 668,110//裁剪完成
Delay 2800
Tap 361,655//红色的完成
Delay 3000
End Sub
Sub 点击注册()
Tap 348,961//点击注册
Delay 1800
End Sub
Sub 拉黑号码()
Dim 拉黑号码地址,拉黑号码返回值
拉黑号码地址 = "http://api.sqhyw.net:90/api/add_blacklist?token=" & token & "&project_id=" & 项目id & "&phone_num=" & 手机号
拉黑号码返回值 = URL.Get(拉黑号码地址)
转换 = Encode.JsonToTable(拉黑号码返回值)
结果 = 转换["message"]
TracePrint 结果
ShowMessage 结果&"拉黑号码"
End Sub
sub 悬浮窗()
成功计数 = 0
内容 = 手机号 & "成功" & 成功计数 & "次"
FW.NewFWindow("成功", 0, 0, 800, 50)
FW.AddTextView ("成功","文字","初始",200, 50, 100, 50)
FW.Show ("成功")
End Sub
sub 悬浮窗更新()
成功计数=成功计数+1
内容 = 手机号 & "成功" & 成功计数 & "次"
FW.SetTextView "文字", 内容, 200, 50, 800, 50
ShowMessage 内容
End Sub
sub 存储内容1()
存储内容 = 手机号&邀请码&备注&成功计数&"次"
File.Append 路径, 存储内容
读取结果 = File.Read(路径)
TracePrint 读取结果
zmFile.WriteAppend(共享路径, 手机号&邀请码&备注&成功计数&"次") //输出信息在末尾追加内容
End Sub
Sub 释放号码()
Dim 释放所有号码,释放所有号码返回值,释放所有号码地址
释放所有号码地址 = "http://api.sqhyw.net:90/api/free_mobile?token=" & token &"phone_num="& 手机号
释放所有号码返回值 = URL.Get(释放所有号码地址)
转换 = Encode.JsonToTable(释放所有号码返回值)
结果 = 转换["message"]
TracePrint 手机号&结果&"释放号码"
ShowMessage 手机号&结果&"释放号码"
End Sub
