返回顶部
首页 > 资讯 > 精选 >怎么用vbs结合wget实现下载网站图片
  • 875
分享到

怎么用vbs结合wget实现下载网站图片

2023-06-08 09:06:49 875人浏览 薄情痞子
摘要

本篇内容介绍了“怎么用vbs结合wget实现下载网站图片”的有关知识,在实际案例的操作过程中,不少人都会遇到这样的困境,接下来就让小编带领大家学习一下如何处理这些情况吧!希望大家仔细阅读,能够学有所成!vbs 函数过程:1. 调用wget:

本篇内容介绍了“怎么用vbs结合wget实现下载网站图片”的有关知识,在实际案例的操作过程中,不少人都会遇到这样的困境,接下来就让小编带领大家学习一下如何处理这些情况吧!希望大家仔细阅读,能够学有所成!

vbs 函数过程:
1. 调用wget: 下载网站所有页面到本脚本目录 ……
2. 扫描本脚本目录中所有文件 ……
3. 读取本脚本目录中的所有网页,匹配图片 URL 地址 ……
4. 保存所有图片 URL 地址到 url-img.txt 文件 ……
5. 调用wget: 下载 url-img.txt 指定的图片到本脚本 img 目录 ……

' wget_img.vbsCall Main()Sub Main() ' CMD 模式 If Not (LCase(Right(WScript.FullName,11)) = LCase("CScript.exe")) Then  CreateObject("WScript.shell").Run "cscript.exe //noloGo """ & WScript.ScriptFullName & """", 1, False  WScript.Quit(1) End If  Dim wso, strMeDir Set wso = WScript.CreateObject("WScript.Shell") strMeDir = Left(WScript.ScriptFullName, InStrRev(WScript.ScriptFullName,"\")-1) ' 启动 wget下载网站所有页面到本脚本目录的 720.hao2046.net 文件夹 WScript.Echo "1. 启动 wget下载网站所有页面到本脚本目录的 720.hao2046.net 文件夹 ……" wso.Run "wget -r -p -k -c -x -A=jpg,htm,html 720.hao2046.net -P """ & strMeDir & """", 1, True ' 扫描 720.hao2046.net 文件夹中所有文件 WScript.Echo "2. 扫描 720.hao2046.net 文件夹中所有文件 ……" Dim strFolderspec, strHTML, strURL Dim arr() : ReDim Preserve arr(0) strFolderspec = strMeDir & "\720.hao2046.net" Call ScanFolder(arr, strFolderspec)  ' 建立正则表达式。 Dim regEx Set regEx = CreateObject("VBScript.RegExp")   ' 建立正则表达式。 regEx.IgnoreCase = True   ' 设置是否区分大小写。 regEx.Global = True     ' 设置全局替换。 regEx.MultiLine = True   ' 设置多行匹配模式  ' 查找所有文件 WScript.Echo "3. 读取 720.hao2046.net 文件夹中的所有网页,匹配图片 URL 地址 ……" For i = 0 To UBound(arr)   If LCase(Right(arr(i),5)) = ".html" Or LCase(Right(arr(i),4)) = ".htm" Then     ' 读取文件,匹配图片 URL 地址     strHTML = ReadPfile(arr(i), "gb2312")     regEx.Pattern = "src=['""]Http://\S+\.jpg['""]"     Set Matches = regEx.Execute(strHTML)   ' 执行搜索。     For Each Match in Matches ' 遍历匹配集合。       If Not Match.Value = "" Then         regEx.Pattern = "(src=['""])*(['""])*"         strURL = strURL & regEx.Replace(Match.Value, "") & vbCrLf       End If     Next   End If Next  ' 保存所有图片 URL 地址 WScript.Echo "4. 保存所有图片 URL 地址到 url-img.txt 文件 ……" Call SavePfile(strMeDir & "\url-img.txt", "utf-8", strURL)   ' 启动 wget 下载图片到本脚本 img 目录 WScript.Echo "5. 启动 wget 下载 url-img.txt 指定的图片到本脚本 img 目录 ……" wso.Run "wget -c -x -t 5 -i """ & strMeDir & "\url-img.txt"" -P """ & strMeDir & "\img""", 1, True  Msgbox "完成!"End Sub'==========================================================================================='按编码读取txt文件内容Function ReadPfile(ByVal FileName, ByVal FileCode)  Dim objstream  Set objStream = CreateObject("ADODB.Stream")  '  With objStream    .Type = 2    .Mode = 3    .open    .Charset = FileCode   '不同编码时自己换,Chinese (Simplified) (GB2312),中文 GBK ,繁体中文 Big5 ,日文 EUC-JP ,韩文 EUC-KR,charset=UTF-8(国际化编码),ANSI,Unicode,unicode big endian    .LoadFromFile FileName     ReadPfile = .ReadText    .Close  End With  Set objStream = NothingEnd Function'==========================================================================================='保存文件为unicode格式文本Function SavePfile(ByVal FileName, ByVal FileCode, ByVal TextString)  Dim objStream  Set objStream = CreateObject("ADODB.Stream")  With objStream    .Type = 2    .Mode = 3    .Charset = FileCode   '不同编码时自己换,Chinese (Simplified) (GB2312),中文 GBK ,繁体中文 Big5 ,日文 EUC-JP ,韩文 EUC-KR,charset=UTF-8(国际化编码),ANSI,Unicode,unicode big endian    .open    .WriteText TextString    .SaveToFile FileName, 2    .Close  End With  Set objStream = NothingEnd Function'  Dim arr() : ReDim Preserve arr(0)'  Call ScanFolder(arr, "V:\")Sub ScanFolder(ByRef arr, ByVal strFolderspec)  On Error Resume Next  Dim fso, objFolder  Set fso = Createobject("Scripting.FileSystemObject")  Set objFolder = fso.getfolder(strFolderspec)  ReDim Preserve arr(UBound(arr)+1)  arr(UBound(arr)) = strFolderspec & "\"  For Each subFile In objFolder.files    ReDim Preserve arr(UBound(arr)+1)    arr(UBound(arr)) = subFile.path  Next  For Each subFolder In objFolder.subfolders    ScanFolder arr, subFolder.path  Next  Set fso = NoThing  Set objFolder = NoThingEnd Sub

