本文共 1763 字，大约阅读时间需要 5 分钟。

.版本 2.支持库 spec.程序集 程序集1.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行.局部变量 i, 整数型.局部变量 源代码, 文本型.局部变量 详细页地址, 文本型.局部变量 目的地址, 文本型, , "0".局部变量 标题, 文本型.局部变量 j, 整数型.局部变量 导演, 文本型.局部变量 主要演员, 文本型.局部变量 类型, 文本型.局部变量 地区, 文本型.局部变量 剧情介绍, 文本型.局部变量 播放链接, 文本型, , "0".局部变量 播放链接汇总, 文本型.局部变量 k, 整数型.局部变量 封面地址, 文本型.局部变量 返回信息, 文本型.局部变量 总页数, 整数型.局部变量 当前页, 文本型总页数 ＝ 431' 标准输出 (1, “开始页数:”)' 当前页 ＝ 标准输入 ()' i ＝ 到整数 (当前页).计次循环首 (总页数, i)    写到文件 (取运行目录 () ＋ “/confuig.ini”, 到字节集 (“当前页:” ＋ 到文本 (i)))    源代码 ＝ 网页_访问S (“http://www.okzy.me/?m=vod-index-pg-” ＋ 到文本 (i) ＋ “.html”, 0, , , )    文本_取中间_批量 (源代码, #目的地址1, #目的地址2, 目的地址, , , )    .计次循环首 (取数组成员数 (目的地址), j)        详细页地址 ＝ 网页_访问S (“http://www.okzy.me” ＋ 目的地址 [j], 0, , , )        ' 调试输出 (详细页地址)        标题 ＝ 文本_取出中间文本 (详细页地址, #标题1, #标题2, , )        导演 ＝ 文本_取出中间文本 (详细页地址, #导演1, #导演2, , )        主要演员 ＝ 文本_取出中间文本 (详细页地址, #主演1, #主演2, )        类型 ＝ 文本_取出中间文本 (详细页地址, #类型1, #类型2, )        地区 ＝ 文本_取出中间文本 (详细页地址, #地区1, #地区2, )        剧情介绍 ＝ 文本_取出中间文本 (详细页地址, #剧情介绍1, #剧情介绍2, )        ' 播放链接 ＝ 文本_取出中间文本 (详细页地址, #影片地址1, #影片地址2, )        封面地址 ＝ 文本_取出中间文本 (详细页地址, #封面1, #封面2, )        调试输出 (文本_取出中间文本 (详细页地址, #KuyunBox1, #KuyumBox2, ))        文本_取中间_批量 (文本_取出中间文本 (详细页地址, #KuyunBox1, #KuyumBox2, ), #影片地址1, #影片地址2, 播放链接, )        播放链接汇总 ＝ “”        .计次循环首 (取数组成员数 (播放链接), k)            播放链接汇总 ＝ 播放链接汇总 ＋ “” ＋ 播放链接 [k] ＋ “ 
”            ' 调试输出 (“名称:” ＋ 标题 ＋ “链接:” ＋ 播放链接 [k])        .计次循环尾 ()                标准输出 (1, #换行符 ＋ “电影名称:” ＋ 标题 ＋ #换行符 ＋ “导演:” ＋ 导演 ＋ #换行符 ＋ “主要演员:” ＋ 主要演员 ＋ #换行符 ＋ “类型:” ＋ 类型 ＋ “地区:” ＋ 地区 ＋ #换行符 ＋ “剧情介绍:” ＋ 封面地址 ＋ #换行符  ＋ #换行符)        调试输出 (标题)        调试输出 (导演)        调试输出 (主要演员)        调试输出 (类型)        调试输出 (地区)        调试输出 (剧情介绍)        调试输出 (封面地址)        调试输出 (播放链接汇总)        i ＝ i ＋ 1    .计次循环尾 ().计次循环尾 ()返回 (0)  ' 可以根据您的需要返回任意数值