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 cmdDownload_Click()
Dim i As Integer
For i = 0 To lstImages.ListCount - 1
Download (lstImages.ItemData(i))
Next i
End Sub
Sub Download(file As String)
Dim done, pathOfdb, fn, saveTo
pathOfdb = CurrentProject.Path & "\"
fn = filename(file)
saveTo = pathOfdb & fn
MsgBox file
MsgBox saveTo
done = URLDownloadToFile(0, file, saveTo, 0, 0)
If done = 0 Then
MsgBox "File has been downloaded!"
Else
MsgBox "File not found!"
End If
End Sub
Private Sub cmdNavigate_Click()
EventRunning = True
WebBrowser0.Navigate URL
While EventRunning
DoEvents
Wend
End Sub
Private Sub WebBrowser0_DownloadBegin()
IsNavigating = True
End Sub
Private Sub WebBrowser0_DownloadComplete()
IsNavigating = False
Dim Obj
For Each Obj In WebBrowser0.Document.All
If Obj.TagName = "img" Then
ImageHTML = ImageHTML & " " & Obj.OuterHTML
ImageSrc = ImageSrc & " " & Obj.getAttribute("src")
lstImages.AddItem Obj.getAttribute("src")
End If
Next
End Sub
Function filename(src As String)
Dim val, fn
'http://www.599cd.com/images/pc-logobar.gif
val = InStr(StrReverse(src), "/")
fn = Right(src, val - 1)
filename = fn
End Function