单选组件多次点击后程序无相应，求指教

笑孤城 · 发表于 2021-8-7 16:43:58

如题，，程序点几下之后，就没响应了，问题解决即最处理，小白请指教，代码附上：

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口
变量名	类型	数组	备注
n	整数型
url	文本型
句柄_获取目录	整数型
句柄_获取图片	整数型
目录图片	文本型	0
妹子图	文本型	0
目录网址	文本型	0

子程序名	返回值类型	公开	备注
__启动窗口_创建完毕

程序_禁止重复运行 (“重复运行”, 真, “程序已运行”, , )
皮肤_加载 ( #皮肤_简约清爽, , )
url ＝ #秀人网
句柄_获取目录＝线程_启动 (&加载内容, , )
单选框1.选中＝真

子程序名	返回值类型	公开	备注
_单选框1_被单击

如果真 (线程_取状态 (句柄_获取图片) ＝ 1)

线程_销毁 (句柄_获取图片)

处理事件 ()

如果真 (线程_取状态 (句柄_获取目录) ＝ 1)

线程_销毁 (句柄_获取目录)

处理事件 ()
url ＝ #秀人网
句柄_获取目录＝线程_启动 (&加载内容, , )
单选框1.选中＝真

子程序名	返回值类型	公开	备注
_单选框2_被单击

如果真 (线程_取状态 (句柄_获取图片) ＝ 1)

线程_销毁 (句柄_获取图片)

处理事件 ()

如果真 (线程_取状态 (句柄_获取目录) ＝ 1)

线程_销毁 (句柄_获取目录)

处理事件 ()
url ＝ #蜜桃社
句柄_获取目录＝线程_启动 (&加载内容, , )
单选框2.选中＝真

子程序名	返回值类型	公开	备注
_单选框3_被单击

如果真 (线程_取状态 (句柄_获取图片) ＝ 1)

线程_销毁 (句柄_获取图片)

处理事件 ()

如果真 (线程_取状态 (句柄_获取目录) ＝ 1)

线程_销毁 (句柄_获取目录)

处理事件 ()
url ＝ #尤蜜荟
句柄_获取目录＝线程_启动 (&加载内容, , )
单选框3.选中＝真

子程序名	返回值类型	公开	备注
_单选框4_被单击

如果真 (线程_取状态 (句柄_获取图片) ＝ 1)

线程_销毁 (句柄_获取图片)

处理事件 ()

如果真 (线程_取状态 (句柄_获取目录) ＝ 1)

线程_销毁 (句柄_获取目录)

处理事件 ()
url ＝ #尤果网
句柄_获取目录＝线程_启动 (&加载内容, , )
单选框4.选中＝真

子程序名	返回值类型	公开	备注
_单选框5_被单击

如果真 (线程_取状态 (句柄_获取图片) ＝ 1)

线程_销毁 (句柄_获取图片)

处理事件 ()

如果真 (线程_取状态 (句柄_获取目录) ＝ 1)

线程_销毁 (句柄_获取目录)

处理事件 ()
url ＝ #嗲囡囡
句柄_获取目录＝线程_启动 (&加载内容, , )
单选框5.选中＝真

子程序名	返回值类型	公开	备注
_单选框6_被单击

如果真 (线程_取状态 (句柄_获取图片) ＝ 1)

线程_销毁 (句柄_获取图片)

处理事件 ()

如果真 (线程_取状态 (句柄_获取目录) ＝ 1)

线程_销毁 (句柄_获取目录)

处理事件 ()
url ＝ #美媛馆
句柄_获取目录＝线程_启动 (&加载内容, , )
单选框6.选中＝真

子程序名	返回值类型	公开	备注
_单选框7_被单击

如果真 (线程_取状态 (句柄_获取图片) ＝ 1)

线程_销毁 (句柄_获取图片)

处理事件 ()

如果真 (线程_取状态 (句柄_获取目录) ＝ 1)

线程_销毁 (句柄_获取目录)

处理事件 ()
url ＝ #ROSI写真
句柄_获取目录＝线程_启动 (&加载内容, , )
单选框7.选中＝真

子程序名	返回值类型	公开	备注
_单选框8_被单击

如果真 (线程_取状态 (句柄_获取图片) ＝ 1)

线程_销毁 (句柄_获取图片)

处理事件 ()

如果真 (线程_取状态 (句柄_获取目录) ＝ 1)

线程_销毁 (句柄_获取目录)

处理事件 ()
url ＝ #青豆客
句柄_获取目录＝线程_启动 (&加载内容, , )
单选框8.选中＝真

子程序名	返回值类型	公开	备注
_单选框9_被单击

如果真 (线程_取状态 (句柄_获取图片) ＝ 1)

线程_销毁 (句柄_获取图片)

处理事件 ()

如果真 (线程_取状态 (句柄_获取目录) ＝ 1)

线程_销毁 (句柄_获取目录)

处理事件 ()
url ＝ #模范学院
句柄_获取目录＝线程_启动 (&加载内容, , )
单选框9.选中＝真

子程序名	返回值类型	公开	备注
_单选框10_被单击

如果真 (线程_取状态 (句柄_获取图片) ＝ 1)

线程_销毁 (句柄_获取图片)

处理事件 ()

如果真 (线程_取状态 (句柄_获取目录) ＝ 1)

线程_销毁 (句柄_获取目录)

处理事件 ()
url ＝ #美腿宝贝
句柄_获取目录＝线程_启动 (&加载内容, , )
单选框10.选中＝真

子程序名	返回值类型	公开	备注
加载内容

变量名	类型	静态	数组	备注
页数	整数型
o	整数型
内容	文本型
目录_正则	正则表达式类
u	整数型
索引	整数型
网址	文本型

线程_初始化COM库 ()
页数＝到整数 (文本_取出中间文本 (到文本 (网页_访问 (url, 0, , , , #协议头, , , , , , , )), “共 ”, “页”, , ))
' 调试输出 (文本_取出中间文本 (url, “b/”, “/”, , ))
超级列表框1.全部删除 ()
清除数组 (目录网址)
清除数组 (目录图片)
' 调试输出 (页数)

计次循环首 (页数, o)

网址＝ url ＋ “list_” ＋文本_取出中间文本 (url, “b/”, “/”, , ) ＋ “_” ＋到文本 (o) ＋ “.html”

内容＝到文本 (网页_访问 (网址, , , , , , , , , , , , ))

调试输出 (网址)

目录_正则.创建 ( #目录_正则, 内容, , , , )

计次循环首 (目录_正则.取匹配数量 (), u)

超级列表框1.插入表项 (, , , , , )

超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 0, 到文本 (超级列表框1.取表项数 ()))

超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 1, 目录_正则.取子匹配文本 (u, 2, ))

加入成员 (目录网址, 目录_正则.取子匹配文本 (u, 1, ))

加入成员 (目录图片, 目录_正则.取子匹配文本 (u, 3, ))

计次循环尾 ()

计次循环尾 ()
线程_取消COM库 ()

子程序名	返回值类型	公开	备注
_超级列表框1_左键单击表项

如果真 (线程_取状态 (句柄_获取图片) ＝ 1)

强制结束线程 (句柄_获取图片)

处理事件 ()
n ＝ 0
按钮2.禁止＝假
线程_初始化COM库 ()
句柄_获取图片＝线程_启动 (&获取图片, , 句柄_获取图片)
透明标签1.标题＝ “”

子程序名	返回值类型	公开	备注
获取图片

变量名	类型	静态	数组	备注
妹子页	文本型
页数	整数型
o	整数型
图片页	文本型
图片_正则	正则表达式类
i	整数型
u	整数型
妹子网址	文本型
选中项	整数型

线程_初始化COM库 ()
选中项＝超级列表框1.现行选中项
标题＝超级列表框1.取标题 (选中项, 1)

如果真 (标题 ≠ “”)

图片框1.图片＝ HTTP读文件 (目录图片 [超级列表框1.现行选中项＋ 1])

清除数组 (妹子图)

按钮1.禁止＝真

妹子网址＝目录网址 [选中项＋ 1]

妹子页＝到文本 (网页_访问 (妹子网址, , , , , #协议头, , , , , , , ))

' 调试输出 (目录网址 [超级列表框1.现行选中项＋ 1])

' 调试输出 (妹子页)

页数＝到整数 (文本_取出中间文本 (妹子页, “共”, “页”, , ))

计次循环首 (页数, i)

图片页＝文本_取左边 (妹子网址, “.html”, , ) ＋ “_” ＋到文本 (i) ＋ “.html”

如果真 (i ＝ 1)

图片页＝妹子网址

图片_正则.创建 ( #图片_正则, 到文本 (网页_访问 (图片页, , , , , #协议头, , , , , , , )), , , , )

' 调试输出 (到文本 (网页_访问 (图片页, , , , , , , , , , , , )))

计次循环首 (图片_正则.取匹配数量 (), u)

加入成员 (妹子图, 图片_正则.取子匹配文本 (u, 1, ))

如果 (n ＝ 0)

透明标签1.标题＝ “首页 / 共” ＋到文本 (取数组成员数 (妹子图)) ＋ “张”

透明标签1.标题＝ “第” ＋到文本 (u) ＋ “张 / 共” ＋到文本 (取数组成员数 (妹子图)) ＋ “张”

' 调试输出 (图片_正则.取子匹配文本 (u, 1, ))

计次循环尾 ()

计次循环尾 ()
线程_取消COM库 ()

子程序名	返回值类型	公开	备注
_按钮1_被单击

如果真 (n ＞ 1)

n ＝ n － 1

如果真 (n ＜取数组成员数 (妹子图))

按钮2.禁止＝假

图片框1.图片＝ HTTP读文件 (妹子图 [n])

透明标签1.标题＝ “第” ＋到文本 (n) ＋ “张 / 共” ＋到文本 (取数组成员数 (妹子图)) ＋ “张”

如果真 (n ＝ 1)

按钮1.禁止＝真

子程序名	返回值类型	公开	备注
_按钮2_被单击

如果真 (n ＜取数组成员数 (妹子图))

n ＝ n ＋ 1

如果真 (n ＞ 1)

按钮1.禁止＝假

图片框1.图片＝ HTTP读文件 (妹子图 [n])

透明标签1.标题＝ “第” ＋到文本 (n) ＋ “张 / 共” ＋到文本 (取数组成员数 (妹子图)) ＋ “张”

如果真 (n ＝取数组成员数 (妹子图))

按钮2.禁止＝真

子程序名	返回值类型	公开	备注
_超级列表框1_右键单击表项

弹出菜单 (菜单, 取鼠标水平位置 (), 取鼠标垂直位置 ())

子程序名	返回值类型	公开	备注
_下载_被选择

变量名	类型	静态	数组	备注
选中项	整数型		0
命名	文本型		0
ID	整数型
i	整数型

加入成员 (选中项, 超级列表框1.现行选中项)
加入成员 (命名, 超级列表框1.取标题 (超级列表框1.现行选中项, 1))
i ＝ i ＋ 1
线程_启动多参_文本型 (&图片下载, 选中项 [i], 命名 [i], , , , ID)

子程序名	返回值类型	公开	备注
图片下载
参数名	类型	参考	可空	数组	备注
参数一	整数型
参数二	文本型

变量名	类型	静态	数组	备注
图片_正则	正则表达式类
妹子网址	文本型
妹子页	文本型
页数	整数型
i	整数型
图片页	文本型
u	整数型

线程_初始化COM库 ()

如果真 (文件是否存在 (取运行目录 () ＋ “/” ＋标题) ＝假)

目录_创建 (取运行目录 () ＋ “/” ＋标题)
妹子网址＝目录网址 [参数一＋ 1]
妹子页＝到文本 (网页_访问 (妹子网址, , , , , #协议头, , , , , , , ))
' 调试输出 (目录网址 [超级列表框1.现行选中项＋ 1])
' 调试输出 (妹子页)
页数＝到整数 (文本_取出中间文本 (妹子页, “共”, “页”, , ))

计次循环首 (页数, i)

图片页＝文本_取左边 (妹子网址, “.html”, , ) ＋ “_” ＋到文本 (i) ＋ “.html”

如果真 (i ＝ 1)

图片页＝妹子网址

图片_正则.创建 ( #图片_正则, 到文本 (网页_访问 (图片页, , , , , #协议头, , , , , , , )), , , , )

' 调试输出 (到文本 (网页_访问 (图片页, , , , , , , , , , , , )))

计次循环首 (图片_正则.取匹配数量 (), u)

写到文件 (取运行目录 () ＋ “/” ＋参数二＋ “/” ＋取文本右边 (图片_正则.取子匹配文本 (u, 1, ), 19), HTTP读文件 (图片_正则.取子匹配文本 (u, 1, )))

计次循环尾 ()

计次循环尾 ()
线程_取消COM库 ()

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库
EThread	多线程支持库
internet	互联网支持库

.版本 2<br />
.支持库 iext<br />
.支持库 spec<br />
.支持库 EThread<br />
.支持库 internet<br />
<br />
.程序集 窗口程序集_启动窗口<br />
.程序集变量 n, 整数型<br />
.程序集变量 url, 文本型<br />
.程序集变量 句柄_获取目录, 整数型<br />
.程序集变量 句柄_获取图片, 整数型<br />
.程序集变量 目录图片, 文本型, , "0"<br />
.程序集变量 妹子图, 文本型, , "0"<br />
.程序集变量 目录网址, 文本型, , "0"<br />
<br />
.子程序 __启动窗口_创建完毕<br />
<br />
程序_禁止重复运行 (“重复运行”, 真, “程序已运行”, , )<br />
皮肤_加载 (#皮肤_简约清爽, , )<br />
url ＝ #秀人网<br />
句柄_获取目录 ＝ 线程_启动 (&加载内容, , )<br />
单选框1.选中 ＝ 真<br />
<br />
.子程序 _单选框1_被单击<br />
<br />
.如果真 (线程_取状态 (句柄_获取图片) ＝ 1)<br />
    线程_销毁 (句柄_获取图片)<br />
    处理事件 ()<br />
.如果真结束<br />
.如果真 (线程_取状态 (句柄_获取目录) ＝ 1)<br />
    线程_销毁 (句柄_获取目录)<br />
    处理事件 ()<br />
.如果真结束<br />
url ＝ #秀人网<br />
句柄_获取目录 ＝ 线程_启动 (&加载内容, , )<br />
单选框1.选中 ＝ 真<br />
<br />
.子程序 _单选框2_被单击<br />
<br />
.如果真 (线程_取状态 (句柄_获取图片) ＝ 1)<br />
    线程_销毁 (句柄_获取图片)<br />
    处理事件 ()<br />
.如果真结束<br />
.如果真 (线程_取状态 (句柄_获取目录) ＝ 1)<br />
    线程_销毁 (句柄_获取目录)<br />
    处理事件 ()<br />
.如果真结束<br />
url ＝ #蜜桃社<br />
句柄_获取目录 ＝ 线程_启动 (&加载内容, , )<br />
单选框2.选中 ＝ 真<br />
<br />
.子程序 _单选框3_被单击<br />
<br />
.如果真 (线程_取状态 (句柄_获取图片) ＝ 1)<br />
    线程_销毁 (句柄_获取图片)<br />
    处理事件 ()<br />
.如果真结束<br />
.如果真 (线程_取状态 (句柄_获取目录) ＝ 1)<br />
    线程_销毁 (句柄_获取目录)<br />
    处理事件 ()<br />
.如果真结束<br />
url ＝ #尤蜜荟<br />
句柄_获取目录 ＝ 线程_启动 (&加载内容, , )<br />
单选框3.选中 ＝ 真<br />
<br />
.子程序 _单选框4_被单击<br />
<br />
.如果真 (线程_取状态 (句柄_获取图片) ＝ 1)<br />
    线程_销毁 (句柄_获取图片)<br />
    处理事件 ()<br />
.如果真结束<br />
.如果真 (线程_取状态 (句柄_获取目录) ＝ 1)<br />
    线程_销毁 (句柄_获取目录)<br />
    处理事件 ()<br />
.如果真结束<br />
url ＝ #尤果网<br />
句柄_获取目录 ＝ 线程_启动 (&加载内容, , )<br />
单选框4.选中 ＝ 真<br />
<br />
.子程序 _单选框5_被单击<br />
<br />
.如果真 (线程_取状态 (句柄_获取图片) ＝ 1)<br />
    线程_销毁 (句柄_获取图片)<br />
    处理事件 ()<br />
.如果真结束<br />
.如果真 (线程_取状态 (句柄_获取目录) ＝ 1)<br />
    线程_销毁 (句柄_获取目录)<br />
    处理事件 ()<br />
.如果真结束<br />
url ＝ #嗲囡囡<br />
句柄_获取目录 ＝ 线程_启动 (&加载内容, , )<br />
单选框5.选中 ＝ 真<br />
<br />
.子程序 _单选框6_被单击<br />
<br />
.如果真 (线程_取状态 (句柄_获取图片) ＝ 1)<br />
    线程_销毁 (句柄_获取图片)<br />
    处理事件 ()<br />
.如果真结束<br />
.如果真 (线程_取状态 (句柄_获取目录) ＝ 1)<br />
    线程_销毁 (句柄_获取目录)<br />
    处理事件 ()<br />
.如果真结束<br />
url ＝ #美媛馆<br />
句柄_获取目录 ＝ 线程_启动 (&加载内容, , )<br />
单选框6.选中 ＝ 真<br />
<br />
.子程序 _单选框7_被单击<br />
<br />
.如果真 (线程_取状态 (句柄_获取图片) ＝ 1)<br />
    线程_销毁 (句柄_获取图片)<br />
    处理事件 ()<br />
.如果真结束<br />
.如果真 (线程_取状态 (句柄_获取目录) ＝ 1)<br />
    线程_销毁 (句柄_获取目录)<br />
    处理事件 ()<br />
.如果真结束<br />
url ＝ #ROSI写真<br />
句柄_获取目录 ＝ 线程_启动 (&加载内容, , )<br />
单选框7.选中 ＝ 真<br />
<br />
.子程序 _单选框8_被单击<br />
<br />
.如果真 (线程_取状态 (句柄_获取图片) ＝ 1)<br />
    线程_销毁 (句柄_获取图片)<br />
    处理事件 ()<br />
.如果真结束<br />
.如果真 (线程_取状态 (句柄_获取目录) ＝ 1)<br />
    线程_销毁 (句柄_获取目录)<br />
    处理事件 ()<br />
.如果真结束<br />
url ＝ #青豆客<br />
句柄_获取目录 ＝ 线程_启动 (&加载内容, , )<br />
单选框8.选中 ＝ 真<br />
<br />
.子程序 _单选框9_被单击<br />
<br />
.如果真 (线程_取状态 (句柄_获取图片) ＝ 1)<br />
    线程_销毁 (句柄_获取图片)<br />
    处理事件 ()<br />
.如果真结束<br />
.如果真 (线程_取状态 (句柄_获取目录) ＝ 1)<br />
    线程_销毁 (句柄_获取目录)<br />
    处理事件 ()<br />
.如果真结束<br />
url ＝ #模范学院<br />
句柄_获取目录 ＝ 线程_启动 (&加载内容, , )<br />
单选框9.选中 ＝ 真<br />
<br />
.子程序 _单选框10_被单击<br />
<br />
.如果真 (线程_取状态 (句柄_获取图片) ＝ 1)<br />
    线程_销毁 (句柄_获取图片)<br />
    处理事件 ()<br />
.如果真结束<br />
.如果真 (线程_取状态 (句柄_获取目录) ＝ 1)<br />
    线程_销毁 (句柄_获取目录)<br />
    处理事件 ()<br />
.如果真结束<br />
url ＝ #美腿宝贝<br />
句柄_获取目录 ＝ 线程_启动 (&加载内容, , )<br />
单选框10.选中 ＝ 真<br />
<br />
.子程序 加载内容<br />
.局部变量 页数, 整数型<br />
.局部变量 o, 整数型<br />
.局部变量 内容, 文本型<br />
.局部变量 目录_正则, 正则表达式类<br />
.局部变量 u, 整数型<br />
.局部变量 索引, 整数型<br />
.局部变量 网址, 文本型<br />
<br />
线程_初始化COM库 ()<br />
页数 ＝ 到整数 (文本_取出中间文本 (到文本 (网页_访问 (url, 0, , , , #协议头, , , , , , , )), “共 <strong>”, “</strong>页”, , ))<br />
' 调试输出 (文本_取出中间文本 (url, “b/”, “/”, , ))<br />
超级列表框1.全部删除 ()<br />
清除数组 (目录网址)<br />
清除数组 (目录图片)<br />
' 调试输出 (页数)<br />
.计次循环首 (页数, o)<br />
    网址 ＝ url ＋ “list_” ＋ 文本_取出中间文本 (url, “b/”, “/”, , ) ＋ “_” ＋ 到文本 (o) ＋ “.html”<br />
    内容 ＝ 到文本 (网页_访问 (网址, , , , , , , , , , , , ))<br />
    调试输出 (网址)<br />
    目录_正则.创建 (#目录_正则, 内容, , , , )<br />
    .计次循环首 (目录_正则.取匹配数量 (), u)<br />
        超级列表框1.插入表项 (, , , , , )<br />
        超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 0, 到文本 (超级列表框1.取表项数 ()))<br />
        超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 1, 目录_正则.取子匹配文本 (u, 2, ))<br />
        加入成员 (目录网址, 目录_正则.取子匹配文本 (u, 1, ))<br />
        加入成员 (目录图片, 目录_正则.取子匹配文本 (u, 3, ))<br />
    .计次循环尾 ()<br />
.计次循环尾 ()<br />
线程_取消COM库 ()<br />
<br />
.子程序 _超级列表框1_左键单击表项<br />
<br />
.如果真 (线程_取状态 (句柄_获取图片) ＝ 1)<br />
    强制结束线程 (句柄_获取图片)<br />
    处理事件 ()<br />
.如果真结束<br />
n ＝ 0<br />
按钮2.禁止 ＝ 假<br />
线程_初始化COM库 ()<br />
句柄_获取图片 ＝ 线程_启动 (&获取图片, , 句柄_获取图片)<br />
透明标签1.标题 ＝ “”<br />
<br />
.子程序 获取图片<br />
.局部变量 妹子页, 文本型<br />
.局部变量 页数, 整数型<br />
.局部变量 o, 整数型<br />
.局部变量 图片页, 文本型<br />
.局部变量 图片_正则, 正则表达式类<br />
.局部变量 i, 整数型<br />
.局部变量 u, 整数型<br />
.局部变量 妹子网址, 文本型<br />
.局部变量 选中项, 整数型<br />
<br />
线程_初始化COM库 ()<br />
选中项 ＝ 超级列表框1.现行选中项<br />
标题 ＝ 超级列表框1.取标题 (选中项, 1)<br />
.如果真 (标题 ≠ “”)<br />
    图片框1.图片 ＝ HTTP读文件 (目录图片 [超级列表框1.现行选中项 ＋ 1])<br />
    清除数组 (妹子图)<br />
    按钮1.禁止 ＝ 真<br />
    妹子网址 ＝ 目录网址 [选中项 ＋ 1]<br />
    妹子页 ＝ 到文本 (网页_访问 (妹子网址, , , , , #协议头, , , , , , , ))<br />
    ' 调试输出 (目录网址 [超级列表框1.现行选中项 ＋ 1])<br />
    ' 调试输出 (妹子页)<br />
    页数 ＝ 到整数 (文本_取出中间文本 (妹子页, “共”, “页”, , ))<br />
    .计次循环首 (页数, i)<br />
        图片页 ＝ 文本_取左边 (妹子网址, “.html”, , ) ＋ “_” ＋ 到文本 (i) ＋ “.html”<br />
        .如果真 (i ＝ 1)<br />
            图片页 ＝ 妹子网址<br />
        .如果真结束<br />
        图片_正则.创建 (#图片_正则, 到文本 (网页_访问 (图片页, , , , , #协议头, , , , , , , )), , , , )<br />
        ' 调试输出 (到文本 (网页_访问 (图片页, , , , , , , , , , , , )))<br />
        .计次循环首 (图片_正则.取匹配数量 (), u)<br />
            加入成员 (妹子图, 图片_正则.取子匹配文本 (u, 1, ))<br />
            .如果 (n ＝ 0)<br />
                透明标签1.标题 ＝ “首页 / 共” ＋ 到文本 (取数组成员数 (妹子图)) ＋ “张”<br />
            .否则<br />
                透明标签1.标题 ＝ “第” ＋ 到文本 (u) ＋ “张 / 共” ＋ 到文本 (取数组成员数 (妹子图)) ＋ “张”<br />
            .如果结束<br />
            ' 调试输出 (图片_正则.取子匹配文本 (u, 1, ))<br />
        .计次循环尾 ()<br />
    .计次循环尾 ()<br />
.如果真结束<br />
线程_取消COM库 ()<br />
<br />
.子程序 _按钮1_被单击<br />
<br />
.如果真 (n ＞ 1)<br />
    n ＝ n － 1<br />
    .如果真 (n ＜ 取数组成员数 (妹子图))<br />
        按钮2.禁止 ＝ 假<br />
    .如果真结束<br />
    图片框1.图片 ＝ HTTP读文件 (妹子图 [n])<br />
    透明标签1.标题 ＝ “第” ＋ 到文本 (n) ＋ “张 / 共” ＋ 到文本 (取数组成员数 (妹子图)) ＋ “张”<br />
    .如果真 (n ＝ 1)<br />
        按钮1.禁止 ＝ 真<br />
    .如果真结束<br />
<br />
.如果真结束<br />
<br />
<br />
.子程序 _按钮2_被单击<br />
<br />
.如果真 (n ＜ 取数组成员数 (妹子图))<br />
    n ＝ n ＋ 1<br />
    .如果真 (n ＞ 1)<br />
        按钮1.禁止 ＝ 假<br />
    .如果真结束<br />
    图片框1.图片 ＝ HTTP读文件 (妹子图 [n])<br />
    透明标签1.标题 ＝ “第” ＋ 到文本 (n) ＋ “张 / 共” ＋ 到文本 (取数组成员数 (妹子图)) ＋ “张”<br />
    .如果真 (n ＝ 取数组成员数 (妹子图))<br />
        按钮2.禁止 ＝ 真<br />
    .如果真结束<br />
<br />
.如果真结束<br />
<br />
<br />
.子程序 _超级列表框1_右键单击表项<br />
<br />
弹出菜单 (菜单, 取鼠标水平位置 (), 取鼠标垂直位置 ())<br />
<br />
<br />
.子程序 _下载_被选择<br />
.局部变量 选中项, 整数型, , "0"<br />
.局部变量 命名, 文本型, , "0"<br />
.局部变量 ID, 整数型<br />
.局部变量 i, 整数型<br />
<br />
加入成员 (选中项, 超级列表框1.现行选中项)<br />
加入成员 (命名, 超级列表框1.取标题 (超级列表框1.现行选中项, 1))<br />
i ＝ i ＋ 1<br />
线程_启动多参_文本型 (&图片下载, 选中项 <i>, 命名 <i>, , , , ID)<br />
<br />
.子程序 图片下载<br />
.参数 参数一, 整数型<br />
.参数 参数二, 文本型<br />
.局部变量 图片_正则, 正则表达式类<br />
.局部变量 妹子网址, 文本型<br />
.局部变量 妹子页, 文本型<br />
.局部变量 页数, 整数型<br />
.局部变量 i, 整数型<br />
.局部变量 图片页, 文本型<br />
.局部变量 u, 整数型<br />
<br />
线程_初始化COM库 ()<br />
.如果真 (文件是否存在 (取运行目录 () ＋ “/” ＋ 标题) ＝ 假)<br />
    目录_创建 (取运行目录 () ＋ “/” ＋ 标题)<br />
.如果真结束<br />
妹子网址 ＝ 目录网址 [参数一 ＋ 1]<br />
妹子页 ＝ 到文本 (网页_访问 (妹子网址, , , , , #协议头, , , , , , , ))<br />
' 调试输出 (目录网址 [超级列表框1.现行选中项 ＋ 1])<br />
' 调试输出 (妹子页)<br />
页数 ＝ 到整数 (文本_取出中间文本 (妹子页, “共”, “页”, , ))<br />
.计次循环首 (页数, i)<br />
    图片页 ＝ 文本_取左边 (妹子网址, “.html”, , ) ＋ “_” ＋ 到文本 (i) ＋ “.html”<br />
    .如果真 (i ＝ 1)<br />
        图片页 ＝ 妹子网址<br />
    .如果真结束<br />
    图片_正则.创建 (#图片_正则, 到文本 (网页_访问 (图片页, , , , , #协议头, , , , , , , )), , , , )<br />
    ' 调试输出 (到文本 (网页_访问 (图片页, , , , , , , , , , , , )))<br />
    .计次循环首 (图片_正则.取匹配数量 (), u)<br />
        写到文件 (取运行目录 () ＋ “/” ＋ 参数二 ＋ “/” ＋ 取文本右边 (图片_正则.取子匹配文本 (u, 1, ), 19), HTTP读文件 (图片_正则.取子匹配文本 (u, 1, )))<br />
    .计次循环尾 ()<br />
.计次循环尾 ()<br />
线程_取消COM库 ()