蒲公英接验证码平台

• 老虎接码平台 tiger-sms.com 黑色星期五打5折！大平台5多年运营，热门冷门，量大，量小都可接，按收到的验证码扣费，24/7 客服。
• 购买虚拟电话号码以接收短信 购买一个虚拟电话号码以接收短信并在 Telegram, Instagram, Viber, Twitter 上注册，0.4人民币起。 一键获得一个临时的一次性虚拟短信号码！
• 豪猪|Porcupine ·项目数量2万+，号码数量10万在线，高并发不宕机. 助力远离营销骚扰豪猪平台
• 龙腾云码平台提供5000+业务，国内外百万号码使用，不间断更新号码。稳定，高效，国内外号码库资源庞大，号码保3个月。免费试用满意为止!下载链接:http://www.ltym.top/
• 超人全球接码：全球接码领导者，短信验证，海外项目就找超人帮忙

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

主程序()

本文由 共享盒子 作者：ShuiGee 发表，其版权均为 共享盒子 所有，文章内容系作者个人观点，不代表 共享盒子 对观点赞同或支持。如需转载，请注明文章来源。