热门 海豚云|接码平台-共享码-海豚云|接码平台-共享码-共享码

热门海豚云|接码平台-共享码

海豚云以及所有平台客户端 请自行去 QQ群 : 1084747148 下载  ,不能加入群  请@群主 或者留言

本群提供各大平台测试账号免费使用

平台号码 仅供测试,和保护隐私 切勿用于违法违规的项目,否则后果自负

海豚云接码平台官网地址:

当前内容只有登录了才能查看,如果您已经注册,请登录

海豚云接码平台电脑端界面:

海豚云接码平台WEB端界面:

手机App客户端 这里就不发了

海豚云接码平台Api实例,按键精灵代码

Function 海豚_获取手机号
Dim 号段 = ReadUIConfig("输入框1")
TracePrint 号段
Dim 获取手机号失败 = Int(0)

Rem 重新登录接码
Dim 返回值

网址 = "/sms/?api=getPhone&token=&sid=20593&ascription=" &号段

返回值 = Url.Get(网址)
TracePrint "手机 "&返回值
ShowMessage 返回值
Delay 1000

拆分 = Encode.JsonToTable(返回值)
TracePrint 拆分["code"]
If 拆分["code"] = "0" Then
TracePrint "获取手机号: "&拆分["phone"]
号段 = Mid(拆分["phone"], 1, 3)
TracePrint 号段
If 号段 = "Fal" Then
Goto 重新登录接码
End If
海豚_获取手机号 = 拆分["phone"]
手机服务号 = 拆分["phone"]
//多米_释放手机号()
Else
ShowMessage "获取内容不是手机号..重新取号"
TracePrint "获取内容不是手机号..重新取号"
Delay 3000
获取手机号失败 = 获取手机号失败 + 1
If 获取手机号失败 >= 2 Then
ShowMessage "获取失败"
Delay 300
海豚_获取手机号 = "获取失败"
Exit Function
End If
Goto 重新登录接码
End If
End Function

Function 海豚_获取验证码
Dim 计时=Time()
Dim 重新接码计时=Time()
Dim 取到码

网址 ="/?api=getMessage&token=&sid=20593&phone="& 手机服务号

TracePrint 网址
Do
返回值 = Url.Get(网址)
TracePrint "返回信息:" & 返回值
ShowMessage "返回信息:" & 返回值
Delay 500
If Len(返回值) < 1 Then
ShowMessage ("服务器异常")
海豚_获取验证码 = "获取失败"
Exit Function
End If
Dim 拆分 = Encode.JsonToTable(返回值)
If 拆分["code"]= "0" Then
取到码 = ShanHai.RegexFind(拆分["sms"], "%d%d%d%d")
海豚_获取验证码 = 取到码(0)
//账号状态 = "1"
Exit Function
End If

TracePrint "等码计时-" & (Time() - 计时) & "秒"
ShowMessage "等码计时-" & (Time() - 计时) & "秒"
If (Time() - 计时) >= 53 Then
TracePrint "取码超时-换号重新注册"
ShowMessage "取码超时-换号重新注册"
Delay 700
海豚_获取验证码 = "获取失败"
海豚_释放手机号()
Exit Function
End If
Delay 5000 '官方建议每隔5秒取一次码
Loop
End Function

Function 海豚_释放手机号
Dim 释放手机号失败 = Int(0)

网址 = "/sms/?api=cancelRecv&token=&sid=20593&phone="& 手机服务号

TracePrint 网址
返回值 = Url.Get(网址)
TracePrint "手机 "&返回值
ShowMessage 返回值
If Len(返回值) < 1 Then
ShowMessage ("服务器异常")
Exit Function
End If
Delay 1000
拆分 = Encode.JsonToTable(返回值)
If 拆分["code"] = "0" Then
TracePrint "释放成功!"
ShowMessage "释放成功!"
Else

释放手机号失败 = 释放手机号失败 + 1
TracePrint 拆分["data"]
ShowMessage 拆分["data"]
If 释放手机号失败 >= 2 Then
Delay 300
Exit Function
End If
End If
End Function
Function 海豚_加黑手机号
Dim 加黑手机号失败 = Int(0)

网址 = "/sms/?api=addBlacklist&token=&sid=20593&phone="& 手机服务号

TracePrint 网址
返回值 = Url.Get(网址)
TracePrint "手机 "&返回值
ShowMessage 返回值
If Len(返回值) < 1 Then
ShowMessage ("服务器异常")
Exit Function
End If
Delay 1000
拆分 = Encode.JsonToTable(返回值)
If 拆分["code"] = "0" Then
TracePrint "加黑成功!"
ShowMessage "加黑成功!"
Else
加黑手机号失败 = 加黑手机号失败 + 1
TracePrint 拆分["data"]
ShowMessage 拆分["data"]
If 加黑手机号失败 >= 2 Then
Delay 300
Exit Function
End If
End If
End Function

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

发表评论