易语言免费免登陆不限次数下载千图网图片的代码

今天小编就为大家分享一篇关于易语言免费免登陆不限次数下载千图网图片的代码，小编觉得内容挺不错的，现在分享给大家，具有很好的参考价值，需要的朋友一起跟随小编来看看吧

免费免登陆下载千图网贴图，不限下载次数。

此功能配合精易模块5.6使用,需要加载模块.

				?

									.版本 2

									.支持库 internet

									.程序集 窗口程序集_启动窗口

									.子程序 _按钮1_被单击

									.局部变量 文件序号, 文本型

									.局部变量 网页源码, 文本型

									.局部变量 图片地址, 文本型

									.局部变量 网址中间, 文本型

									.局部变量 图片数据, 字节集

									.局部变量 格式, 文本型

									网页源码 ＝ 网页_访问S (编辑框1.内容)

									网址中间 ＝ 取中间文本 (网页源码, “src=” ＋ #引号 ＋ “http://”, “!/fw/1024/”)

									.如果真 (网址中间 ＝ “”)

									  信息框 (“查找失败!请输入正确免抠图千图网素材网址”, 0, , )

									  返回 ()

									.如果真结束

									图片地址 ＝ “http://” ＋ 网址中间

									文件序号 ＝ 取中间文本 (编辑框1.内容, “/newpic/”, “.html”)

									图片数据 ＝ HTTP读文件 (图片地址)

									.如果 (寻找文本 (网址中间, “.png”, , 假) ≠ -1)

									  格式 ＝ “.png”

									.否则

									  格式 ＝ “.jpg”

									.如果结束

									.如果 (写到文件 (取运行目录 () ＋ “\data\” ＋ 文件序号 ＋ 格式, 图片数据))

									  信息框 (“下载成功”, 0, , )

									.否则

									  信息框 (“下载失败”, 0, , )

									.如果结束

									.子程序 取中间文本, 文本型

									.参数 被寻找的文本, 文本型

									.参数 前面的文本, 文本型

									.参数 后面的文本, 文本型

									.局部变量 a, 整数型

									.局部变量 b, 整数型

									.局部变量 c, 文本型

									a ＝ 寻找文本 (被寻找的文本, 前面的文本, , 假) ＋ 取文本长度 (前面的文本)

									b ＝ 寻找文本 (被寻找的文本, 后面的文本, a, 假) － a

									c ＝ 取文本中间 (被寻找的文本, a, b)

									返回 (c)

									.子程序 __启动窗口_创建完毕

									创建目录 (取运行目录 () ＋ “\data”)