易语言通过解析破解艾奇学院的收费视频的代码

.版本 2
.常量 常量1, "<文本长度: 51>", , href="/home.php?m=Order&a=subCourseConfirm&id=.*?" rel="external nofollow" 

.版本 2
.支持库 iext
.支持库 HtmlView
.支持库 eAPI
.程序集 窗口程序集_启动窗口
.程序集变量 vid, 文本型
.程序集变量 章节, 整数型
.子程序 _获取按钮_被单击
.局部变量 网页源码, 文本型
.局部变量 code, 文本型
.局部变量 课程id, 文本型
.局部变量 ID正则, 正则表达式类
.局部变量 i, 整数型
.局部变量 表项, 整数型
课程id ＝ 文本_取出中间文本 (课程地址编辑框.内容, “http://www.27sem.com/course/details/”, “.html”, )
网页源码 ＝ 编码_utf8到gb2312 (到文本 (网页_访问 (“http://www.27sem.com/home.php?m=Course&a=details&id=” ＋ 课程id ＋ “&p=” ＋ 页数编辑框.内容)))
ID正则.创建 (“a=subCourseConfirm&id=(.+?)” ＋ #引号, 网页源码, , , , )
选择列表框1.清空 ()
.计次循环首 (ID正则.取匹配数量 (), i)
  选择列表框1.加入项目 (ID正则.取子匹配文本 (i, 1, ), )
.计次循环尾 ()
选择列表框1.现行选中项 ＝ 0
获取vid ()
.子程序 课程信息
.局部变量 地址源码, 文本型
.局部变量 JSON1, 类_json
.局部变量 mp4, 文本型
.局部变量 videolink, 文本型
.局部变量 packageUrl, 文本型
.局部变量 title, 文本型
.局部变量 swf, 文本型
地址源码 ＝ 编码_utf8到gb2312 (到文本 (网页_访问 (“http://player.polyv.net/videojson/” ＋ vid ＋ “.js”)))
JSON1.解析 (地址源码)
title ＝ JSON1.取通用属性 (“title”)
透明标签1.标题 ＝ title
videolink ＝ JSON1.取通用属性 (“videolink”)
packageUrl ＝ JSON1.取通用属性 (“packageUrl”)
mp4 ＝ JSON1.取通用属性 (“mp4”)
swf ＝ JSON1.取通用属性 (“swf_link”)
m3u8编辑框.内容 ＝ videolink
mp4编辑框.内容 ＝ mp4
下载地址编辑框.内容 ＝ packageUrl
浏览器播放编辑框.内容 ＝ “http://player.polyv.net/videos/player.swf?id=” ＋ vid ＋ “&code=GXj6zdgoRp1NimVFviFLgP8&watchEndTime=1115&autoplay=true&setScreen=16_9&watchStartTime=63.00&ban_history_time=on&vid=” ＋ vid ＋ “&start=-1&end=-1&”
.子程序 _m3u8按钮_被单击
超文本浏览框1.地址 ＝ “http://www.654320.com/ckplayer/ckplayer.swf?f=m3u8.swf&s=3&a=” ＋ m3u8编辑框.内容
.子程序 _mp4按钮_被单击
超文本浏览框1.地址 ＝ “http://www.654320.com/ckplayer/ckplayer.swf?f=” ＋ mp4编辑框.内容
.子程序 _视频下载按钮_被单击
打开指定网址 (下载地址编辑框.内容)
.子程序 _打开按钮_被单击
打开指定网址 (浏览器播放编辑框.内容)
.子程序 __启动窗口_创建完毕
.子程序 获取vid
.局部变量 ID, 文本型
.局部变量 数据源, 文本型
.局部变量 JSON, 类_json
ID ＝ 选择列表框1.取项目文本 (选择列表框1.现行选中项)
数据源 ＝ 编码_utf8到gb2312 (到文本 (网页_访问 (“http://www.27sem.com/home.php?m=Course&a=getCoursePlaying”, 1, “id=” ＋ ID ＋ “&code=GXj6zdgoRp1NimVFviFLgP8”, )))
JSON.解析 (数据源)
vid ＝ JSON.取通用属性 (“polyv_vid”)
课程信息 ()
.子程序 _选择列表框1_列表项被选择
获取vid ()