蒲公英接验证码平台
ShuiGee
022-03-01发布 蒲公英接验证码平台
平台号码 仅供测试，和保护隐私 切勿用于违法违规的项目，否则后果自负
平台号码 仅供测试，和保护隐私 切勿用于违法违规的项目，否则后果自负
平台号码 仅供测试，和保护隐私 切勿用于违法违规的项目，否则后果自负
电脑端：有
手机端：有
网页端：有
API有
蒲公英接验证码平台官网地址：
所有最新平台 资讯 互联网资源 和 官网地址QQ群都有 ，网站VIP 群：531552645
申请加群的验证请填写 本站（共享盒子）的账号用户名或者邀请码(卡密)
没有注册本站的请先 点击——》 注册共享盒子 然后加群
全部资料来自互联网资料搜索收录，本站没有任何平台 也不推荐任何 平台 。使用问题自行咨询相关网站客服！！
Import "ShanHai.lua"
dim token,手机号码,手机mId,用户名,密码,项目ID,短信内容
Sub PuGongYing_登录()
Dim json_temp = Url.Get("/api/v1/login?username="&用户名&"&password="&密码)
Dim json = Encode.JsonToTable(json_temp)
Dim json_code = json["code"]
If json_code = 1000 Then
token = json["data"]["token"]
TracePrint token
End If
End Sub
Sub PuGongYing_取号()
Dim json_temp = Url.Get("/api/v1/getphonenumber?token="&token&"&projectId="&项目ID)
Dim json = Encode.JsonToTable(json_temp)
Dim json_code = json["code"]
If json_code = 1000 Then
For Each a In json["data"]
手机号码 = a["mobileNo"]
TracePrint 手机号码 //输出获取到的全部手机号码
手机mid = a["mid"]
TracePrint 手机mid //输出获取到的手机mid
Next
End If
End Sub
//短信获取成功后，会自动释放号码，因此无需调用释放接口
Sub PuGongYing_取码()
Dim n=0
Do While true
Dim json_temp = Url.Get("/api/v1/getsms?token="&token&"&mid="&手机mid)
TracePrint json_temp
Dim json = Encode.JsonToTable(json_temp)
Dim json_code = json["code"]
If json_code = 1000 Then
短信内容 = json["data"]["SMS"]
TracePrint 短信内容 //输出获取到的短信内容
Exit do
End If
If n>=80 Then
Exit do
End if
n = n + 1
Delay 3000
Loop
End Sub
//短信获取成功后，会自动释放号码，因此无需调用释放接口，只有取码超时才调用此接口释放号码
Sub PuGongYing_释放()
Dim json_temp = Url.Get("/api/v1/releasenumber?token="&token&"&mid="&手机mid)
Dim json = Encode.JsonToTable(json_temp)
Dim json_code = json["code"]
If json_code = 1000 Then
TracePrint "释放成功"
End If
End Sub
Sub PuGongYing_加黑()
Dim json_temp = Url.Get("/api/v1/addblacknumber?token="&token&"&mid="&手机mid)
Dim json = Encode.JsonToTable(json_temp)
Dim json_code = json["code"]
If json_code = 1000 Then
TracePrint "加黑成功"
End If
End Sub
Function 主程序()
用户名 = "a111111"
密码 = "a111111"
项目ID = "11510"
PuGongYing_登录
Delay 1000
PuGongYing_取号
Delay 2000
PuGongYing_取码()
End Function
主程序()
