API-CODE跳转-按键代码示例
此代码示例仅适用于==苹果手机==(仅作为示例,请自行调试)
---
>d 此代码示例,请根据自己项目,适当调整,技术咨询联系QQ 3570228427
```python
//****************************************************************//
//***********************API调用参考**************************//
//*****使用前,请填写自己的账号密码和项目ID**********************//
//*****CODE和STATE 均为必须的数据 需要先获取**********************//
//***************************************************************//
//导入山海插件
Import "ShanHai.lua"
Import "zm.luae"
Dim 账号=""//填写自己的账号
Dim 密码=""//密码
Dim 项目ID="1" //如 陌陌 的项目ID=1,在API文档查找自己的项目ID
//*********************第一步 获取CODE****************************//
Dim 任务API地址="http://xd.fk371.com/api/sendtask1.php?username="&账号&"&password="&密码&"&taskid="&项目ID
Dim 任务返回= Url.Get(任务API地址)
//把unicode转utf8(编码转换)
任务返回=ShanHai.Unicode2Utf8(任务返回)
TracePrint 任务返回
//对返回json解析
Dim 返回表 = Encode.JsonToTable(任务返回)
Dim 状态码=返回表["code"]//返回1表示成功,返回0表示失败
Dim 返回信息=返回表["msg"]//返回信息
Dim 任务订单号=返回表["did"]//任务订单号,回扫使用
If 状态码 = 0 Then
TracePrint "授权失败"
//显示失败原因
TracePrint 返回信息
End If
//*********************第二步 点击APP登陆 获取STATE****************************//
If 状态码 = 1 Then
TracePrint "授权成功"
//读取CODE
Dim CODE=返回表["codes"]//授权编号
/////////////////////点击登陆按钮跳转蜘蛛/////////////////////////
Tap 0, 0//!!!!【此处改填写app登陆按钮的坐标,请自行调整】!!!
Delay 5000//点登陆按钮会跳转到蜘蛛,蜘蛛会把state值放到剪贴板。
/////////////////////读取剪贴板 获得state值/////////////////////////
Dim 剪贴板内容 = Sys.GetClipText()
Dim STATE=剪贴板内容
/////////////////////拼接跳转连接/////////////////////////
//格式示例 wx53440afb924e0ace://oauth?code=071MME2c1SUdTr0j2B4c1k4D2c1MME2F&state=xxx
//wx53440afb924e0ace 这个是项目WXID 请联系客服获取
Dim 跳转连接="wxa932d071d0f12af2://oauth?code="&CODE&"&state="&STATE
/////////////////////使用默认浏览器打开跳转连接即可完成跳转/////////////////////////
zm.OpenURL(跳转连接)
End If
```