ShowModalDialog и VBA

[Fordros]

Доброго времени суток, уважаемые знатоки!

Подскажите, пож-та, можно ли как-то обратится к модальному диалоговому окну которое открывается в Internet Explorer (внутренний сайт)???

З.Ы.
Класс окна - Internet Explorer_TridentDlgFrame
Имя окна - Поиск карты -- Диалоговое окно веб-страницы
Класс кнопки - Internet Explorer_Server
Имя кнопки - Выбрать

[doober]

Можно.Функции АПи найдете в инете.

    Const WM_LBUTTONDOWN As Integer = &H201 'нажатие левой кнопки
    Const WM_LBUTTONUP As Integer = &H202 'отжатие левой кнопки
    Const VK_UP As Integer = &H26 'стрелка вверх
    Const VK_DOWN As Integer = &H28 'стрелка вниз
    Const WM_KEYDOWN As Integer = &H100 'нажатие кнопки
    Const WM_KEYUP As Integer = &H101 'отжатие кнопки
         
    Sub Вперед_Нажимать_Кнопку()

        Dim lpszParentWindow As String
        Dim ParenthWnd As Long
        Dim hWnd  As Long
        Dim hwndb As Long
      lpszParentWindo = "Поиск карты -- Диалоговое окно веб-страницы"
        
        hWnd = FindWindowByCaption(0, lpszParentWindow)
     
        If hWnd <> 0 Then
            hwndb = FindWindowEx(hWnd, 0, "Internet Explorer_Server", vbNullString) 'Вариант 1
            hwndb = FindWindowEx(hWnd, 0, vbNullString, "Выбрать") 'Вариант 2
            SendMessage hwndb, WM_LBUTTONDOWN, 1, 0
            SendMessage hwndb, WM_LBUTTONUP, 1, 0

        End If

    End Sub

[Fordros]

Ругается на FindWindowByCaption - Sub or Function not defined

[kuklp]

Так Сергей Вам писал:

Сообщение от doober

Функции АПи найдете в инете.

Это и есть такая функция.

[doober]

Сообщение от Fordros

Ругается на FindWindowByCaption - Sub or Function not defined

Ростислав,вы меня удивляете.
Я же вам на пример с этими функциями ссылку давал.

[Fordros]

Сообщение от doober

Ростислав,вы меня удивляете.
Я же вам на пример с этими функциями ссылку давал.

Сергей, мне уже не удобно Вас дергать... А отписался я только из-за того что может кому-то еще будет нужно, а простое использование тела макроса не работает.

З.Ы. Еще раз хочу Вас поблагодарить, за бесценный опыт и приятное общение!!!

З.Ы.Ы. Хочется как-то обойтись без АПИ... чтобы просто передать модальному окну данные или же напрямую передать из на сервер!