用VB提取图片地址（高分相送）

来源：百度知道 编辑：UC知道 时间：2024/06/18 09:53:52
用VB提取网页上HTML代码<table>至</table>这个范围内的图片地址，然后用URLDownloadToFile全部下载到电脑，VB代码怎么写？

在窗体上加入控件WebBrowser1，然后复制下面代码，修改实际网页地址，运行即可。

Option Explicit
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Private Sub Form_Load()
WebBrowser1.Navigate "http://zhidao.baidu.com/question/83050961.html" '请修改为实际地址
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim s As String, i As Long, tz1 As String, tz2 As String
Dim tmp As String, j As Long
s = WebBrowser1.Document.body.innerhtml
tz1 = "<table>"
tz2 = "</table>"
i = InStr(1, s, tz1, vbTextCompare)
If i = 0 Then Exit Sub
s = Mid(s, i)
i = InStr(1