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