获取升学E网通（EWT）选择题答案
最近可能会将该软件移植到JS脚本由houtarchat移植的js脚本，适用于Tampermonkey®
其源码在 Github
Greasy Fork
1.下载 易语言 5.9 （破不破解都行自己喜欢）
2.导入 .e 源码至易语言
3.导入相关模块
4.修改、编译、发布
Q：为毛我编译出来的大小和MD5和你发布的版本不一样
A：使用了精易助手（易语言助手）里的智能编译，编译过程中会进行脱壳压缩后再进行加壳，所以大小和MD5不同
Q：为毛我编译出来的报毒了？
A：同上一问答案
Q: 编译提示动态链接失败
A：将VC链接器版本切换到VC8以下
https://web.ewt360.com/customerApi/api/studyprod/web/answer/quesiton/analysis?questionId=填写&paperId=填写&reportId=填写&platform=填写&bizCode=填写 PS:questionId需通过旧API获取(https://web.ewt360.com/customerApi/api/studyprod/web/answer/paper?paperId=填写&platform=填写&bizCode=填写&reportId=0&isRepeat=0 作者:solstice23)
.版本 2
.支持库 ExuiKrnln
.支持库 spec
.子程序 _按钮EX1_鼠标左键单击, 整数型
.参数 坐标x, 整数型
.参数 坐标y, 整数型
.参数 保留参数1, 整数型
.参数 保留参数2, 整数型
编辑框EX6.内容 ＝ “”
.如果 (选择夹EX1.现行子夹 ＝ 1)
' 切换界面
选择夹EX1.现行子夹 ＝ 0
创建缓动任务Ex (1, #缓动_二次方缓动_Out, -20, 8, 1, 动画速度, 到整数 (&事件_缓动任务回调), 0, , )
创建缓动任务Ex (1, #缓动_二次方缓动_Out, 0, 255, 1, 动画速度, 到整数 (&事件_缓动任务回调), 1, , )
' 暂时禁用按钮
暂停按钮事件 ()
返回 ()
.否则
编辑框EX1.内容 ＝ 编辑框EX1.内容 ＋ “&” ' 必须！！否则有些题目会获取不了
.如果结束
题号 ＝ 0
' 切换界面
选择夹EX1.现行子夹 ＝ 1
创建缓动任务Ex (1, #缓动_二次方缓动_Out, -20, 8, 1, 动画速度, 到整数 (&事件_缓动任务回调), 0, , ) ' 选择框缓动
' 暂时禁用按钮
暂停按钮事件 ()
' 获取paperId
paperId ＝ 文本_取出中间文本 (编辑框EX1.内容, “paperId=”, “&”, , )
' 获取platform
platform ＝ 文本_取出中间文本 (编辑框EX1.内容, “platform=”, “&”, , )
' 获取bizCode
bizCode ＝ 文本_取出中间文本 (编辑框EX1.内容, “bizCode=”, “&”, , )
' 给3个编辑框分别赋值
编辑框EX3.内容 ＝ paperId
编辑框EX4.内容 ＝ platform
编辑框EX5.内容 ＝ bizCode
' Cookie 更新、获取Cookie
Cookie ()
' 获取解析
获取网页数据 ()
获取id ()
.子程序 Cookie, , , 更新、获取cookie
.如果 (ewt_user ＝ “” 或 user ＝ “”)
信息框 (“Cookie为空，接下来将获取Cookie！”, 0, “错误”, )
载入 (登录器, , 真)
.否则
.如果结束
.如果 (文本_取出中间文本 (编码_utf8到gb2312 (网页_访问S (“https://web.ewt360.com/customerApi/api/studyprod/web/answer/paper?paperId=” ＋ paperId ＋ “&platform=” ＋ platform ＋ “&bizCode=” ＋ bizCode ＋ “&reportId=0&isRepeat=0”, 0, , “ewt_user=” ＋ ewt_user ＋ “;user=” ＋ user, , , , , , , , , , , , , , , , , )), “msg” ＋ #引号 ＋ “:” ＋ #引号, #引号 ＋ “,” ＋ #引号, , ) ＝ “页面失效，请重新登录”)
调试输出 (编码_utf8到gb2312 (网页_访问S (“https://web.ewt360.com/customerApi/api/studyprod/web/answer/paper?paperId=” ＋ paperId ＋ “&platform=” ＋ platform ＋ “&bizCode=” ＋ bizCode ＋ “&reportId=0&isRepeat=0”, 0, , “ewt_user=” ＋ ewt_user ＋ “;user=” ＋ user, , , , , , , , , , , , , , , , , )))
信息框 (“Cookie失效，接下来将重新获取Cookie！”, 0, “错误”, )
载入 (登录器, , 真)
.否则
.如果结束
.子程序 获取网页数据, , , 获取网页数据
' https://web.ewt360.com/customerApi/api/studyprod/web/answer/paper?paperId=填写&platform=填写&bizCode=填写&reportId=0&isRepeat=0 ewt流出的API 用来获取questionId
答题页面数据 ＝ 编码_utf8到gb2312 (网页_访问S (“https://web.ewt360.com/customerApi/api/studyprod/web/answer/paper?paperId=” ＋ paperId ＋ “&platform=” ＋ platform ＋ “&bizCode=” ＋ bizCode ＋ “&reportId=0&isRepeat=0”, 0, , “ewt_user=” ＋ ewt_user ＋ “;user=” ＋ user, , , , , , , , , , , , , , , , , ))
调试输出 (“https://web.ewt360.com/customerApi/api/studyprod/web/answer/paper?paperId=” ＋ paperId ＋ “&platform=” ＋ platform ＋ “&bizCode=” ＋ bizCode ＋ “&reportId=0&isRepeat=0”)
调试输出 (答题页面数据)
.子程序 获取id, , , 拆分解析数据
.局部变量 questionId, 文本型
' 重点！！！！这里写了好久，所以特意把注释写的非常详细，慢慢看
' 重点！！！！这里写了好久，所以特意把注释写的非常详细，慢慢看
' 重点！！！！这里写了好久，所以特意把注释写的非常详细，慢慢看
questionId ＝ “null” ' 初始化变量，不然循环跑不起来！！
' 已弃用
' |这里先跑一次防止最前面的ID获取不了！！是[{ 不是 },{
' |questionId ＝ 文本_取出中间文本 (答题页面数据, “[{” ＋ #引号 ＋ “id” ＋ #引号 ＋ “:” ＋ #引号, #引号 ＋ “,” ＋ #引号 ＋ “scoreCriterion”, , )
' |答题页面数据 ＝ 子文本替换 (答题页面数据, “[{” ＋ #引号 ＋ “id” ＋ #引号 ＋ “:” ＋ #引号 ＋ questionId ＋ #引号 ＋ “,” ＋ #引号 ＋ “scoreCriterion”, “ ”, , , 假)
' |获取答案 (questionId) ' 传递questionId为 获取答案的参数
编辑框EX7.内容 ＝ questionId
延迟 (1)
' 一个简单的循环，如果id为空时停止循环（就是判断获取完没）
.判断循环首 (questionId ≠ “”)
' 取出文本，但有些在这里取出会有问题所以下面还加个判断再处理一次
questionId ＝ 文本_取出中间文本 (答题页面数据, “{” ＋ #引号 ＋ “id” ＋ #引号 ＋ “:” ＋ #引号, #引号 ＋ “,” ＋ #引号 ＋ “scoreCriterion”, , )
' 正常取出是没有“ID”这给字符串的，应该为整数数据，所以如果questionId里有“id”则进行处理
.如果真 (文本_寻找文本 (questionId, “id”, , ) ≠ -1) ' 找到了就执行下面
questionId ＝ questionId ＋ “!” ' 加个标识符，不然下面行运行不了
questionId ＝ 文本_取出中间文本 (questionId, “{” ＋ #引号 ＋ “id” ＋ #引号 ＋ “:” ＋ #引号, “!”, , ) ' 取id
调试输出 (“一次过滤”)
.如果真结束
' 有时取出来还是有问题的，但里面没有“id”所以判断是否有“title”
.如果真 (文本_寻找文本 (questionId, “title”, , ) ≠ -1)
questionId ＝ questionId ＋ “!”
questionId ＝ 文本_取出中间文本 (questionId, “{” ＋ #引号 ＋ “id” ＋ #引号 ＋ “:” ＋ #引号, “!”, , )
调试输出 (“二次过滤”)
.如果真结束
.判断循环首 (文本_寻找文本 (questionId, “title”, , ) ≠ -1)
questionId ＝ questionId ＋ “!”
questionId ＝ 文本_取出中间文本 (questionId, “{” ＋ #引号 ＋ “id” ＋ #引号 ＋ “:” ＋ #引号, “!”, , )
调试输出 (“n次过滤”)
.判断循环尾 ()
' 取完后删除取出的文本（替换成“”）避免干扰，不然只会一直取出一个数据
答题页面数据 ＝ 子文本替换 (答题页面数据, “{” ＋ #引号 ＋ “id” ＋ #引号 ＋ “:” ＋ #引号 ＋ questionId ＋ #引号 ＋ “,” ＋ #引号 ＋ “scoreCriterion”, “ ”, , , 假)
.如果 (小题数 ≠ 0) ' 通过为真这跳过获取答案子程序
小题数 ＝ 小题数 － 1
.否则
获取答案 (questionId) ' 传递questionId为 获取答案的参数
.如果结束
编辑框EX7.内容 ＝ questionId
延迟 (1)
调试输出 (“ID” ＋ questionId)
.判断循环尾 ()
.子程序 获取答案, , , 调用api获取答案
.参数 questionId, 文本型
.局部变量 正确答案, 文本型
.局部变量 答案网页数据, 文本型
' “https://web.ewt360.com/customerApi/api/studyprod/web/answer/quesiton/analysis?questionId=填写&paperId=填写&reportId=填写&platform=填写&bizCode=填写” EWT新流出的API
' 发现 By 志成zhi_cheng#2885
正确答案 ＝ “null” ' 初始化
答案网页数据 ＝ 编码_utf8到gb2312 (网页_访问S (“https://web.ewt360.com/customerApi/api/studyprod/web/answer/quesiton/analysis?questionId=” ＋ questionId ＋ “&paperId=” ＋ paperId ＋ “&reportId=1&platform=” ＋ platform ＋ “&bizCode=” ＋ bizCode, 0, , “ewt_user=” ＋ ewt_user ＋ “;user=” ＋ user, , , , , , , , , , , , , , , , , ))
题号 ＝ 题号 ＋ 1
.判断循环首 (正确答案 ≠ “”)
正确答案 ＝ 文本_取出中间文本 (答案网页数据, “rightAnswer” ＋ #引号 ＋ “:[” ＋ #引号, #引号 ＋ “]”, , )
' 取完后删除取出的文本（替换成“”）避免干扰，不然只会一直取出一个数据
答案网页数据 ＝ 子文本替换 (答案网页数据, “rightAnswer” ＋ #引号 ＋ “:[” ＋ #引号, “ ”, , 1, 假) ' 我是**，因为这里没写全导致排
.如果真 (正确答案 ＝ “”) ' 如果取到的是 空 就跳出循环
跳出循环 ()
.如果真结束
' 对HTML预留字符进行替换（如果有的话）
正确答案 ＝ 子文本替换 (正确答案, “ ”, “ ”, , , 真) ' 空格
正确答案 ＝ 子文本替换 (正确答案, “<”, “<”, , , 真) ' <
正确答案 ＝ 子文本替换 (正确答案, “>”, “>”, , , 真) ' <
正确答案 ＝ 子文本替换 (正确答案, “&”, “&”, , , 真) ' &
正确答案 ＝ 子文本替换 (正确答案, “"”, #引号, , , 真) ' "
正确答案 ＝ 子文本替换 (正确答案, “'”, “,”, , , 真) ' ,
调试输出 (“————————————————————”)
调试输出 (文本_取出中间文本 (答案网页数据, “rightAnswer” ＋ #引号 ＋ “:[” ＋ #引号, #引号 ＋ “]”, , ))
小题数 ＝ 小题数 ＋ 1
编辑框EX6.内容 ＝ 编辑框EX6.内容 ＋ 到文本 (题号) ＋ “（” ＋ 到文本 (小题数) ＋ “）” ＋ “:” ＋ 正确答案 ＋ “!” ＋ #换行符
.如果真 (窗口_是否存在 (“悬浮窗”) ≠ 0)
悬浮窗.刷新 ()
.如果真结束
延迟 (1)
.判断循环尾 ()
.如果真 (小题数 ＝ 1) ' 1=单题，要重置一下，不然会漏掉，我当时又**了Debug了一个小时才想到
小题数 ＝ 0
```#