Использование WebBrowser

[$Yastrebov$]

Подскажите, пожалуйста, как при использовании объекта WebBrowser симитировать нажатие по определенному месту страницы?

Например: есть страница, на ней расположен елемент, нажав на который, он закрашивается в синий цвет. Видимо выполняется какой-то скрипт.

Как симитировать нажатие или выполнить этот скрипт? Скрипт выполняется внутри фрейма. Как узнать какой скрипт выполняется? Спасибо!!!

[$Yastrebov$]

И еще в догонку вопрос. Как получить поддерживаемые методы кнопки, зная ее ID?
На click и submit выдает ошибку!

Пишу так!

WB.Document.Frames("General").Document.Buttons("test").click

Возникает ошибка, что мол метод или свойство не поддерживается!
Что не верно делаю?

[$Yastrebov$]

Никак не выходит нажать кнопочку в фрейме по ее ID
Ошибка 91 Object .... no set
Может ли форма быть защищена?! Помогите, пожал!!!

Antonariy приходи на помощь!!!!!!!!!!!!!!!!!!!!!!

[$Yastrebov$]

Нормально ли что
For Each mm In Browser.Document.frames(1).Document.All
MsgBox mm
Next

Возвращает только слово: [object], причем много раз???

[GSerg]

Предупреждение.

[burik]

Нормально ли что
For Each mm In Browser.Document.frames(1).Document.All
MsgBox mm
Next

Возвращает только слово: [object], причем много раз???

интерестно, а что возвращать по твоему?

ты ласково просишь VB показать сообщение в качестве текста оного указываешь объект и ему ничего не остаеться, кроме как высказать тебе это..
Попробуй может это:

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

MsgBox mm.Value


думаю результат быдет интерестнее...

[$Yastrebov$]

Да, я уже разобрался. Я сделал так mm.Id
А еще решил проблему с фреймами. Там просто оказался фрейм во фрейме, вот он мне и мешал)))

Последний вопрос. Как симитировать нажатие кнопки в диалоговом окне WebBrowser? Как получить к нему доступ. Я даже не могу посмотреть его HTML-код!!!

Кто знает отзовитесь!

[keks-n]

WebBrowser1.Ducument.outerhtml вроде.

[Хакер]

Что за диалоговое окно WebBrowser ещё?

[$Yastrebov$]

WebBrowser1.Document.outerhtml - ??? Это явно не отсюда)

Диалоговое окно, которое строется посредством скрипта (наверное), оно есть на многих страницах в Интернете) туда еще часто пихают занудную рекламу.

...в WebBrowser оно открывается не как отдельное окно в браузере системы по умолчанию, а как мини окошко в WebBrowser. Вопрос в том, как получить к нему доступ!

[Antonariy]

Сколько можно писать, что WebBrowser1.Document.documentElement.outerhtml?

Документ (не)модального диалога или попапа получается этим способом.
Таки оно открывается как отдельное окно, но в ShellWindows не регистрируется.

[$Yastrebov$]

2Antonariy - Спасибо, я знал, что ты лучший))))

