热门海豚云|接码平台-共享码
海豚云以及所有平台客户端 请自行去 QQ群 : 695648110下载 ,不能加入群 请@群主 或者留言
本群提供各大平台测试账号免费使用
平台号码 仅供测试,和保护隐私 切勿用于违法违规的项目,否则后果自负
海豚云接码平台官网地址:http://api.haitunpt.com
海豚云接码平台电脑端界面:
海豚云接码平台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