如何使用易语言实现免费不限次数下载千图网图片(易语言,编程语言)

此功能配合精易模块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,假)－ac＝取文本中间(被寻找的文本,a,b)返回(c).子程序__启动窗口_创建完毕创建目录(取运行目录()＋“\data”)

运行结果：