Получение возвращаемых значений из встроенного Internet Explorer

Question

Я знаю, как открыть Internet Explorer из приложения VBA. Но как мне получить «возврат» значений из запущенного проводника в приложение VBA. Например, давайте предположим, что я пытаюсь получить доступ http://page_not_there и получил ошибку 400

Как я могу получить это значение в своем приложении VBA и действовать соответственно. Любые намеки, ссылки или примеры программирования приветствуются

Возможно точное редактирование. Итак, порядок: Информация отправлена, и я возвращаю строку HTML, которая может быть использована в IE для подписи документа. Конечно, для этого нужно немного поэкспериментировать в IE, но в конце я получаю своего рода «обратную связь», если подписывание прошло успешно, и мне нужна эта «обратная связь», чтобы узнать, смогу ли я продолжить.

Я закрыл свои окна, так что будь осторожен. Я начинаю IE, как это

set ie = CreateObject("InternetExplorer.Application")
ie.navigate2 "to_where_I_want"

Вот и все.

Затем я получаю страницу, на которой запущен Java-апплет для подписи выбранного URL. выше ("to_where_I_want") у меня там есть несколько кнопок, и после нажатия на подпись я должен ввести свой ПИН-код, а затем я заинтересован в выводе IE Explorer.

Насколько я понимаю, вы пишете, лучше создать форму с веб-элементом управления и использовать ее для просмотра и подписи

С уважением Friedrich

Answer 1

Вот несколько заметок о том, как получить статус страницы.

   Dim http As Object
   Dim xmlhttp As Object

       Set http = CreateObject("MSXML2.ServerXMLHTTP.4.0")
       Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")

       On Error Resume Next

       xmlhttp.Open "GET", url, False
       ''This alternative can return status 405 in some cases
       ''xmlhttp.Open "HEAD", url, False
       xmlhttp.Send ""

       ''You can get the status of the page
       Status = xmlhttp.Status

       If Err.Number <> 0 Or Status <> 200 Then
           IsLink = False
       Else
           IsLink = True
       End If

       Set xmlhttp = Nothing

РЕДАКТИРОВАТЬ: Некоторые примечания к комментариям

Предполагается, что существует форма WBForm с элементом управления WB, который является элементом управления веб-браузера Microsoft:

 ''Navigate to a non-existent page 
 Forms!WBForm!WB.Navigate "http://lessthandot.com/somepage.htm"
 ''Title of the page
 MsgBox Forms!WBForm!WB.Document.Title

Заголовок будет содержать «HTTP 404 Not Found» в случае выше. Документ также может быть прочитан с использованием различных элементов.

The document object model Scripting with Elements and Collections