.版本 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.标题 ＝ titlevideolink ＝ JSON1.取通用属性 (“videolink”)packageUrl ＝ JSON1.取通用属性 (“packageUrl”)mp4 ＝ JSON1.取通用属性 (“mp4”)swf ＝ JSON1.取通用属性 (“swf_link”)m3u8编辑框.内容 ＝ videolinkmp4编辑框.内容 ＝ 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, 类_jsonID ＝ 选择列表框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 ()
