[按键精灵]豪马接码平台对接源码分享

有网友问的对接源码，今天重新发一下。

一、平台地址

网址：接码平台：豪马云号码：https://haoma.meoo.run

开发文档：https://haoma.meoo.run

二、源码分享

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

①、登录平台获取

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

③、获取短信提取验证码

Dim 用户名 = "你的api账号"Dim 密码 = "你的api密码"Dim 项目ID = "dim 用户令牌 = 登录(用户名,密码)TracePrint "token是："&用户令牌Dim 手机号 = 获取手机号(用户令牌,项目ID)TracePrint "获取到手机号："&手机号TracePrint 手机号Dim 验证码 = 获取短信验证码(用户令牌,项目ID,手机号)TracePrint 验证码//TracePrint 获取指定手机号(用户令牌,项目ID,"17133230575")Function 登录(用户名,密码)https://haoma.meoo.run    Dim ret = url.get("https://apima.com/sms/?api=login&user="&用户名&"&pass="&密码)    If ret Then         Dim tb = encode.JsonToTable(ret)        If tb["code"] = 0 Then             登录 = tb["token"]        Else            TracePrint "登录失败"&tb["msg"]        End If    End IfEnd FunctionFunction 获取手机号(用户令牌,项目ID)    For 30        Dim ret = url.get("https://apa.com/sms/?api=getPhone&author=loginaction6&token="&用户令牌&"&sid="&项目ID)        If ret Then             Dim tb = encode.JsonToTable(ret)            If tb["code"] = "0" Then                 获取手机号 = tb["phone"]                Exit Function            Else                TracePrint "失败："&tb["msg"]            End If        End If        delay 1000    Nexthttps://haoma.meoo.runEnd FunctionFunction 获取指定手机号(用户令牌,项目ID,手机号)    For 30        Dim ret = url.get("https://apuma.com/sms/?api=getPhone&author=loginaction6&token="&用户令牌&"&sid="&项目ID&"&phone="&手机号)        If ret Then                 TracePrint "失败："&tb["msg"]            End If        End If        delay 1000    NextEnd Functionhttps://haoma.meoo.run

代码虽然这类平台能带来不少便利，但是在使用时请遵守地方和平台的规则、法律法规，切勿用于任何违规用途。免责声明：本文仅作为工具分享与使用心得交流，不代表对任何形式的背书或担保。使用该工具所产生的任何后果由使用者自行承担，请务必遵守国家法律法规及平台相关规定，切勿用于非法用途。