下你所需,载你所想!
IT技术源码资料下载网站

爬取彼岸桌面壁纸

:213.963KB

:1:2021-09-03 14:53:35

部分简介

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

相关阅读

最近更新