проблема с получением значения из интернет

[Invader]

Прошу прошения но уже просмотрел многое
в форуме как то писали об этом
http://bbs.vbstreets.ru/viewtopic.php?t=35006

был там (рабочий0 мной провереный

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

Dim XmlHttp

Set XmlHttp = CreateObject("Microsoft.XmlHttp")

Xmlhttp.Open "GET","http://www.mail.ru",False

XmlHttp.Send

if XmlHttp.Status = 200 Then

Dim HTMLDocument
Set HTMLDocument = CreateObject("HTMLFile")
HTMLDocument.Clear
HTMLDocument.Open

HTMLDocument.write XmlHttp.ResponseText

For Each Element in HTMLDocument.all.tags("TABLE")
if Element.ClassName = "frame" Then
Msgbox Element.innertext
End if
Next

Else
MsgBox XmlHttp.Status & ":" & XmlHttp.StatusText,vbCritical,"Не удалось загрузить страницу"
End if

и вот я его недавно запустил первое ошибка: Element - переменная неизвестна!
возможно я не подключил нужную библиотеку
да и ещё возможная проблема браузер по умолчанию был firefox

[Хакер] :: Чтобы обрамить код специально предназначенным для этого тегом нужно сделать два действия: выделить код и нажать кнопочку "Code" сверху. Некоторые предпочитают выполнять три действия: выделять код, нажимать "Цвет шрифта" и выбирать в палитре один из кислотных цветов. Некоторые делают это систематически, а поэтому получают на сей раз замечание.

[Invader]

Прошу прощения не был ознакомлен с данным правилом,
впредь буду корректен

[Invader]

Всем огромное спасибо за не помощь
главное что с орфографией поправили
теперь буду писать вопросы грамотней

[alibek]

Всем огромное спасибо за не помощь
главное что с орфографией поправили
теперь буду писать вопросы грамотней

Пожалуйста. Грамотность — это немало.
Если бы ты еще FAQ не забыл прочесть, в котором сказано про Option Explicit, глядишь и подобных вопросов бы не возникало.

[Invader]

спасибо, просвятили....
Option Explicit ясн. стоит - тоесть просто в примере кода не указал и всё равно
проблема не решена
Element - variable defined

[RayShade]

Ну, надо перед

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

For Each Element in HTMLDocument.all.tags("TABLE")

Написать

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

Dim Element

Но вообще-то, я как вижу, тут сам подход кривой до безобразия. XmlHttp к примеру, умеет работать асинхронно, что тут совсем не используется никак. И потом, где этот код будет юзаться? Если в скрипте - то такой скрипт не во всех браузерах будет работать. Если в приложении - то см. выше замечание про асинхронность Да и синтаксис тогда поправить надо.

[Invader]

да в приложении

[Invader]

какой там синтаксис даите сылку
всё перекопал

[RayShade]

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

Dim XmlHttp As Object
Set XmlHttp = CreateObject("Microsoft.XmlHttp")
Xmlhttp.Open "GET", "http://www.mail.ru", False
XmlHttp.Send
If XmlHttp.Status = 200 Then
Dim HTMLDocument As Object
Set HTMLDocument = CreateObject("HTMLFile")
HTMLDocument.Clear
HTMLDocument.Open
HTMLDocument.write XmlHttp.ResponseText
Dim Element As Object
For Each Element in HTMLDocument.all.tags("TABLE")
If Element.ClassName = "frame" Then Msgbox Element.innerText
Next
Else
MsgBox XmlHttp.Status & ":" & XmlHttp.StatusText,vbCritical,"Не удалось загрузить страницу"
End if


[Invader]

спасибо
но код ничего не делает
возможно из-за тэга моя ошибка <TABLE ID="44">
его так и прописать...?

[RayShade]

Код ничего не делает, потому что он синтаксически правилен, а семантически туп.

[Invader]

ни знаю но заработало
правда строка 30
Ошибка "jQuery" - определение отсуствует
ну если отмена пару ещё выскакивающих
но потом всё нормально
а что можно использовать по лутше? направте на светлый путь

[RayShade]

jQuery это ошибка сайта mail.ru - наверняка они используют этот фреймворк, а при исполнении внутри xmlhttp он не того, не пашет.
В случае получения данных с mail.ru лучше всего грузить страницу в webbrowser, и уже потом в нем собственно работать с документом через DOM модель.

[Invader]

мне браузер не нужен
в плане того что значения должны попадать в программу
а браузер будет портить эстетичный вид вот если сделать чтоб его вообще не было
видно или придумал хотя тоже не ёмко
сохранить страницу на диск а потом перебирать элементы
но это только с получением а вот к примеру если я хочу в поле поиска скажем гуглы
написать да ещё и отправить и без браузера
скажем есть форма с 2 текстовыми полями и кнопка
text1.text - сам запрос
ну а text2.text ответ

[RayShade]

Кто мешает сделать его visible=false - вот и вид сохранится И это будет всяко удобнее, чем получать всю страницу и потом ее парсить черти как.

[Invader]

спасибо огромное
буду думать, замучился с решением
тема может быть закрыта

[Invader]

тут ещё такой момент я то разместил браузер
открываю страницу,
но как (расмотреть, обротиться) к ней в DOM модели
какую нибудь сылочку на это
в гугле перекопал
но там либо .NET или всяко разно но не по вопросу

[Хакер]

Свойство document возвращает корень DOM.

[Invader]

Хакер я не совсем понял я сделал следующее

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

Private Sub Command1_Click()

cboAddress.Text = "http://www.mail.ru"
cboAddress_Click
Text1.Text = brwWebBrowser.Document
End Sub

выдает значение в текстовом поле [object]
а как получить доступ к тегам, к классам их свойствам

[Хакер]

Это один из случаев, когда медицина бессильна...

brwWebBrowser.Document — это корень объектной модели документа. Вчитайся в эту фразу 13 раз.

[SSecurity]

И что самое интересное даже получив доступ к телу документа .... я подозреваю чтьо автор получит проблему связанную с доступом к нужной информации которая формируется AJAX-ом)

Посмотри на события браузера там есть DocumentDownloaded (чета типа того) и DocumentComplite (это когда все картинки загрузились и страница загружена), вот там и можешь доступ получать ....

а можешь например вызвать через метод Navigate2 нужный url и ждать нужного изменения свойства.