vbs结合wget 实现下载网站图片
程序员文章站
2022-06-25 08:58:49
vbs 函数过程:
1. 调用wget: 下载网站所有页面到本脚本目录 ……
2. 扫描本脚本目录中所有文件 ……
3. 读取本脚本目录中的所有网页,匹配图片 url...
vbs 函数过程:
1. 调用wget: 下载网站所有页面到本脚本目录 ……
2. 扫描本脚本目录中所有文件 ……
3. 读取本脚本目录中的所有网页,匹配图片 url 地址 ……
4. 保存所有图片 url 地址到 url-img.txt 文件 ……
5. 调用wget: 下载 url-img.txt 指定的图片到本脚本 img 目录 ……
' wget_img.vbs call 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 = nothing end 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 = nothing end 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 = nothing end sub
附网页文件查找字符串代码(findstr_html.vbs):
' findstr_html.vbs call 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 loop 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 = nothing end 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 = nothing end sub
提示:
1. 警告:请不要直接运行代码,这里的示范网址可能无法访问、或缺乏安全性,请改为其他网址再使用。
2. 请将 wget.exe 放置于脚本同一目录下,然后执行。文件结构如下:
..\wget.exe
..\wget_img.vbs
..\findstr_html.vbs
上一篇: VBS显示当前标准时间
下一篇: VBScript获取CPU使用率的方法
推荐阅读
-
apache使用.htaccess文件实现屏蔽wget下载网站内容
-
Python3 简单实现下载某个网站轮播图片
-
CodeIgniter实现从网站抓取图片并自动下载到文件夹里的方法
-
vbs结合wget 实现下载网站图片
-
apache使用.htaccess文件实现屏蔽wget下载网站内容
-
CodeIgniter实现从网站抓取图片并自动下载到文件夹里的方法
-
网站架构 - php 像图片什么的只要路径对都会下载,那PHP源码会不会被下载?那像腾讯相册那样的照片加密是怎么实现的?
-
网站架构 - php 像图片什么的只要路径对都会下载,那PHP源码会不会被下载?那像腾讯相册那样的照片加密是怎么实现的?
-
CodeIgniter实现从网站抓取图片并自动下载到文件夹里的方法
-
CodeIgniter实现从网站抓取图片并自动下载到文件夹里的方法_PHP