今天小编就为大家分享一篇关于易语言免费领取ofo小黄车三个月骑乘卡的代码，小编觉得内容挺不错的，现在分享给大家，具有很好的参考价值，需要的朋友一起跟随小编来看看吧
正文
易语言免费领取ofo小黄车三个月骑乘卡的代码
免费领取ofo小黄车三个月骑乘卡的代码
此功能需要加载精易模块5.6
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
.版本 2.支持库 EThread.程序集 窗口程序集_启动窗口.程序集变量 cookies, 文本型.子程序 __启动窗口_创建完毕.局部变量 返回, 文本型.子程序 _发送按钮_被单击启动线程 (&发送, , ).子程序 发送.局部变量 返回, 文本型返回 ＝ 编码_URL解码 (到文本 (网页_访问_对象 (“https://san.ofo.so/ofo/Api/activity/monthCard/verifyCode”, 1, “tel=” ＋ 手机号编辑框.内容, , cookies)), 真)提示编辑框.加入文本 (文本_取出中间文本 (返回, “msg” ＋ #引号 ＋ “:” ＋ #引号, #引号) ＋ #换行符).子程序 _领取按钮_被单击启动线程 (&领取, , ).子程序 领取.局部变量 返回, 文本型.局部变量 setcookies, 文本型.局部变量 token, 文本型返回 ＝ 编码_URL解码 (到文本 (网页_访问_对象 (“https://san.ofo.so/ofo/Api/login”, 1, “source=0&tel=” ＋ 手机号编辑框.内容 ＋ “&code=” ＋ 验证码编辑框.内容 ＋ “&idfa=”, cookies, setcookies)), 真)setcookies ＝ 网页_Cookie合并更新 (cookies, setcookies)token ＝ 文本_取出中间文本 (返回, “token” ＋ #引号 ＋ “:” ＋ #引号, #引号)提示编辑框.加入文本 (文本_取出中间文本 (返回, “msg” ＋ #引号 ＋ “:” ＋ #引号, #引号) ＋ #换行符).判断开始 (寻找文本 (返回, “登陆成功”, , 假) ≠ -1) 返回 ＝ 编码_URL解码 (到文本 (网页_访问_对象 (“https://product.api.ofo.com/ofo/Api/v1/card/receiveFreeCard”, 1, “token=” ＋ token ＋ “&source=0&productToken=3473e97559ee199d4520eccfa3c6ea9a&city=”, setcookies)), 真) .判断开始 (寻找文本 (返回, “操作成功”, , 假) ≠ -1) 提示编辑框.加入文本 (“成功领取月卡1张！等待10秒领取下一张” ＋ #换行符) .默认 提示编辑框.加入文本 (文本_取出中间文本 (返回, “msg” ＋ #引号 ＋ “:” ＋ #引号, #引号) ＋ #换行符) .判断结束 延时 (10000) 返回 ＝ 编码_URL解码 (到文本 (网页_访问_对象 (“https://product.api.ofo.com/ofo/Api/v1/card/receiveFreeCard”, 1, “token=” ＋ token ＋ “&source=0&productToken=1d665981aabdcabaaff37a641b8daf35&city=”, setcookies)), 真) .判断开始 (寻找文本 (返回, “操作成功”, , 假) ≠ -1) 提示编辑框.加入文本 (“成功领取月卡1张！等待10秒领取下一张” ＋ #换行符) .默认 提示编辑框.加入文本 (文本_取出中间文本 (返回, “msg” ＋ #引号 ＋ “:” ＋ #引号, #引号) ＋ #换行符) .判断结束 延时 (10000) 返回 ＝ 编码_URL解码 (到文本 (网页_访问_对象 (“https://product.api.ofo.com/ofo/Api/v1/card/receiveFreeCard”, 1, “token=” ＋ token ＋ “&source=0&productToken=1de2c01c82b0b52b3bad88033d17f6e5&city=”, setcookies)), 真) .判断开始 (寻找文本 (返回, “操作成功”, , 假) ≠ -1) 提示编辑框.加入文本 (“成功领取月卡1张！等待10秒领取下一张” ＋ #换行符) .默认 提示编辑框.加入文本 (文本_取出中间文本 (返回, “msg” ＋ #引号 ＋ “:” ＋ #引号, #引号) ＋ #换行符) .判断结束.默认.判断结束 |
运行结果：
总结
以上就是这篇文章的全部内容了，希望本文的内容对大家的学习或者工作具有一定的参考学习价值，谢谢大家对米米素材网的支持。如果你想了解更多相关内容请查看下面相关链接
发表评论