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

Dim 用户名 = "你的api账号"Dim 密码 = "你的api密码"Dim 项目ID = "23966"dim 用户令牌 = 登录(用户名,密码)TracePrint "token是："&用户令牌Dim 手机号 = 获取手机号(用户令牌,项目ID)TracePrint "获取到手机号："&手机号TracePrint 手机号Dim 验证码 = 获取短信验证码(用户令牌,项目ID,手机号)TracePrint 验证码//TracePrint 获取指定手机号(用户令牌,项目ID,"17133230575")Function 登录(用户名,密码)    Dim ret = url.get("https://api.haozhuma.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://api.haozhuma.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    NextEnd FunctionFunction 获取指定手机号(用户令牌,项目ID,手机号)    For 30        Dim ret = url.get("https://api.haozhuma.com/sms/?api=getPhone&author=loginaction&token="&用户令牌&"&sid="&项目ID&"&phone="&手机号)        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    NextEnd FunctionFunction 获取短信验证码(用户令牌,项目ID,手机号)    For 60        Dim ret = url.get("https://api.haozhuma.com/sms/?api=getMessage&token="&用户令牌&"&sid="&项目ID&"&phone="&手机号)        TracePrint ret        If ret Then             Dim tb = encode.JsonToTable(ret)            If tb["code"] = "0" Then                 获取短信验证码 = tb["yzm"]                Exit Function            Else                TracePrint "失败："&tb["msg"]            End If        End If        delay 1000    NextEnd Function