Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как послать клик мыши во фрейм страницы, которая находится в webbrowser control 
:(
    Опции темы
eugene2007
Дата 14.6.2007, 05:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 14.6.2007

Репутация: нет
Всего: нет
Я хочу невидимо контроллировать webbrowser control iwebbrowser2  в своём приложнии
Как послать клик мыши в веббраузер, проблема в том что когда шлю sendmessage то он кликает если простоя страничка хтмл без iframe/frame. НА фрейм или ифрейм не кликает
Помогите советом!
Я не хочу парсить хтмл страницу и кликать так body.outerhtml, tagname ("A").click

Код

Private Sub Command2_Click()

Dim lHandle As Long
lHandle = GetHandle(ie)
MsgBox lHandle

SendClick lHandle, Val(Text2.Text), Val(Text3.Text)
End Sub

Public Sub SendClick(lnghWND As Long, X As Long, Y As Long)
    Dim lngResult As Long
    Dim lnglParam As Long
    lnglParam = (Y * &H10000) + X
    lngResult = SendMessage(lnghWND, WM_LBUTTONDOWN, 0&, ByVal lnglParam)
    lngResult = SendMessage(lnghWND, WM_LBUTTONUP, 0&, ByVal lnglParam)
    txtlog.Text = lnghWND & " " & X & " " & Y & vbCrLf & txtlog.Text
End Sub
PM MAIL   Вверх
Akina
Дата 14.6.2007, 08:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата(eugene2007 @  14.6.2007,  06:25 Найти цитируемый пост)
Я не хочу парсить хтмл страницу 

Хочешь послать клик во фрейм? парси...


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
eugene2007
Дата 21.6.2007, 22:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 14.6.2007

Репутация: нет
Всего: нет
а можно без парсинга? раз фрейм это новое окно как его обнаружить?
PM MAIL   Вверх
eugene2007
Дата 22.6.2007, 03:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 14.6.2007

Репутация: нет
Всего: нет
Нашёл код обнаруживающий HWND окна броузер контрола, а как обнаружить его iframes, frames?


Код

Dim lHandle As Long
lHandle = GetHandle(ie)
MsgBox lHandle

module
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function EnumChildWindows Lib "user32" (ByVal hWndParent As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hWnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private lngWebHandle As Long
 


Public Function GetHandle(ByVal WebControl As WebBrowser) As Long
    lngWebHandle = 0
    EnumChildWindows WebControl.Parent.hWnd, AddressOf EnumChildProc, ByVal 0&
    GetHandle = lngWebHandle
End Function


Private Function EnumChildProc(ByVal hWnd As Long, ByVal lParam As Long) As Long
    Dim lngReturnValue As Long, strClassName As String
    strClassName = Space(256)
    lngReturnValue = GetClassName(hWnd, strClassName, 256)
    If Left$(strClassName, lngReturnValue) = "Internet Explorer_Server" Then
        lngWebHandle = hWnd
    End If
    EnumChildProc = 1
End Function
PM MAIL   Вверх
Akina
Дата 22.6.2007, 09:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата(eugene2007 @  21.6.2007,  23:47 Найти цитируемый пост)
фрейм это новое окно 

Это откуда такие сведения?


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
eugene2007
Дата 25.6.2007, 14:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 14.6.2007

Репутация: нет
Всего: нет
potomuchto ja pytalsja poslatt tuda sendmessage a vo frame ne shljotsja
kak poslatt vo frame klik?
PM MAIL   Вверх
Akina
Дата 25.6.2007, 15:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Фрейм на странице - это аналог подчиненной формы на основной... посмотри в ObjectBrowser иерархию (прямо в рантайме) и исходя из этого построй путь.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0738 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.