蒲公英接验证码平台
老虎接码平台 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
主程序()