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 ```