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

今天小编就为大家分享一篇关于易语言通过解析破解艾奇学院的收费视频的代码，小编觉得内容挺不错的，现在分享给大家，具有很好的参考价值，需要的朋友一起跟随小编来看看吧

常量数据表

				?

									.版本 2

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

艾奇学院收费视频破解的代码

此功能需要加载精易模块5.6

				?

									.版本 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 ()