WebBrowser. Экономия трафика. Загрузка локальных картинок

[novichok_07]

Профессионалы , подскажите пожалуйсто начинающему. Пытался найти ответ в поиске, но ничего не нашёл. Видел что Alexanbar подымал подобный вопрос но решения так и не нашёл.
Вопрос: как можно сделать используя WebBrowser так , что бы при загрузке вэб страницы картинки загружались не с интернета , а с папки на винчестере ..... ещё бы не помешала такая возможность , что бы проверялось , если нет такой картинки локально , только тогда она бы загружалась с интернета.Если можно , то желательно объяснить поподробнее , если код - тогда с коментариями , хочется самому понять а не просто скопировать и вставить.
Заранее блаодарен.

[GSerg]

Если речь о кэше IE, то ничего не надо делать.
Если речь о произвольных картинках, лежащих произвольно где, то следует сначала определить критерии понятия "если нет такой картинки локально".

[novichok_07]

IE не использует кэш , и картинки , одни и теже , постоянно скачиваются ...... можешь помочь решить эту проблемму ?
По поводу произвольных ..... проблемма с онлайн игрой , я решил скачать все картинки на комп и думаю может можно сделать так что бы при открытии страницы картинки не качались опять а открывались те которые я закачал ......
Если бы в IE использовался кэш , как в Опере , не было бы проблеммм, игра под Оперой не идёт .... вот и решил сделать подобие браузера на VB с целью экономии трафика

[Viper]

вообще то IE кэш использует и довольно таки успешно, так что постанвка вопроса не имеет смысла

[novichok_07]

!Viper! ну значит у меня комп такой тормозной что из кэша рисунки по пол минуты загружает, и сжирает за 3 часа инета по 60 рублей тока на одних запросах .... (Атлон 64 Х2 4200 , 2 Гига DDR2)

[Amed]

Свойства обозревателя - Общие - Временные файлы Интернета - Параметры - Занимать на диске не более...

Какая величина стоит?

[novichok_07]

Свойства обозревателя - Общие - Временные файлы Интернета - Параметры - Занимать на диске не более...

Какая величина стоит?

1000 Мб (занято 940), Проверять наличие обновления страниц: автоматически

[Antonariy]

Сделать нельзя никак. IE сам решает, когда брать из кеша, когда из инета. Как он это решает, науке доподлинно неизвестно. А если на странице стоит опция типа <meta http-equiv="Cache-Control" content="no-cache">, то даже от его желаний ничего не зависит.

Хотя с другой стороны, если забыть о кеше, то конечно можно. Нужно отловить DocumentComplete и поменять все src рисунков на предварительно сохраненные локальные.

Еще могу порекомендовать почистить кеш руками или какой-нибудь утилитой от файлов, не имеющих отношения к сайту игры. Когда заканчивается место, отведенное под кеш, IE начинает вести себя неожиданно, например "сохранить рисунок как" желает сохранять только в формате bmp. Возможно твои проблемы имеют отношение к таким капризам.

[LionK]

народ вот сделал нечто , но что-то не работает как надо....
вот кусок кода....

Код: Выделить всё

Private Sub IER_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    ImgSrc1
    Open App.Path & "\log.txt" For Binary As #256
        Put #256, 1, IER.Document.frames(1).Document.body.innerhtml
    Close #256
End Sub

Private Sub ImgSrc1()
    Dim nampro As String
    On Error GoTo LabErr55
    For Each elem In IER.Document.getElementsByTagName("img")
        ampro = elem.nameprop
        nampro = Replace(nampro, "?", "_")
        nampro = Replace(nampro, "=", "_")
        If FSO.FileExists(App.Path & "\images\game\" & nampro) = True Then      'FSO думаю пояснять не надо
            elem.src = App.Path & "\images\game\" & nampro            
        Else
            Kachalka.DownloadToFile elem.src, App.Path & "\images\game\" & nampro   'качалка из кирпичей работает нормально
        End If
    Next
    If IER.Document.frames.length Then
        For i = 0 To IER.Document.frames.length - 1
            For Each elem In IER.Document.frames(i).Document.getElementsByTagName("img")
                nampro = elem.nameprop
                nampro = Replace(nampro, "?", "_")
                nampro = Replace(nampro, "=", "_")
                If FSO.FileExists(App.Path & "\images\game\" & nampro) = True Then
                    elem.src = App.Path & "\images\game\" & nampro
                Else
                    Kachalka.DownloadToFile elem.src, App.Path & "\images\game\" & nampro
                End If
            Next
        Next
    End If
LabErr55:
End Sub


закачивает нормально...... но отабражает картинки из инета..... хотя документ реально меняется после обработки это видно из лог-файла, но итог нулевой, качает из инета или кеша.... что не так?