Эмуляция действий в WebBrowser

[djalex777]

На форме есть компонент WebBrowser в котором открыта html страница. На этой странице есть кнопочка для подтверждения данных. Можно ли программно вызвать событие, например, нажатия этой кнопки? Если это возможно, объясните пожалуйста, как

[Antonariy]

http://bbs.vbstreets.ru/viewtopic.php?t=34557

[djalex777]

Спасибо. С html понятно. Т.е. если у нас есть кнопочка с id, например, button, то делаем так - document.all("button").click()
А вот как быть, если надо нажать кнопочку, которая присутствует в неком flash-объекте?

[Antonariy]

Подключай компонент Shockwave Flash и изучай его методы.

[djalex777]

В html события вызываются через метод
FireEvent, т.е. например, для открытого документа действует метод

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


...
Dim doc As HTMLDocument
Dim doc_event As IHTMLEventObj2
Set doc_event = doc.CreateEventObject
doc_event.clientX = 717
doc_event.clientY = 123
doc.FireEvent "onclick", doc_event


Эмулируется событие, "щелчок кнопки мыши" в заданной позиции у объекта document. Только для того объекта у которого вызывается метод.
Посмотрел методы Shockwave Flash, ничего подобного не обнаружил.
Через SendMessage послать сообщение Flash о нажатии клавиши не возможно (Или я не прав?)
Остается способ через вызов mouse_event, но это уже работа с самой мышью. Неужели нет других способов?

[Antonariy]

У ocx'а есть функция CallFunction, возможно с ее помощью получится вызвать обработчик клика в ролике. Однако я не уверен, как устроен флеш не знаю.

[djalex777]

На сколько я понял CallFunction это функция вызывающая у flash событие CallFunction. Т.е. для того, чтобы из флэш можно было выполнить внешние функции.

[Antonariy]

У ocx нет события CallFunction.