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

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

此功能配合精易模块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”)

运行结果：

总结

以上就是这篇文章的全部内容了，希望本文的内容对大家的学习或者工作具有一定的参考学习价值，谢谢大家对我们的支持。如果你想了解更多相关内容请查看下面相关链接

赞 (0)

相关推荐

  • 易语言多线程多任务下载器的代码

    易语言多线程多任务下载器的代码

    多线程多任务下载模块源码 1.DLL命令表 .版本 2 .DLL命令 InternetGetConnectedStateHTTP, , "Wininet.dll", "InternetGetConnectedState", 公开 .参数 lpdwFlags, 整数型, 传址 .参数 dwReserved, 整数型 .DLL命令 InternetOpenAHTTP, 整数型, "Wininet.dll", "InternetOpenA&q

  • 易语言监控smtp和反编译获取程序内邮件密码发送信息达到反钓鱼的目的

    易语言监控smtp和反编译获取程序内邮件密码发送信息达到反钓鱼的目的

    监控smtp和反编译获取程序内邮件密码.发送信息达到反钓鱼的目的 反邮箱钓鱼程序源码 .版本 2 .支持库 EThread .支持库 eAPI .支持库 xplib .支持库 edroptarget .支持库 pop3 .支持库 iext .程序集 窗口程序集1 .程序集变量 服务器, 文本型 .程序集变量 帐号, 文本型 .程序集变量 密码, 文本型 .子程序 _拖放对象1_得到文件 .参数 接收到的文件路径, 文本型 .局部变量 钓鱼软件, 字节集 .局部变量 邮箱位置, 整数型 .局部变量

  • 易语言调用百度图片识别实现的图片转表格的代码

    易语言调用百度图片识别实现的图片转表格的代码

    截图模块代码 .版本 2 .子程序 开始截图, 逻辑型, 公开, 截图成功返回真,图片被自动保存到剪贴板.失败或放弃截图则返回假. .参数 是否截取鼠标, 逻辑型, 可空 .参数 调节框颜色, 整数型, 可空, 默认:Red=10,Green=100,Blue=130 .参数 矩形信息框颜色, 整数型, 可空, 默认黑色 .参数 矩形信息字体颜色, 整数型, 可空, 默认黑色 .子程序 取剪贴板位图, 字节集, 公开 表格图片转表格源码 此功能需要加载精易模块5.6 .版本 2 .支持库 edr

  • 易语言随机生成MAC地址的代码

    易语言随机生成MAC地址的代码

    实现思路 相信大家都了解mac地址的重要性,每块网卡被生产出来后,都会有一个全球唯一的编号来标识自己,不会重复,这个编号就是MAC地址,也就是网卡的物理地址. 查阅了一些资料,16进制中第一组第二个数字一定是个偶数(十进制概念,不知道恰不恰当).也就是说第二个数字一定是0.2.4.6.8.A.C.E其中的一个. 源码原理,取随机数字16-255,判断是否为偶数不是就+1,这样第一组就出来了,然后我们用取十六进制文本将10进制转换成16进制,再循环随机5组就实现了我们的取随机MAC地址. 随机生成

  • 易语言制作推箱子小游戏的代码

    易语言制作推箱子小游戏的代码

    DLL命令表 .版本 2 .DLL命令 写配置文件, 整数型, , "WritePrivateProfileStringA", , 如果配置文件不存在则将被创建 .参数 小节名, 文本型, , 就是用中括号括起来的内容 .参数 项目名, 文本型, , 就是等号前边的内容 .参数 项目值, 文本型, , 就是等号后面的内容 .参数 文件名, 文本型, , 就是你要写入的那个文件 .DLL命令 读配置整数, 整数型, , "GetPrivateProfileIntA"

  • 易语言通过百度错误页面获取北京时间的代码

    易语言通过百度错误页面获取北京时间的代码

    利用百度取北京时间源码 .版本 2 .程序集 窗口程序集1 .子程序 __启动窗口_创建完毕 .局部变量 XML对象, 对象 .局部变量 时间文本, 文本型 .局部变量 网络时间, 日期时间型 .如果真 (XML对象.创建 ("WinHttp.WinHttpRequest.5.1", )) XML对象.方法 ("SetTimeouts", 5000, 5000, 10000, 5000) XML对象.写属性 ("Option", 6, 0) XM

  • 易语言调用墨迹天气实现自动定位获取天气情况的代码

    易语言调用墨迹天气实现自动定位获取天气情况的代码

    常量数据表 .版本 2 .常量 实况头, "<文本长度: 9>" .常量 实况尾, "<文本长度: 2>" .常量 更新时间头, "<文本长度: 28>" .常量 更新时间尾, "<文本长度: 9>" .常量 温度头, "<文本长度: 28>" .常量 温度尾, "<文本长度: 5>" .常量 空气质量头, &quo

  • 易语言通过时钟和计次循环来实现定时任务的代码

    易语言通过时钟和计次循环来实现定时任务的代码

    创建定时任务源码 .版本 2 .支持库 iext .支持库 eAPI .程序集 窗口程序集_启动窗口 .子程序 __启动窗口_创建完毕 .局部变量 i, 整数型 .计次循环首 (61, i) .如果真 (i < 25) 时组合框.加入项目 (到文本 (i - 1), ) .如果真结束 分组合框.加入项目 (到文本 (i - 1), ) 秒组合框.加入项目 (到文本 (i - 1), ) .计次循环尾 () 时组合框.现行选中项 ＝ 0 分组合框.现行选中项 ＝ 0 秒组合框.现行选中项 ＝ 0

  • 易语言超级列表框点击表头进行排序的代码

    易语言超级列表框点击表头进行排序的代码

    超级列表框排序模块源码 .版本 2 .支持库 iext .程序集 程序集1 .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码 _临时子程序 () ' 在初始化代码执行完毕后调用测试代码 返回 (0) ' 可以根据您的需要返回任意数值 .子程序 _临时子程序 ' 本名称子程序用作测试程序用,仅在开发及调试环境中有效,编译发布程序前将被系统自动清空,请将所有用作测试的临时代码放在本子程序中. 注意不要修改本子程序的名称.参数及返回值类型. .子程序 超级列表框排序, 整数型

  • 易语言修改快捷方式进行微信多开的代码

    易语言修改快捷方式进行微信多开的代码

    此功能配合精易模块使用,需要加载超级模块. 常量数据表 .版本 2 .常量 头, "<文本长度: 11>" .常量 尾, "<文本长度: 4>" .常量 头1, "<文本长度: 8>" .常量 尾1, "<文本长度: 12>" 微信多开的代码 .版本 2 .支持库 shell .支持库 eAPI .支持库 spec .程序集 窗口程序集_启动窗口 .子程序 _路径按钮_被单击 通

  • 易语言通过解析免费下载QQ付费音乐的代码

    易语言通过解析免费下载QQ付费音乐的代码

    常量数据表 .版本 2 .常量 链接1, "<文本长度: 9>" .常量 链接2, "<文本长度: 2>" QQ付费音乐下载器 此功能配合精易模块5.6使用,需要加载模块. .版本 2 .支持库 downlib .支持库 iext .支持库 spec .支持库 shell .程序集 窗口程序集_启动窗口 .程序集变量 任务, 任务参数 .程序集变量 下载限速, 整数型 .程序集变量 下载对象, 下载对象 .子程序 _按钮1_被单击 .如果 (

  • 易语言通过枚举密码进行破解rar压缩包文件的代码

    易语言通过枚举密码进行破解rar压缩包文件的代码

    rar密码破解源码 此功能需要加载精易模块5.6 .版本 2 .支持库 xplib .程序集 窗口程序集_启动窗口 .程序集变量 程序集_数组1, 文本型, , "0" .程序集变量 程序集_数组2, 文本型, , "0" .程序集变量 程序集_数组3, 文本型, , "0" .程序集变量 程序集_数组4, 文本型, , "0" .程序集变量 程序集_数组5, 文本型, , "0" .程序集变量 程序集_数

  • 易语言验证十八位身份证号码是否正确的代码

    易语言验证十八位身份证号码是否正确的代码

    常量数据表 .版本 2 .常量 行政划位码2, "<文本长度: 20409>", , 各区身份证前六位 .常量 行政划位码1, "<文本长度: 29990>", , 各区身份证前六位 验证十八位身份证号的代码 .版本 2 .程序集 程序集1 .子程序 验证身份证号, 逻辑型 .参数 十八位身份证号, 文本型 .局部变量 系数, 整数型, , "0" .局部变量 余数表, 整数型, , "0" .局部变量

  • 易语言制作一款唯美的cookie分析工具的代码

    易语言制作一款唯美的cookie分析工具的代码

    cookie分析源码 需要加载模块 Ex_DirectUI 3.0 DLL命令表 .版本 2 .DLL命令 GetBitmapBits, 整数型, "gdi32", "GetBitmapBits" .参数 hBitmap, 整数型 .参数 dwCount, 整数型 .参数 lpBits, 整数型 透明编辑框 .版本 2 .程序集 透明编辑框_EX, 编辑框_Ex .程序集变量 img, 整数型 .程序集变量 类_左边, 整数型 .程序集变量 类_顶边, 整数型 .子

  • 易语言实现反OD调试反复附加的代码

    DLL命令表 .版本 2 .DLL命令 ZwQueryInformationProcess, 整数型, "NTDLL.DLL" .参数 ProcessHandle, 整数型 .参数 ProcessInformationClass, 整数型 .参数 ProcessInformation, PROCESS_BASIC_INFORMATION .参数 ProcessInformationLength, 整数型 .参数 ReturnLength, 整数型, 传址 .DLL命令 OpenProc

随机推荐