一个可以批量抓取网页图片的工具

小fisher · 发表于 2009-5-19 19:02

原帖由 a489685453 于 2009-5-19 18:36 发表
我的打开后怎么没有网页可以选择啊...如图..

你图中的浏览器不像是IE呀，这个程序只在WinXP+IE6.0下调试通过，因为没有其他环境，所以无法测试，不过按照微软的习惯，新版本的IE应该兼容旧版本的接口

fdd · 发表于 2009-5-19 19:04

原帖由 小fisher 于 2009-5-19 18:59 发表

这个问题我在调试时已经发现了，重现过程：
1。打开几个IE窗口
2。从任务管理器中结束Explorer进程
3。重新启动Explorer之后，虽然能在任务栏中看到之前的几个IE窗口，但是列表中不会显示
解决办法：新建IE窗口 ...

谢谢解答！可不可以把：选择图片-预览图片变成直接预览-进行其它操作。这样能看到图片内容比看到图片列表更直观，方便选择所需要的图片进行保存。大师觉得如何？

ldy · 发表于 2009-5-19 21:40

原帖由 fdd 于 2009-5-19 19:04 发表

谢谢解答！可不可以把：选择图片-预览图片变成直接预览-进行其它操作。这样能看到图片内容比看到图片列表更直观，方便选择所需要的图片进行保存。大师觉得如何？

你说的是全部预览图片？

有一个简单取巧的方法

窗体上插入一个WEB控件，UserForm_Initialize 事件里加入一句
Private Sub UserForm_Initialize()

''''''''''''''以上原来的代码

WebBrowser1.Navigate "about:blank"
End Sub

Private Sub CommandButton2_Click()
Dim s As String
s = "<img src=""http://club.excelhome.net/images/GreenPark/logo.png""><br>"
s= s & "<img src=""http://club.excelhome.net/images/GreenPark/digest_1.gif""><br>"
s=s & "<img src=""http://club.excelhome.net/images/attachicons/common.gif"">"
' 这个 S 字符串就是程序生成的HTML 码,可以从原程序中取得
WebBrowser1.Document.body.innerHTML = s
'这样就能看到全部图片了
End Sub

fdd · 发表于 2009-5-19 22:03

原帖由 ldy 于 2009-5-19 21:40 发表

你说的是全部预览图片？

有一个简单取巧的方法

窗体上插入一个WEB控件，UserForm_Initialize 事件里加入一句
Private Sub UserForm_Initialize()

''''''''''''''以上原来的代码

WebBrowser1.N ...

虽然我不懂WebBrower，但版主的意思我大概明白：就是把图片地址编成网页源码，然后WebBrower显示它出来！好主意，谢谢！

mobuli · 发表于 2009-5-20 08:51

要是能写个简单的教程就好了

wshcw · 发表于 2009-5-20 19:14

谢谢版主分享!

bibisin · 发表于 2009-5-20 21:04

谢谢LZ分享

papapa1001 · 发表于 2009-5-22 22:55

LZ写得不错。
吾等还得努力学习学习哟！

wangyang · 发表于 2009-5-22 23:12

厉害！学习了。

YZLSZAJ · 发表于 2009-5-23 02:07

抓取网页图片的工具，出错？

		自动登录	找回密码
密码			免费注册

[原创] 一个可以批量抓取网页图片的工具