ARTICLE · 1245584

飞狐接码平台对接的源码

发布时间：2026-10-25 08:57:29 最近访问：2026-10-25 08:57:30

飞狐接码平台对接的源码

大家好，我是郭立员~，本文所讲内容仅供学习参考，请勿非法使用。

前言

这两天豪猪平台无法访问，有人问我还有其他平台，今天发个飞狐平台供大家学习。

一、平台地址

网址：https://my.feihu2026.com/user/register?invite=D24eXE

二、源码分享

接码平台的对接核心有三个：

①、登录平台获取token

②、获取手机号（包括指定号码获取）

③、获取短信提取验证码

以下这三个核心功能都已经封装成函数，使用时调用函数就行。

复制代码要用浏览器打开文章，不用使用微信打开，否则格式会乱

Dim 用户名 = "你的api账号"Dim 密码 = "你的api密码"Dim 项目ID = "11326"dim 用户令牌 = 登录(用户名,密码)TracePrint "token是："&用户令牌Dim 手机号订单 = 获取手机号(用户令牌,项目ID)Dim 手机号 = 手机号订单[1]TracePrint "获取到手机号："&手机号Dim 订单号 = 手机号订单[2]TracePrint 手机号Delay 5000Dim 验证码 = 获取短信验证码(用户令牌,订单号)TracePrint 验证码//TracePrint 获取指定手机号(用户令牌,项目ID,"17133230575")Function 登录(用户名,密码)    Dim ret = url.get("http://api.feihu2026.com/api/sms/login?user="&用户名&"&pass="&密码)    If ret Then         Dim tb = encode.JsonToTable(ret)        If tb["code"] = 200 Then             登录 = tb["data"]["token"]        Else            TracePrint "登录失败"&tb["msg"]        End If    End IfEnd FunctionFunction 获取手机号(用户令牌,项目ID)    For 30        Dim ret = url.get("http://api.feihu2026.com/api/sms/getPhone?author=loginaction&token="&用户令牌&"&pid="&项目ID)        TracePrint ret        If ret Then             Dim tb = encode.JsonToTable(ret)            If tb["code"] = 200 Then                 获取手机号 = {tb["data"]["phone"],tb["data"]["order_id"]}                Exit Function            Else                TracePrint "失败："&tb["msg"]            End If        End If        delay 1000    NextEnd FunctionFunction 获取指定手机号(用户令牌,项目ID,手机号)    For 30        Dim ret = url.get("http://api.feihu2026.com/api/sms/getPhone?author=loginaction&token="&用户令牌&"&pid="&项目ID&"&phone="&手机号)        If ret Then             Dim tb = encode.JsonToTable(ret)            If tb["code"] = 200 Then                 获取指定手机号 = {tb["data"]["phone"],tb["data"]["order_id"]}                Exit Function            Else                TracePrint "失败："&tb["msg"]            End If        End If        delay 1000    NextEnd FunctionFunction 获取短信验证码(用户令牌,订单号)    For 60        Dim ret = url.get("http://api.feihu2026.com/api/sms/getMessage?token="&用户令牌&"&order_id="&订单号)        TracePrint ret        If ret Then             Dim tb = encode.JsonToTable(ret)            If len(tb["data"]["code"]) > 0 Then                 获取短信验证码 = tb["data"]["code"]                Exit Function            Else                TracePrint "还未收到短信"            End If        End If        delay 1000    NextEnd Function

相关学习资料