附网页文件查找字符串代码(findstr_html.vbs):

' findstr_html.vbsCall Main()Sub Main() ' CMD 模式 If Not (LCase(Right(WScript.FullName,11)) = LCase("CScript.exe")) Then  CreateObject("WScript.Shell").Run "cscript.exe //nologo """ & WScript.ScriptFullName & """", 1, False  WScript.Quit(1) End If Dim strMeDir strMeDir = Left(WScript.ScriptFullName, InStrRev(WScript.ScriptFullName,"\")-1) Dim regEx, strHTML, strURL  ' 扫描文件夹 Dim arr() : ReDim Preserve arr(0) Call ScanFolder(arr, strMeDir & "\720.hao2046.net") If UBound(arr) = 0 Then  WScript.Echo strMeDir & "\720.hao2046.net" & ", Not Found!"  Exit Sub End If ' 建立正则表达式。 Set regEx = CreateObject("VBScript.RegExp")   ' 建立正则表达式。 regEx.IgnoreCase = True   ' 设置是否区分大小写。 regEx.Global = True     ' 设置全局替换。 regEx.MultiLine = True   ' 设置多行匹配模式   Do  strPattern = InputBox("请输入要匹配的正则表达式:","查找所有网页文件","123456")  strInfo = strPattern & vbCrLf & "Not Found!"  For i = 0 To UBound(arr)   If LCase(Right(arr(i),5)) = ".html" Or LCase(Right(arr(i),4)) = ".htm" Then    'WScript.Echo arr(i)    strHTML = ReadPfile(arr(i), "gb2312")    If InStr(strHTML, strPattern)>0 Then     strInfo = strPattern & vbCrLf & arr(i) & vbCrLf     Exit For    Else     'regEx.Pattern = "src=['""]http://\S+\.jpg['""]"     regEx.Pattern = strPattern     Set Matches = regEx.Execute(strHTML)   ' 执行搜索。     For Each Match in Matches ' 遍历匹配集合。      If Not Match.Value = "" Then       'regEx.Pattern = "(src=['""])*(['""])*"       'strURL = strURL & regEx.Replace(Match.Value, "") & vbCrLf       strInfo = strPattern & vbCrLf & arr(i) & vbCrLf       Exit For      End If     Next    End If   End If  Next  WScript.Echo strInfo  LoopEnd Sub'==========================================================================================='按编码读取txt文件内容Function ReadPfile(ByVal FileName, ByVal FileCode)  Dim objStream  Set objStream = CreateObject("ADODB.Stream")  '  With objStream    .Type = 2    .Mode = 3    .open    .Charset = FileCode   '不同编码时自己换,Chinese (Simplified) (GB2312),中文 GBK ,繁体中文 Big5 ,日文 EUC-JP ,韩文 EUC-KR,charset=UTF-8(国际化编码),ANSI,Unicode,unicode big endian    .LoadFromFile FileName     ReadPfile = .ReadText    .Close  End With  Set objStream = NothingEnd Function'  Dim arr() : ReDim Preserve arr(0)'  Call ScanFolder(arr, "V:\")Sub ScanFolder(ByRef arr, ByVal strFolderspec)  On Error Resume Next  Dim fso, objFolder  Set fso = Createobject("Scripting.FileSystemObject")  Set objFolder = fso.getfolder(strFolderspec)  ReDim Preserve arr(UBound(arr)+1)  arr(UBound(arr)) = strFolderspec & "\"  For Each subFile In objFolder.files    ReDim Preserve arr(UBound(arr)+1)    arr(UBound(arr)) = subFile.path  Next  For Each subFolder In objFolder.subfolders    ScanFolder arr, subFolder.path  Next  Set fso = NoThing  Set objFolder = NoThingEnd Sub

提示: 
1. 警告:请不要直接运行代码,这里的示范网址可能无法访问、或缺乏安全性,请改为其他网址再使用。
2. 请将 wget.exe 放置于脚本同一目录下,然后执行。文件结构如下:
  ..\wget.exe
  ..\wget_img.vbs
  ..\findstr_html.vbs

“怎么用vbs结合wget实现下载网站图片”的内容就介绍到这里了,感谢大家的阅读。如果想了解更多行业相关的知识可以关注编程网网站,小编将为大家输出更多高质量的实用文章!

--结束END--

本文标题: 怎么用vbs结合wget实现下载网站图片

本文链接: https://lsjlt.com/news/253186.html(转载时请注明来源链接)

有问题或投稿请发送至: 邮箱/279061341@qq.com    QQ/279061341

猜你喜欢
  • 怎么用vbs结合wget实现下载网站图片
    本篇内容介绍了“怎么用vbs结合wget实现下载网站图片”的有关知识,在实际案例的操作过程中,不少人都会遇到这样的困境,接下来就让小编带领大家学习一下如何处理这些情况吧!希望大家仔细阅读,能够学有所成!vbs 函数过程:1. 调用wget:...
    99+
    2023-06-08
  • Python3实现Web网页图片下载
    先来介绍一些python web编程基础知识 1. GET与POST区别 1)POST是被设计用来向web服务器上放东西的,而GET是被设计用来从服务器取东西的,GET也能够向服务器传送较少的数据,而Get...
    99+
    2022-06-04
    图片下载 网页 Web
  • Shell脚本怎么实现批量下载网络图片
    这篇文章主要介绍“Shell脚本怎么实现批量下载网络图片”,在日常操作中,相信很多人在Shell脚本怎么实现批量下载网络图片问题上存在疑惑,小编查阅了各式资料,整理出简单好用的操作方法,希望对大家解答”Shell脚本怎么实现批量下载网络图片...
    99+
    2023-06-09
  • Node.js怎么实现爬取网站图片
    这篇文章主要介绍“Node.js怎么实现爬取网站图片”,在日常操作中,相信很多人在Node.js怎么实现爬取网站图片问题上存在疑惑,小编查阅了各式资料,整理出简单好用的操作方法,希望对大家解答”Node.js怎么实现爬取网站图片”的疑惑有所...
    99+
    2023-06-29
  • Android sdcard实现图片存储 、联网下载
    本文实例介绍了sdcard存储图片下载简单操作,分享给大家供大家参考,具体内容如下 步骤 -- 在配置清单添加完联网权限后 1、res/layout界面布局 <Line...
    99+
    2022-06-06
    图片 存储 Android
  • vue怎么实现根据图片url进行图片下载
    这篇“vue怎么实现根据图片url进行图片下载”文章的知识点大部分人都不太理解,所以小编给大家总结了以下内容,内容详细,步骤清晰,具有一定的借鉴价值,希望大家阅读完这篇文章能有所收获,下面我们一起来看看这篇“vue怎么实现根据图片url进行...
    99+
    2023-07-04
  • 网站加载cdn图片太慢怎么办
    网站加载cdn图片太慢的解决方法:使用缓存。将图片压缩存储于源站。加大cdn服务器宽带。使用jq延迟加载图片。$(function(){//一段正则,匹配所有_min.的图片src属性vartest =/_min\.///遍历所有...
    99+
    2024-04-02
  • 怎么使用Python+tkinter实现网站下载工具
    今天小编给大家分享一下怎么使用Python+tkinter实现网站下载工具的相关知识点,内容详细,逻辑清晰,相信大部分人都还太了解这方面的知识,所以分享这篇文章给大家参考一下,希望大家阅读完这篇文章后有所收获,下面我们一起来了解一下吧。开发...
    99+
    2023-07-05
  • Kotlin实现网络图片下载和保存功能
    目录一、理论基础二、实验目的三、实验步骤1、新建工程文件2、引入布局管理3、创建布局4、访问权限5、实现逻辑四、实验演示五、实验总结一、理论基础 掌握Kotlin面向对象的软件开发方...
    99+
    2023-02-07
    Kotlin网络图片下载和保存 Kotlin图片下载 Kotlin保存图片
  • Java中怎么批量下载网络图片
    这篇文章将为大家详细讲解有关Java中怎么批量下载网络图片,文章内容质量较高,因此小编分享给大家做个参考,希望大家阅读完这篇文章后对相关知识有一定的了解。先来看下Json数据格式:为了方便操作,我封装了一个数据实体类package ...
    99+
    2023-06-17
  • PHP怎么实现图片合并
    本篇内容介绍了“PHP怎么实现图片合并”的有关知识,在实际案例的操作过程中,不少人都会遇到这样的困境,接下来就让小编带领大家学习一下如何处理这些情况吧!希望大家仔细阅读,能够学有所成!准备工作需要海报的底图小程序码的图片 代码部分...
    99+
    2023-07-05
  • Thinkphp怎么结合ajaxFileUpload实现ajax异步图片传输
    这篇文章主要介绍“Thinkphp怎么结合ajaxFileUpload实现ajax异步图片传输”的相关知识,小编通过实际案例向大家展示操作过程,操作方法简单快捷,实用性强,希望这篇“Thinkphp怎么结合ajaxFileUpload实现a...
    99+
    2023-07-05
  • vbs 中怎么实现多线程下载功能
    这期内容当中小编将会给大家带来有关vbs 中怎么实现多线程下载功能,文章内容丰富且以专业的角度为大家分析和叙述,阅读完这篇文章希望大家可以有所收获。代码如下:'by wankoilz url=InputBox("输入完整下...
    99+
    2023-06-08
  • 怎么用Python实现轻松下载照片
    要使用Python下载照片,你可以使用以下步骤: 导入所需的模块: import requests 指定要下载的图片的UR...
    99+
    2024-02-29
    Python
  • 利用Python多线程实现图片下载器
    目录导语开发工具环境搭建原理简介效果展示导语 之前有很多小伙伴说想学习一下多线程图片下载器,虽然好像已经过去很久了,不过还是上来安排一波吧。至于题目为什么说是构建一个小型数据集,因为...
    99+
    2024-04-02
  • Vue怎么实现图片懒加载
    本篇内容主要讲解“Vue怎么实现图片懒加载”,感兴趣的朋友不妨来看看。本文介绍的方法操作简单快捷,实用性强。下面就让小编来带大家学习“Vue怎么实现图片懒加载”吧! 1.下载 npm i vue-laz...
    99+
    2024-04-02
  • JavaScript怎么实现图片懒加载
    本篇内容介绍了“JavaScript怎么实现图片懒加载”的有关知识,在实际案例的操作过程中,不少人都会遇到这样的困境,接下来就让小编带领大家学习一下如何处理这些情况吧!希望大家仔细阅读,能够学有所成!实现思路实现图片懒加载我们需要先明白具体...
    99+
    2023-07-02
  • HTML5怎么实现渐变背景图片并自动下载
    这篇“HTML5怎么实现渐变背景图片并自动下载”文章的知识点大部分人都不太理解,所以小编给大家总结了以下内容,内容详细,步骤清晰,具有一定的借鉴价值,希望大家阅读完这篇文章能有所收获,下面我们一起来看看这篇...
    99+
    2024-04-02
  • Android开发中怎么实现一个图片下载功能
    本篇文章给大家分享的是有关Android开发中怎么实现一个图片下载功能,小编觉得挺实用的,因此分享给大家学习,希望大家阅读完这篇文章后可以有所收获,话不多说,跟着小编一起来看看吧。1.普通的下载方式布局文件:<&#63;xml...
    99+
    2023-05-31
    android roi
  • Spring MVC图片的上传和下载功能怎么实现
    这篇文章主要介绍了Spring MVC图片的上传和下载功能怎么实现的相关知识,内容详细易懂,操作简单快捷,具有一定借鉴价值,相信大家阅读完这篇Spring MVC图片的上传和下载功能怎么实现文章都会有所收获,下面我们一起...
    99+
    2023-07-05
软考高级职称资格查询
编程网,编程工程师的家园,是目前国内优秀的开源技术社区之一,形成了由开源软件库、代码分享、资讯、协作翻译、讨论区和博客等几大频道内容,为IT开发者提供了一个发现、使用、并交流开源技术的平台。
  • 官方手机版

  • 微信公众号

  • 商务合作