爬取彼岸桌面壁纸

文本 ＝ http.GetResponseTextUtf8ToAnsi ()
正则1.创建 (#匹配图片链接, 文本, , , , )
文件名 ＝ “f:\美女\” ＋ 文本_取中间 (正则1.取子匹配文本 (1, 1, ), “/”, “.jpg”, 36, , , ) ＋ “.jpg”
调试输出 (文件名)
写到文件 (文件名, HTTP读文件 (正则1.取子匹配文本 (1, 1, )))
链接 ＝ 正则1.取子匹配文本 (1, 1, )
编辑框1.加入文本 (“写出第” ＋ 到文本 (k ＋ 1) ＋ “页,第” ＋ 到文本 (i) ＋ “图片成功!” ＋ #换行符 ＋ 链接 ＋ #换行符)