1 Тема от Ципихович Эндрю

  • Ципихович Эндрю
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 04.02.2010
  • Сообщений: 506
  • Поблагодарили: 23

Тема: объект XMLHttpRequest

В скрипте ВБА строки отвечающие за полную загрузку страницы IE у меня следующие, их три варианта:

1
Do While IE.Document.readyState <> "complete"
DoEvents
Loop
2
Do While IE.readyState <> 4
DoEvents
Loop
3
Do While IE.Document.forms(0).Document.readyState <> "complete"
DoEvents
Loop

Но столкнулся с страницей в закрытой локальной сети, ничего не помогает, код проходит эти строки и двигается дальше, а страница не загружается и всё!!!!
Подсказывают попробовать объект XMLHttpRequest
Читал хелп по этому объекту, ничего не понял, попытался попробовать код:


On Error Resume Next
Dim oHTTP As New MSXML.XMLHttpRequest 'подключаем библиотеку Tools References Microsoft XML, version 2.0
oHTTP.Open "GET", "http://www.google.com/", False
oHTTP.Send 'здесь получаю системную ошибку 2146697211??????????
Debug.Print Err.Number & ":" & Err.Description '2147024891:Отказано в доступе. ?????????
Х = oHTTP.responseText

Приведите пжл пример на ВБА, где код работает и где понятно о возможностях этого объекта XMLHttpRequest
И правильно я понял, что когда в третьей строке приведённого мной кода стоит параметр false – это означает - синхронно (скрипт будет ожидать ответа от сервера)?????

2 Ответ от Ципихович Эндрю

  • Ципихович Эндрю
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 04.02.2010
  • Сообщений: 506
  • Поблагодарили: 23

Re: объект XMLHttpRequest

Страница = "http://10.196.192.26:9204/cgi-bin/auth.cgi?login_ref=%2fcgi-bin%2fpwrap.cgi?proc=t_webif.t_main('spr_body')&login=R095049&passwd=nhfccf41" 'так как это закрытая сеть этот адрес ничего не даёт посторонним
Dim oHTTP As New MSXML.XMLHttpRequest 'подключаем библиотеку Tools References Microsoft XML, version 2.0
oHTTP.Open "GET", Страница, False
oHTTP.Send
Debug.Print Err.Number & ":" & Err.Description
Х = oHTTP.responseText

oHTTP.Open "GET", Страница, True
oHTTP.Send
Debug.Print Err.Number & ":" & Err.Description
Х1 = oHTTP.responseText

If Х <> Х1 Then Beep
False, True, никакой разницы??
Когда же Х = Х1 ??