WebBrowser1.GoBack
при нажатии предыдущая страница полностью загружается заного,как сделать как в IE, что бы страница показывалась сразу без загрузки.
2. необходимо скачать сразу несколько файлов, как это сделать ?
я использую такой код:
на форме TextBox1(multiline) в нём адреса для скачивания,количество может быть разное.
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
Public Event ErrorDownload(FromPathName As String, ToPathName As String)
Public Event DownloadComplete(FromPathName As String, ToPathName As String)
Public Function DownloadFile(FromPathName As String, ToPathName As String)
If URLDownloadToFile(0, FromPathName, ToPathName, 0, 0) = 0 Then
DownloadFile = True
RaiseEvent DownloadComplete(FromPathName, ToPathName)
Public Sub imgdownfc()
Dim imglinc() As String
Dim f As Long
Dim n As Integer
Dim strimg As String
Dim adrimg As String
imglinc() = Split(Text1.Text, vbNewLine)
f = UBound(imglinc)
n = 0
For n = 0 To f
If n < f Then
strimg = Replace(imglinc(n), "http://*********/********/", "")
adrimg = imglinc(n)
Call DownloadFile(adrimg, App.Path & "\img\" & strimg & "")
End If
Next n
End Sub
но у меня скачивается только один файл ..., подскажите в чём ошибка.
p.s: я не пытаюсь писать скачивалку , это часть остальной программы.
