WebBrowser - вопрос!

[bevaine2000]

Не ругайте меня сильно но поиском не нашел.
Два вопроса:
1.Можно ли как нибудь сохранить какртинку на веб страничке если она не является ссылкой, кликнув на нее мышкой.
2.Дайте самый простой исходник - Download мэненджера.

[ALX_2002]

на счёт сохранить картинку - щёлкаешь правой клавишей и выбираешь пункт меня - "сохранить рисунок как"

[badDRAGON]

глянь скока полезных ссылок:
http://vbnet.ru/faq/showtopic.asp?id=238
http://vbnet.ru/faq/showtopic.asp?id=325
http://vbnet.ru/faq/showtopic.asp?id=380
http://vbnet.ru/faq/showtopic.asp?id=76

[bevaine2000]

на счёт сохранить картинку - щёлкаешь правой клавишей и выбираешь пункт меня - "сохранить рисунок как"

Вот именно мне не нужно правой нажимать а сохранять по одному клику, как ссылку

[Antonariy]

http://www.vb.kiev.ua/code/networks/Rev ... loader.zip

Rev-X Downloader с поддержкой разбиения на части, совмещения частей и т.д., включая т.н. Конфигуратор.

[badDRAGON]

в IE?или в своей проге?

[bevaine2000]

В своей проге

[kirrun]

Дык ищешь в коде теги <img> и тащишь оттудова src, и даунлодаешь его...

[FaKk2]

Поиск по DownloadURLToFile

[bevaine2000]

kirrun
А как именно узнать какой именно тащить, мне же нужно тот, на который я кликаю мышью

[Sirik]

исползуй событие onmousedown, но помоему только с 5 версии IE

[bevaine2000]

Sirik
Так и есть:

onMouseDown

Выполняет код скрипта при щелчке любой кнопкой мыши по элементу страницы.
Синтаксис:
onMouseDown="ТекстОбработчика"

Параметр:
ТекстОбработчика - код на языке JavaScript или вызов функции.

Используемые свойства объекта Event:
Свойство Описание

type - Тип события.
target - Объект, которому было послано сообщение.
screenX, screenY - X- и Y- координаты курсора во время активации сообщения.
which - 1 - для щелчка левой кнопкой мыши, 3 - для щелчка правой.
modifiers - Список клавиш-модификаторов, нажатых во время активации события.

Поддержка:
MS Internet Explorer: начиная с версии 4.0
Netscape Navigator: начиная с версии 4.0

Как это теперь совместь с VB

[Sirik]

я делал так: назначал каждой картинки свой ID код
при клике, по коду, определял на какой картинке был клик

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

Private WithEvents mDoc As MSHTML.HTMLDocument

    [b]Твой браузер[/b].Navigate [b]Путь к файлу[/b]
    Set mDoc = web_Smile.Document


Private Sub mDoc_onmousedown()
    Dim objElement As MSHTML.IHTMLElement
    Set objElement = mDoc.parentWindow.event.srcElement
   
    Dim tmp_Number As Integer
    If objElement.Id <> "" Then
        msgbox "Картинка под номером:"& str(objElement.Id)
    End If
End Sub




[bevaine2000]

Спасибо за код все вроде понятно, но на

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

Private WithEvents mDoc As MSHTML.HTMLDocument

Выдает что "Определяемый пользователем тип не определен"

[Sirik]

поставь ссылку на Microsoft HTML Object Library и Microsoft Inetret Controls

[bevaine2000]

Извини за такие глупые вопросы, но я не понял на счет ссылок.
Microsoft HTML Object Library и Microsoft Inetret Controls - это контролы, их надо кинуть на форму, а дальше что?

[Sirik]

нет, это ссылки на библиотеки

Проект->Ссылки...

зы. в англ. версии не помню, вроде Project->Referens

[badDRAGON]

сделай просто принт скрин страницы ...

[Sirik]

ПлохДракон - судя по постам, ничего хорошего не напишешь

[bevaine2000]

С Сылками разобрался теперь другая бойда - ID все время выдает пустое значение. Может ты еще что-то пропустил. Строка - Dim tmp_Number As Integer, к чему относится?

[Sirik]

в момент создания страницы я присваевал каждой картинке свой номер. тебе же надо в процессе загрузке изменять твою html старницу.

напимер так:
<img id=номер border="0" src="картинка" width="1" height="1">

[bevaine2000]

Встречный вопрос, как вставить этот самый ID на лету в загружаемую страничку WebBrowser'ом или нужно загрузить на диск и уже на месте обрабатывать файл и вставлять ID?

[Sirik]

я думаю, что сохранять не нужно, хотя я не уверен.
попробуй что-то типа свойства document или text

[bevaine2000]

Я нашел способ намного легче:

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

Private Sub mHTMLDocument_onmousedown()
    Dim objElement As MSHTML.IHTMLElement
    Set objElement = mHTMLDocument.parentWindow.event.srcElement
    TagHTML = objElement.outerHTML


Выдает сам тэг с адресом рисунка