网站首页 > 易语言相关 > 网络相关源码 正文
.版本 2 .支持库 spec .支持库 dp1 .程序集 程序集1 .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码 _临时子程序 () ' 在初始化代码执行完毕后调用测试代码 返回 (0) ' 可以根据您的需要返回任意数值 .子程序 _临时子程序 .局部变量 a, 文本型 ' 本名称子程序用作测试程序用,仅在开发及调试环境中有效,编译发布程序前将被系统自动清空,请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。 ' 提示 加壳工具作者用的改版 你们请 置入代码自行删掉或自行加上结束 ' 子程序1 () ' 调试输出 (取随机安卓id ()) ' 调试输出 (yd_发送验证码 (“18883322791”, “65be2a5f0df788f9”, “E4:46:DA:47:FD:DE”)) ' 手机号登陆 (“15583268896”, “1234”) ' 调试输出 (yd_关注 (“65be2a5f0df788f9”, “1A:80:B1:CB:EC:96”, “609d2f7e7b8c38bad58592769cebdd75”, “eyJ0eXAiOiJKV1QiLCJhbGciOiJIUzI1NiJ9.eyJpZCI6MzIwMjYwNjksImV4cGlyZV9hdCI6IjIwMjAtMDQtMjIgMjA6MTM6MTcgKzA4MDAiLCJkZXZpY2VfaWQiOiI2NWJlMmE1ZjBkZjc4OGY5IiwiZ2lvaWQiOiI0OGVhMWZmMS1hYWZhLTMzY2ItYTRiOS04NWY0NDk5YTdkMWMiLCJ5ZGlkIjoiNTJiZjE0Y2QtMjUwMi00NmQ2LWE3Y2EtMmYwZTFkMDk2Mzc3XyIsImNoYW5uZWxfbmFtZSI6Im1hcmtldF9ndWFud2FuZyJ9.3eibPi6U2Wm_dRIuhtQWok5fth9VX2LZOhazowWj_lk”, , , “504cabb682f75682f85fd42579f00d9d”)) ' yd_私信 (“65be2a5f0df788f9”, “1A:80:B1:CB:EC:96”, “609d2f7e7b8c38bad58592769cebdd75”, “eyJ0eXAiOiJKV1QiLCJhbGciOiJIUzI1NiJ9.eyJpZCI6MzIwMjYwNjksImV4cGlyZV9hdCI6IjIwMjAtMDQtMjIgMjA6MTM6MTcgKzA4MDAiLCJkZXZpY2VfaWQiOiI2NWJlMmE1ZjBkZjc4OGY5IiwiZ2lvaWQiOiI0OGVhMWZmMS1hYWZhLTMzY2ItYTRiOS04NWY0NDk5YTdkMWMiLCJ5ZGlkIjoiNTJiZjE0Y2QtMjUwMi00NmQ2LWE3Y2EtMmYwZTFkMDk2Mzc3XyIsImNoYW5uZWxfbmFtZSI6Im1hcmtldF9ndWFud2FuZyJ9.3eibPi6U2Wm_dRIuhtQWok5fth9VX2LZOhazowWj_lk”, “121.497859”, “31.247678”, “3680609397”, “你打我的”) .子程序 yd_专用app_post, 文本型, , 伊对专用 .参数 api, 文本型, , 请求地址 .参数 请求方式, 文本型, , GET post PUT .参数 post_data, 文本型, 可空, 请求参数 .参数 IMEI, 文本型, , 协议头 IMEI(device_id ) 例 IMEI: 65be2a5f0df788f9 .参数 MAC, 文本型, , 协议头 MAC 例 MAC: E4:46:DA:47:FD:DE .参数 MEMBERID, 文本型, 可空, 协议头 MEMBERID(ID) 例 MEMBERID: 609d2f7e7b8c38bad58592769cebdd75 .参数 Authorization, 文本型, 可空, 协议头 Authorization(token) 例 Authorization: eyJ0eXAiOiJKV1QiLCJhbGciOiJIUzI1NiJ9.eyJpZCI6MzIwMjYwNjksImV4cGlyZV9hdCI6IjIwMjAtMDQtM......... .参数 Longitude, 文本型, 可空, 经度 Longitude: 121.497859 为空用默认 .参数 Latitude, 文本型, 可空, 维度 Latitude: 31.247678 为空用默认 .参数 Content, 文本型, 可空, Content-Type 私聊用:“multipart/form-data; boundary=f24e9601-e65f-494f-9a5d-0c51b44a1f6c” .局部变量 http, WinHttpR .局部变量 局_提交协议头, 文本型 .局部变量 局_返回, 文本型 置入代码 (#VM开始_超级) 置入代码 (#VM函数头保护) http.Auto (真) http.Open (请求方式, api) http.SetRequestHeader (“APIKEY”, “7e08df24”) http.SetRequestHeader (“CODETAG”, “yidui-6.9.4”) http.SetRequestHeader (“CHANNEL”, “market_guanwang”) http.SetRequestHeader (“IMEI”, IMEI) http.SetRequestHeader (“IMEI1”, “”) http.SetRequestHeader (“MEID”, “”) http.SetRequestHeader (“OAID”, “”) http.SetRequestHeader (“Android-Id”, IMEI) http.SetRequestHeader (“MAC”, “”) http.SetRequestHeader (“WIFIMAC”, MAC) http.SetRequestHeader (“MEMBERID”, MEMBERID) http.SetRequestHeader (“OsVersion”, “5.1.1”) http.SetRequestHeader (“brand”, “HUAWEI”) http.SetRequestHeader (“User-Agent”, “Yidui-Android-Mozilla/5.0 (Linux; Android 5.1.1; DUK-AL20 Build/LMY48Z; wv) AppleWebKit/537.36 (KHTML, like Gecko) Version/4.0 Chrome/52.0.2743.100 Safari/537.36”) http.SetRequestHeader (“Timestamp”, “”) .如果真 (Longitude = “”) Longitude = “121.497859” .如果真结束 .如果真 (Latitude = “”) Longitude = “31.247678” .如果真结束 http.SetRequestHeader (“WifiAddr”, “”) http.SetRequestHeader (“WifiName”, “”) http.SetRequestHeader (“Longitude”, Longitude) http.SetRequestHeader (“Latitude”, Latitude) http.SetRequestHeader (“Authorization”, Authorization) .如果真 (请求方式 ≠ “PUT”) .如果 (是否为空 (Content) = 真) http.SetRequestHeader (“Content-Type”, “application/json; charset=UTF-8”) .否则 http.SetRequestHeader (“Content-Type”, Content) .如果结束 .如果真结束 http.SetRequestHeader (“Host”, “api.520yidui.com”) http.SetRequestHeader (“Connection”, “Keep-Alive”) .如果 (是否为空 (post_data) = 假) http.Send (post_data, ) .否则 http.Send (, ) .如果结束 局_返回 = http.GetResponseTextUtf8ToAnsi () 返回 (局_返回) .子程序 yd_发送验证码, 文本型, , 成功返回“成功” 失败返回原结果 .参数 手机号, 文本型 .参数 IMEI, 文本型, , 协议头 IMEI(device_id ) 例 IMEI: 65be2a5f0df788f9 .参数 MAC, 文本型, , 协议头 MAC 例 MAC: E4:46:DA:47:FD:DE .参数 Longitude, 文本型, 可空, 经度 Longitude: 121.497859 为空用默认 .参数 Latitude, 文本型, 可空, 维度 Latitude: 31.247678 为空用默认 .局部变量 时间10位, 文本型 .局部变量 sign, 文本型 .局部变量 局_结果, 文本型 置入代码 (#VM开始_超级) 置入代码 (#VM函数头保护) 时间10位 = 时间_取现行时间戳 (真) sign = 校验_取md5 (到字节集 (时间10位 + “.” + 文本_取随机数字 (6, 0))) 局_结果 = yd_专用app_post (“https://api.520yidui.com/v2/auths/send_captcha.json?”, “PUT”, “phone=” + 手机号 + “×tamp=” + 时间10位 + “&sign=” + sign, IMEI, MAC, , , Latitude, Latitude) 调试输出 (局_结果) ' {"result":"success"} .如果 (寻找文本 (局_结果, “result” + #引号 + “:” + #引号 + “success” + #引号, , 假) ≠ -1) 返回 (“成功”) .否则 返回 (局_结果) .如果结束 .子程序 yd_手机号登陆, 文本型, , 验证码》 返回 验证码错误 登陆》成功返回f_CHANNEL以下所有参数 且 返回 空 失败返回原结果 .参数 手机号, 文本型 .参数 验证码, 文本型 .参数 IMEI, 文本型, , 协议头 IMEI(device_id ) 例 IMEI: 65be2a5f0df788f9 .参数 MAC, 文本型, , 协议头 MAC 例 MAC: E4:46:DA:47:FD:DE .参数 Longitude, 文本型, 可空, 经度 Longitude: 121.497859 为空用默认 .参数 Latitude, 文本型, 可空, 维度 Latitude: 31.247678 为空用默认 .参数 f_MEMBERID, 文本型, 参考 可空, 登陆ID .参数 f_Authorization, 文本型, 参考 可空, 登陆TOKEN .参数 nickname, 文本型, 参考 可空, 登陆昵称 .局部变量 局_结果, 文本型 .局部变量 js, 类_json .局部变量 id, 文本型 .局部变量 code, 文本型 .局部变量 device_id, 文本型 .局部变量 cs, 文本型 .局部变量 token, 文本型 .局部变量 局_nickname, 文本型 置入代码 (#VM开始_超级) 置入代码 (#VM函数头保护) device_id = “0000” + 时间_到时间戳 (取现行时间 ()) 局_结果 = yd_专用app_post (“https://api.520yidui.com/v2/auths/phone_auth.json?phone=” + 手机号 + “&captcha=” + 验证码 + “&unique_id=” + device_id, “post”, , IMEI, MAC, , , Longitude, Latitude) ' {"code":50100,"error":"验证码错误"} ' {"id":"609d2f7e7b8c38bad58592769cebdd75","token":"638d06d74c3fe53be5392736536e349b61d8a8aaec5fac3f152eb8f3838f72ff","rose_count":1,"bucket_action_id":null,"first_paid_at":0,"register_at":1563442489,"age":25,"nickname":"不拘小节的大象","sex":0,"location_id":16,"action":"login","consume_rose_count":1,"is_vip":false,"vip":false,"avatar":{"url":"https://img.520yidui.com/uploads/tuiguang/image/2017-12-19/_20171125090856.jpg","status":2},"is_matchmaker":false,"phone_validate":true} .如果 (取文本长度 (局_结果) < 25) 返回 (“验证码错误”) .否则 js.解析 (局_结果) id = js.取通用属性 (“id”) code = js.取通用属性 (“token”) 局_nickname = js.取通用属性 (“nickname”) ' {"code":"638d06d74c3fe53be5392736536e349b61d8a8aaec5fac3f152eb8f3838f72ff","id":"609d2f7e7b8c38bad58592769cebdd75","info":{"device_id":"00001587534271640","mac":"E4:46:DA:47:FD:DE"}} ‘登陆过 ' {"auth_id":"960e94bf3197926e4c9f197f0e7ce20e","nickname":"正直的柑橘"} ‘未登录过 .如果真 (id = “” 或 code = “”) 调试输出 (“未注册未注册未注册未注册未注册token|” + code) id = js.取通用属性 (“auth_id”) 局_nickname = js.取通用属性 (“nickname”) cs = 子文本替换 (#未注册提交, “auth_id_”, id, , , 真) cs = 子文本替换 (cs, “device_mac_”, MAC, , , 真) cs = 子文本替换 (cs, “nickname_”, 局_nickname, , , 真) ' https://api.520yidui.com/v2/members/create.json ' {"api_key":"7e08df24","auth_id":"960e94bf3197926e4c9f197f0e7ce20e","channel_key":"market_guanwang","device_mac":"1A:80:B1:CB:EC:96","device_token":"McJ_jfg9R1DZStlERcZZo_QOytxZRZJERc+_j1MWy_s5yKDoyRgnR7Soy_yOo5oZyZRRjtAGjcJE55yWocSvj1dVoc+OjcMoR5DEjcJ_jcMRRR5VyoRJjcyjoRyRj1ZWjc+WRkRGoZyRR1ZoRZSOoZZGRRJZocyvRcMvo1+QRZ+ooZDQQRQGjtougfeHsf+ZZ_JsnK75Z5DZs9gAWfeURZMZs9gAWfeURZMZyH_35KeFntx_o_e4Z5xnyK_qQRDvRkRWRRMvQRDZRtRvQRMZRc00","education":-1,"marriage":0,"member":{"birthday":"1996-01-01","city_id":0,"height":0,"location_id":1,"nickname":"正直的柑橘","push_channel":"getui","push_id":"fbe99da5e813b0aa75aa33e37b2ac393","sex":0},"salary":0} ' {"api_key":"7e08df24","auth_id":"auth_id_","channel_key":"market_guanwang","device_mac":"device_mac_","device_token":"","education":-1,"marriage":0,"member":{"birthday":"","city_id":0,"height":0,"location_id":1,"nickname":"nickname_","push_channel":"getui","push_id":"","sex":0},"salary":0} 局_结果 = yd_专用app_post (“https://api.520yidui.com/v2/members/create.json”, “post”, cs, IMEI, MAC, id, , Longitude, Latitude) 调试输出 (局_结果) js.解析 (局_结果) id = js.取通用属性 (“id”) code = js.取通用属性 (“token”) 局_nickname = js.取通用属性 (“nickname”) .如果真结束 cs = 子文本替换 (#login_js_cs, “code_”, code, , , 真) cs = 子文本替换 (cs, “id_”, id, , , 真) 局_结果 = yd_专用app_post (“https://api.520yidui.com/v2/login.json”, “post”, cs, IMEI, MAC, id, , Longitude, Latitude) js.解析 (局_结果) token = js.取通用属性 (“token”) .如果 (token ≠ “”) f_MEMBERID = id f_Authorization = token nickname = 局_nickname 返回 (“”) .否则 返回 (局_结果) .如果结束 .如果结束 返回 (“”) .子程序 yd_取随机MAC, 文本型, , 随机返回一个MAC地址 .局部变量 临时整数, 整数型 .局部变量 l1, 整数型 .局部变量 MAC, 文本型 .计次循环首 (6, l1) 临时整数 = 到整数 (文本_取随机范围数字 (16, 255)) ' 代表16进制的00-FF范围 .如果真 (l1 = 1) .如果真 (临时整数 % 2 = 1) ' 取随机数后判断是否为偶数不是就+1 .判断开始 (临时整数 = 255) 临时整数 = 临时整数 - 1 .默认 临时整数 = 临时整数 + 1 .判断结束 .如果真结束 .如果真结束 .判断开始 (l1 = 6) ' 判断否是最后一组是就不加分隔符 MAC = MAC + 取十六进制文本 (临时整数) .默认 MAC = MAC + 取十六进制文本 (临时整数) + “:” .判断结束 .计次循环尾 () 返回 (MAC) .子程序 yd_取随机安卓id, 文本型 取数据摘要 (到字节集 (文本_取随机字符 (20) + 文本_取随机汉字 (3))) 返回 (取文本左边 (取数据摘要 (到字节集 (文本_取随机字符 (20) + 文本_取随机汉字 (3))), 16)) .子程序 yd_关注, 文本型, , 成功返回conversation_id 失败返回 “失败” .参数 IMEI, 文本型, , 协议头 IMEI(device_id ) 例 IMEI: 65be2a5f0df788f9 .参数 MAC, 文本型, , 协议头 MAC 例 MAC: E4:46:DA:47:FD:DE .参数 MEMBERID, 文本型, , 登陆账号ID .参数 Authorization, 文本型, , 登陆账号token .参数 Longitude, 文本型, 可空, 经度 Longitude: 121.497859 为空用默认 .参数 Latitude, 文本型, 可空, 维度 Latitude: 31.247678 为空用默认 .参数 member_id, 文本型, , 被关注ID 例 504cabb682f75682f85fd42579f00d9d .局部变量 局_结果, 文本型 .局部变量 js, 类_json .局部变量 conversation_id, 文本型 置入代码 (#VM开始_超级) 置入代码 (#VM函数头保护) 局_结果 = yd_专用app_post (“https://api.520yidui.com/v3/relations/follow?member_id=” + member_id, “post”, , IMEI, MAC, MEMBERID, Authorization, Longitude, Latitude) js.解析 (局_结果) conversation_id = js.取通用属性 (“conversation_id”) ' {"conversation_id":"3680647780","result":"success"} .如果 (conversation_id = “”) 返回 (“失败”) .否则 返回 (conversation_id) .如果结束 .子程序 yd_私信 .参数 IMEI, 文本型, , 协议头 IMEI(device_id ) 例 IMEI: 65be2a5f0df788f9 .参数 MAC, 文本型, , 协议头 MAC 例 MAC: E4:46:DA:47:FD:DE .参数 MEMBERID, 文本型, , 登陆账号ID .参数 Authorization, 文本型, , 登陆账号token .参数 Longitude, 文本型, 可空, 经度 Longitude: 121.497859 为空用默认 .参数 Latitude, 文本型, 可空, 维度 Latitude: 31.247678 为空用默认 .参数 conversation_id, 文本型, , 私聊对象ID 例 3680647780 .参数 私聊内容, 文本型, , 私聊内容 .局部变量 局_结果, 文本型 .局部变量 cs, 文本型 置入代码 (#VM开始_超级) 置入代码 (#VM函数头保护) cs = 子文本替换 (#私信_cs, “在吗”, 私聊内容, , , 真) 局_结果 = yd_专用app_post (“https://api.520yidui.com/v2/conversations/” + conversation_id + “/msgs.json?member_id=” + MEMBERID + “&meta_type=text&scene_type=default&scene_id=0&is_copy=0&enter_time=1061”, “post”, cs, IMEI, MAC, MEMBERID, Authorization, Longitude, Latitude, “multipart/form-data; boundary=f24e9601-e65f-494f-9a5d-0c51b44a1f6c”) 调试输出 (局_结果)
@a102128
- 上一篇: 一键备份易语言超级列表框数据
- 下一篇: 易语言Fiddler拦截源码
猜你喜欢
- 2025-01-03 夸克网盘扫码登录+账号信息查询源码
- 2024-09-13 精易web浏览器采集例子 dd373游戏网
- 2024-09-12 Brotli (br)压缩/解压动态库调用方法,支持进度压缩/解压
- 2024-09-11 QQ空间二维码登录源码
- 2024-04-07 最新NT框架可用QQ群验证
- 2024-03-21 蓝奏云直链解析纯协议源码
- 2024-03-20 基于E2EE的无状态认证JsonWebToken算法、常用Web算法模块
- 2024-03-18 YoLo8本地cpu识别源码
- 2024-03-16 搜索引擎 下拉关键词例子 支持百d\搜狗\必应\搜狗手机版
- 2024-03-15 ZIP解压缩模块源码
你 发表评论:
欢迎- 百度站内搜索
- 关注微信公众号
- 网站分类
-
- 网站公告
- 电子书书籍
- 程序员工具箱
- 编程工具
- 易语言相关
- 网络相关源码
- 图形图像源码
- 系统工具源码
- 易语言模块源码
- 易语言支持库
- 数据库类源码
- 易语言例程
- 易语言游戏开发
- 易语言模块
- 多媒体类源码
- 易语言资源网
- 易语言视频教程
- JS分析教程
- 易语言图文教程
- 易语言常见问题及笔记
- 工具源码
- 易语言版本
- 网络编程
- javascript
- PHP编程
- html
- 正则表达式
- 面试题
- nodejs
- 其它综合
- 脚本专栏
- python
- 按键精灵相关
- 按键精灵图文教程
- 按键精灵视频教程
- 按键精灵Q语言
- 按键精灵安卓版
- golang
- 游戏安全
- 火山相关
- 火山安卓软件
- 火山常见问题及笔记
- 火山安卓源码
- 火山视频教程
- 火山PC版本下载
- 火山PC视窗例程
- 互联网那些事
- 引流推广
- 项目揭秘
- 网络营销
- 营销软件
- QQ营销软件
- 娱乐软件
- 机器人插件
- 培训教程
- 技术教程
- 活动线报
- 数据库
- Redis
- Access
- MongoDB
- Mysql
- 问答
- 其它
- 易语言
- 需求
- 在线教程
- 多线程培训班
- 觅风易语言教程
- 模拟系列教程
- 集中营易语言教程
- 历史数据
- 随机tag
已有1位网友发表了看法:
易语言教程站 评论于 [2020-06-16 20:01:41] 回复
api.520yidui.com