Только не могу понять все равно, как нажать кнопку на этом диалоговом окне((( id кнопки я знаю!

[Antonariy]

кнопка.click

[$Yastrebov$]

2Antonariy - WebBrowser1.Document.documentElement.outerhtml показывает код не модального окна, а родительского, а мне нужно именно выполнение нажатия на модальном окне!!!

WebBrowser1.Document.documentElement.<id моей кнопки>.click вызывает ошибку.

При обработке:
For each obj in WebBrowser1.Document.documentElement.All
If obj.Id <> "" Then MsgBox obj.Id
Next

Выдает список всех объектов родительского окна, впрочем как и в случае: For each obj in WebBrowser1.Document.All

Что не так?

[RayShade]

Есть такая замечательная вещь как getElementById

[Antonariy]

2$Yastrebov$

Документ (не)модального диалога или попапа получается этим способом.

[Хакер]

Что за диалоговое окно WebBrowser ещё?

[Antonariy]

Хакер
Окно, открытое с помощью window.showModal(Modeless)Dialog.

[$Yastrebov$]

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

[Nazarey]

Ну раз сдесь говорят о WebBrowser я думаю Вы не будете против если я сдесь задам вопрос?Хотел в WebBrowser вывести GIF-анимацию,выдаёт ошибку.Своих знаний маловато-подскажите пожалуйста!

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

WebBrowser1.Navigate @about:<html>" & _
    "<body scroll='no'><img src='путь к файлу'>" & _
    </img></body></html>"

Может он только для пятой версии пригоден?
Хакер спасибо-сейчас буду пробовать !


Да,я нашел где была ошибка в коде

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

WebBrowser1.Navigate "about:<html>" & _
    "<body scroll='no'><img src='путь к файлу'>" & _
    "</img></body></html>"

Вот этот правильный-нехватало кавычек.
(Нужно больше спать )

[Хакер]

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

Wb.navigate "about:blank"
wb.document.write "твой-хтмл-код"

Не знаю, нужно ли ждать рэди-стэйт при навигации на about:blank.

[Antonariy]

Не знаю, нужно ли ждать рэди-стэйт при навигации на about:blank.

Нужно.

[Antonariy]

$Yastrebov$
Скорее всего активным окном не является IE.

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

      If Not IsIEServerWindow(hWnd) Then
     
         ' Get 1st child IE server window
         EnumChildWindows hWnd, AddressOf EnumChildProc, hWnd
         
      End If

Если сюда попало окно, в иерархии которого не встречается Internet Explorer_Server, то дальше идет то же hwnd, что и пришло. А потом идет попытка выдернуть из него документ. Вполне вероятно, что для каких-то окон это действие может вызвать критическую ошибку.

[$Yastrebov$]

Модуль работать отказывается напрочь

2Antonariy
Вы бы не могли привести рабочий пример с изъятием данных с модального окна (любого). Все мои попытки бузуспешны. Не просил бы Вас, если не был бы в таком тупике. Наверняка еще кому-то на форуме пригодится этот пример. Надо ведь довести дело до решения!!!

С надеждой, заранее благодарен!

[Antonariy]

Уже заканчивая делать пример, понял в чем дело. В функции EnumChildProc параметр lParam должен передаваться ByVal. VB вылетал при попытке присвоить ему значение. Так что вернуть через него найденное hWnd не удастся.

[$Yastrebov$]

2Antonariy
Огромное спасибо, Ваш код работает великолепно. Без Вас бы я не справился. Вы мне очень помогли!

Применил код, в своей программе, получил доступ к диалоговому окну и тут... еще один подводный камень: при отображении окна визуально на нем есть кнопка, а в коде этого окна, объект кнопка вообще отсутствует (никак не описан). Подозреваю, что это как-то связано с тегом <IFRAME>, который видимо скрывает в себе этот объект. Остается вопрос.
Каким образом тогда достучаться до этой проблемной кнопки?

[Antonariy]

document.frames(x).docment...

[$Yastrebov$]

Вот из Вашего примера получаю доступ к нужному диалоговому окну:

EnumWindows AddressOf FindDlgs, 0
Dim doc As HTMLDocument
DomhWnd = 0
EnumChildWindows DFhWnd, AddressOf EnumChildProc, 0
If DomhWnd <> 0 Then
Set doc = IH.IEDOMFromhWnd(DomhWnd)

doc.documentElement.outerHTML - возвращает:

<HTML><HEAD><TITLE>...</TITLE></HEAD>
<BODY><IFRAME style... ...name=newfrm src="тут URL" frameBorder=0></IFRAME></BODY></HTML>

При обращении:
doc.frames(x).document... - ошибка

Пробую обращаться так:
doc.frames("newfrm").document.outerHTML - ошибка

Если обращаюсь так:
doc.All("newfrm").outerHTML - получаю:
<IFRAME style... ...name=newfrm src="тут URL" frameBorder=0></IFRAME>

doc.All("newfrm").document.all("название нужной кнопки") - ошибка

Более чем doc.All("newfrm").outerHTML у меня дойти не получается.
Сразу оговорюсь, что все привязано к одному домену и данные во фрейм загружаются только с него.

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

[$Yastrebov$]

Ура! Получилось!

Доступ кнопке из <IFRAME> нужно было получить так:
doc.All("newfrm").contentWindow.Document.All("НУЖНАЯ КНОПКА").Click

contentWindow - вот в чем загвоздка была!

Всем спасибо, а особенно Antonariy без него бы я не справился!