下载在网页中位置固定但文件名无规律的系列图片

[泊客天涯]

http://www.pep.com.cn/gzwl/gzwljszx/gzwkb/gzwlxkb/gzwlkb1/200809/t20080927_520002.htm中有许多图片 最大的那一张 我想下载下来成为一本书，请问如何才能实现自动保存全部有用的图片？？
可以用VB 也可以用JS 如果能实现自定义网页地址 下载指定位置的图片 （文件名可能没有规律所以通配符不起作用） 做成程序也可给分 我的目的就是将物理新课标的电子课本完全下载下来整理


高手指教

[东方之珠]

不用编程。既然位置固定，每次用迅雷下载。

[无·法]

Dim i%
For i = 0 To WebBrowser1.Document.images.length - 1
    'download WebBrowser1.Document.images(i)
Next

[king06]

现成的下载工具,迅雷、快车、电驴……

[泊客天涯]

[Quote=引用 2 楼 sysdzw 的回复:]
VB codeDim i%For i=0To WebBrowser1.Document.images.length-1'download WebBrowser1.Document.images(i)Next
[/Quote]
我是说在可以从源代码中挑出那部分 可在不同的页面中这张图片的序号不一定相同啊

[泊客天涯]

[Quote=引用 1 楼 chenjl1031 的回复:]
不用编程。既然位置固定，每次用迅雷下载。
[/Quote]

太繁琐的操作 上千张啊

[zzyong00]

哪个img在每页中的索引号是一样的，实现以来很容易吧

[无·法]

图片是有规律的：
http://www.pep.com.cn/gzwl/gzwljszx/gzwkb/gzwlxkb/gzwlkb1/200809/W020080927458125611362.jpg
其实就是最后一个不同，你可以根据前面的把它挑出来。

那个下一页下一页的是有规律的，例如http://www.pep.com.cn/gzwl/gzwljszx/gzwkb/gzwlxkb/gzwlkb1/200809/t20080927_519910.htm
最后两个数字好像是表示页数，注意观察。

这样用一个循环把这些页面一个个下载下来然后取得图片的地址，最后用迅雷等工具批量下载下来。

[泊客天涯]

自己顶

[Tiger_Zhao]

用 Offline Explorer 之类的工具进行整个站点或目录进行下载，只下载网页和图片。
最后到本地目录中进行整理。

[SYSSZ]

就是下载物理课本,那目录上面就有链接.

[泊客天涯]

对啊 可是目录中只是每章节第一页的链接，每一节多数都有很多页，其余的页码找不到啊。[Quote=引用 10 楼 syssz 的回复:]
就是下载物理课本,那目录上面就有链接.
[/Quote]

[泊客天涯]

另外，老张想请问你如何将窗体内地所有控件的内置菜单也变成XP风格啊？
vsmenu只能将自己程序中的菜单变成Xp风格，那么如何将所有的菜单都变成xp风格呢，比如说webbrowser控件 text控件等
[Quote=引用 10 楼 syssz 的回复:]
就是下载物理课本,那目录上面就有链接.
[/Quote]

[jhone99]

VB codePrivate Sub SavePicture(szURL, fName) '保存图片
'网页路径，文件名
Dim x As XMLHTTP
Dim oStream As ADODB.Stream
Dim xx As String

Set x = New XMLHTTP
x.Open "GET", szURL, False
x.send
xx = app.path + "/"
Set oStream = New ADODB.Stream
oStream.Type = 1
oStream.Open
oStream.Write x.responseBody
oStream.SaveToFile xx + fName
oStream.Close
End Sub

' 简单实现

call SavePicture("http://expert.csdn.net/images/csdn.gif";,"abc.gif")

'功能：取得网址中的所有链接名称和地址
'需要要引用 Microsoft HTML Object Library

Private Sub GetLinks()
Dim Doc As IHTMLDocument2
Dim All As IHTMLElementCollection
Dim L As Integer
Dim i As Integer
Dim Varl As Variant

Set Doc = WebBrowser1.document
Set All = Doc.images '取图片的连接 doc.links 取文字链接
L = All.length
For i = 0 To L - 1
Set Varl = All.Item(i, varempty)
List1.AddItem ("地址：" & Varl.href) 'item.innertext 取文本链接名称
Set Varl = Nothing
Next i
Set All = Nothing
Set Doc = Nothing
End Sub

'然后在查找JPG,BMP等图片文件

[泊客天涯]

如何每次找到那个图片并且点击下一页呢