优酷获取剧集例程源码

.版本 2
.支持库 iext
.支持库 eAPI

.程序集 窗口程序集1

.子程序 _按钮_获取剧集_被单击
.局部变量 网页源码, 文本型
.局部变量 正则, 正则表达式类
.局部变量 计次, 整数型
.局部变量 表项索引, 整数型

写到文件 (“gzip.dll”, #GzipDll)
.循环判断首 ()
    网页源码 ＝ 到文本 (网页_GZIP解压 (网页_访问 (编辑框_剧集网址.内容)))
    处理事件 ()
.循环判断尾 (网页源码 ＝ “”)
超级列表框_剧集.全部删除 ()
正则.创建 (#正则表达式, 网页源码)
.计次循环首 (正则.取匹配数量 (), 计次)
    表项索引 ＝ 超级列表框_剧集.插入表项 (, 到文本 (计次), , , , )
    超级列表框_剧集.置标题 (表项索引, 1, 正则.取子匹配文本 (计次, 1))
    超级列表框_剧集.置标题 (表项索引, 2, “第” ＋ 正则.取子匹配文本 (计次, 2) ＋ “集”)
.计次循环尾 ()

.子程序 _超级列表框_剧集_被双击, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

.如果真 (超级列表框_剧集.现行选中项 ≠ -1)
    打开指定网址 (超级列表框_剧集.取标题 (超级列表框_剧集.现行选中项, 1))
.如果真结束


.子程序 __启动窗口_创建完毕

@易容术