.版本 2 .支持库 iext .支持库 internet .支持库 eAPI .程序集 窗口程序集_启动窗口, , , ' 本源码来自三叶资源网(www.sanye.cx) .子程序 _按钮_开始采集_被单击 .局部变量 局_网址, 文本型 .局部变量 局_结果, 文本型 .局部变量 正则_取链接, 正则表达式类 .局部变量 正则_取图片1, 正则表达式类 .局部变量 正则_取图片2, 正则表达式类 .局部变量 i, 整数型, , , ' 本源码来自三叶资源网(www.sanye.cx) .局部变量 取到的链接, 文本型 .局部变量 正确的地址, 文本型 .局部变量 j, 整数型 .局部变量 保存路径, 文本型 .局部变量 文件名称, 文本型 .局部变量 翻译的结果, 文本型 .局部变量 第一次取到的文本, 文本型 状态条1.置文本 (1, “正在采集...”) 局_网址 ＝ “http://pngimg.com/letter/” ＋ 组合框1.取项目文本 (组合框1.现行选中项) 局_结果 ＝ 到文本 (编码_编码转换对象 (网页_访问_对象 (局_网址, 1, , , , , , , , , , , , , , , ), , , )) 正则_取链接.创建 (#正则取链接, 局_结果, , , , ) 创建目录 (取运行目录 () ＋ “\图库下载\” ＋ 组合框1.取项目文本 (组合框1.现行选中项)) 保存路径 ＝ 取运行目录 () ＋ “\图库下载\” ＋ 组合框1.取项目文本 (组合框1.现行选中项) ＋ “\” .计次循环首 (正则_取链接.取匹配数量 (), i) 系统_处理事件 () 标签_当前采集名称.标题 ＝ 正则_取链接.取子匹配文本 (i, 2, ) 进度条_总进度.最大位置 ＝ 正则_取链接.取匹配数量 () 进度条_总进度.位置 ＝ i 翻译的结果 ＝ 网页_文字翻译 (正则_取链接.取子匹配文本 (i, 2, )) 翻译的结果 ＝ 取文本左边 (翻译的结果, 取文本长度 (翻译的结果) － 1) .判断开始 (翻译的结果 ＝ “”) 文件名称 ＝ 正则_取链接.取子匹配文本 (i, 2, ) ＋ “【” ＋ 正则_取链接.取子匹配文本 (i, 3, ) ＋ “】” .默认 文件名称 ＝ 翻译的结果 ＋ “【” ＋ 正则_取链接.取子匹配文本 (i, 3, ) ＋ “】” .判断结束 创建目录 (保存路径 ＋ 文件名称) 程序_延时 (50, ) 取到的链接 ＝ 正则_取链接.取子匹配文本 (i, 1, ) 正确的地址 ＝ 编辑框_主页.内容 ＋ “/imgs” ＋ 取到的链接 局_结果 ＝ 到文本 (编码_编码转换对象 (网页_访问_对象 (正确的地址, 1, , , , , , , , , , , , , , , ), , , )) 正则_取图片1.创建 (#正则取图片1, 局_结果, , , , ) 第一次取到的文本 ＝ 正则_取图片1.取子匹配文本 (1, 1, ) 正则_取图片2.创建 (#正则取图片2, 第一次取到的文本, , , , ) .计次循环首 (正则_取图片2.取匹配数量 (), j) 系统_处理事件 () 进度条_当前进度.最大位置 ＝ 正则_取图片2.取匹配数量 () 进度条_当前进度.位置 ＝ j 取到的链接 ＝ 正则_取图片2.取子匹配文本 (j, 1, ) 正确的地址 ＝ 编辑框_主页.内容 ＋ 取到的链接 写到文件 (保存路径 ＋ 文件名称 ＋ “\” ＋ 到文本 (j) ＋ “.png”, HTTP读文件 (正确的地址)) 程序_延时 (100, ) .计次循环尾 () .计次循环尾 () 状态条1.置文本 (1, “采集完成...”) 提示框 (“采集完成。”, , “温馨提示：”, , ) .子程序 __启动窗口_创建完毕 创建目录 (取运行目录 () ＋ “\图库下载”) .子程序 _超级链接框_打开主页_鼠标左键被按下, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 打开指定网址 (编辑框_主页.内容)