Картинки в WebBrowser

[Kiryusha]

Такое дело, когда я делаю:

WebBrowser1.Navigate URL

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

Помогите, кто знает как показать рисунки и вообще можно ли это провернуть.

[Antonariy]

Имхо, нельзя.

[Kiryusha]

Блин плохо
Ладно тогда, подскажи плз, как мне програмно не отображать страницу сайта, а брать ее в виде HTML ? А там бы я уже похимичил с ним.

[GSerg]

Можно, но тебе не понравится...
http://bbs.vbstreets.ru/viewtopic.php?p=110753#110753

Там, где слова "вот это вот", вот это тебе и нужно... ну и дискуссию в топике почитай...

[Gotha]

в событии objExplorer_DocumentComplete

debug.print objExplorer.document.body.InnerHTML
это и есть тот самый хтмл
потом можешь перебрать все Img

For Each tdImg In objExplorer.document.All.tags("IMG")
debug.print tdImg.src ' ссылка на рисунок
Next

[GSerg]

Gotha
Потом чё?

[Gotha]

а потом

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

Public Function HttpGet(strURL) As String
'The API functions used here can only to an HTTP GET
On Error GoTo Trap

Dim hInternetSession As Long
Dim hURLFile As Long
Dim sReadBuffer            As String * 4096     ' Grab 4k at a time
Dim sBuffer                As String
Dim lNumberOfBytesRead     As Long
Dim bDoLoop As Boolean
Dim hNewFile As Long
Dim lngTotalBytes As Long

hInternetSession = InternetOpen("HttpGet", INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)

If CBool(hInternetSession) Then
    hURLFile = InternetOpenUrl(hInternetSession, _
             strURL, vbNullString, 0, INTERNET_FLAG_RELOAD, 0)
    If CBool(hURLFile) Then
        bDoLoop = True
            While bDoLoop
               DoEvents
                sReadBuffer = ""
                bDoLoop = InternetReadFile(hURLFile, sReadBuffer, _
                            Len(sReadBuffer), lNumberOfBytesRead)
                sBuffer = sBuffer & Left$(sReadBuffer, lNumberOfBytesRead)
                If Not CBool(lNumberOfBytesRead) Then bDoLoop = False
                DoEvents
                lngTotalBytes = lngTotalBytes + lNumberOfBytesRead
               ' Debug.Print lngTotalBytes / 1024
               DoEvents
            Wend
            HttpGet = sBuffer
    End If
End If

InternetCloseHandle (hURLFile)
InternetCloseHandle (hInternetSession)

Exit Function

dim buf$

buf$=HttpGet(tdImg.src)
open "....." for binary as #1
put #1,,buf$
close #1
picture1.picture=loadpicture('saved file')


вроде так, а потом можно подменить сорсы Img -жей

[GSerg]

Как ты заставишь картинки появиться в документе при условии, что отображение картинок в документе отключено в настройках обозревателя, был вопрос.

[Gotha]

тьфу, усек

[Kiryusha]

и еще плиз скажите как определить координаты курсора на всем экране а не в форме?

[Kovu]

Kiryusha
GetCursorPos

[Kiryusha]

хыы, такое ощущение, ничего вообще не знаю
у меня еще вопрос юзаю функцию LoadIcon что такое hInstance и что туда кидать?

[Amed]

· hInstance
[in] Handle to an instance of the module whose executable file contains the icon to be loaded. This parameter must be NULL when a standard icon is being loaded.

"Что туда кидать?", - в поиск.