.版本 2 .支持库 xplib .支持库 internet .支持库 iext .支持库 spec .程序集 窗口程序集_启动窗口, , , ' 本源码来自三叶资源网(www.sanye.cx) .程序集变量 网页, 整数型 .程序集变量 文件名, 整数型 .程序集变量 设置, 皮肤界面 .子程序 __启动窗口_创建完毕 标题 ＝ “————————————作者：阅读改变人生————————————” 网页 ＝ 1 ' 本源码来自三叶资源网(www.sanye.cx) XP风格 (3) 置随机数种子 () 创建目录 (“C:\爬虫图片”) 设置.创建 (#皮肤) 设置.设置色温 (102) .子程序 _按钮1_被单击 自动下载图片 () .子程序 自动下载图片 .局部变量 网页返回, 文本型 .局部变量 正则, 正则表达式类 .局部变量 计次, 整数型 .局部变量 A, 整数型, , , ' 本源码来自三叶资源网(www.sanye.cx) .局部变量 url地址, 文本型 .局部变量 url数组, 文本型, , "0" .局部变量 图片, 字节集 .局部变量 连接, 文本型 .局部变量 i, 整数型 .局部变量 url链接, 文本型 网页返回 ＝ 网页访问u (“http://soso.nipic.com/?q=花&page=” ＋ 到文本 (网页)) 正则.创建 (#常量2, 网页返回, 假, 真) .计次循环首 (正则.取匹配数量 (), 计次) url地址 ＝ 正则.取子匹配文本 (计次, 1) url数组 ＝ 分割文本 (url地址, #右引号, ) A ＝ 取数组成员数 (url数组) 连接 ＝ url数组 [A] i ＝ 取文本长度 (连接) i ＝ i － 2 ' 本源码来自三叶资源网(www.sanye.cx) url链接 ＝ 取文本左边 (连接, i) 图片 ＝ HTTP读文件 (url链接) 写到文件 (“C:\爬虫图片\” ＋ 到文本 (计次) ＋ 到文本 (取随机数 (, )) ＋ “.jpg”, 图片) 超级列表框1.插入表项 (0, , , , , ) 超级列表框1.置标题 (0, 0, url链接) 图片框1.图片 ＝ 图片 延时 (100) 标题 ＝ “已下载：” ＋ 到文本 (计次) .如果真 (正则.取匹配数量 () ＝ 计次) 网页 ＝ 网页 ＋ 1 自动下载图片 () .如果真结束 ' 本源码来自三叶资源网(www.sanye.cx) .计次循环尾 () .子程序 _按钮2_被单击 .局部变量 url数组, 文本型, , "0" .局部变量 图片, 字节集 .局部变量 连接, 文本型 .局部变量 i, 整数型 .局部变量 url链接, 文本型 .局部变量 计次, 整数型 .局部变量 网页返回, 文本型 .局部变量 正则, 正则表达式类 .局部变量 url地址, 文本型 .局部变量 A, 整数型 网页返回 ＝ 网页访问u (“http://soso.nipic.com/?q=花&page=” ＋ 到文本 (网页)) 正则.创建 (#常量2, 网页返回, 假, 真) .计次循环首 (正则.取匹配数量 (), 计次) url地址 ＝ 正则.取子匹配文本 (计次, 1) url数组 ＝ 分割文本 (url地址, #右引号, ) A ＝ 取数组成员数 (url数组) 连接 ＝ url数组 [A] i ＝ 取文本长度 (连接) ' 本源码来自三叶资源网(www.sanye.cx) i ＝ i － 2 url链接 ＝ 取文本左边 (连接, i) 图片 ＝ HTTP读文件 (url链接) 写到文件 (“C:\爬虫图片\” ＋ 到文本 (计次) ＋ 到文本 (取随机数 (, )) ＋ “.jpg”, 图片) 超级列表框1.插入表项 (0, , , , , ) 超级列表框1.置标题 (0, 0, url链接) 图片框1.图片 ＝ 图片 延时 (100) 标题 ＝ “已下载：” ＋ 到文本 (计次) .如果真 (正则.取匹配数量 () ＝ 计次) 网页 ＝ 网页 ＋ 1 .如果真结束 调试输出 (网页) .计次循环尾 ()