"Зависание" программы

[Niko]

Добрый день.

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

Private Sub Timer1_Timer()
XMLDoc.Load "http://..."
'обновляем данные форме
End Sub

Мне нужно в реальном времени следить за информацией которая постоянно меняется.
Все хорошо, только окно куда выводится информация постоянно подвисает на (1-3 сек, время загрузки XMLDoc.Load), а это очень мешает.
Как этого избежать?

[_@@@]

Как этого избежать?

Запустить XMLDoc.Load "http://..." в другом потоке. На VB будет сложно.

[Niko]

Угу, про потоки я и думал
Подскажите плиз где найти инфу как это сделать.

[tyomitch]

А нужно юзать именно XmlHttpRequest?

[Niko]

Информацию могу получить только с инет.странички.
Информацию нужно постоянно обновлять (чем чаще тем лучше)
Страничка в виде XML

[Konst_One]

async режим юзай

[Niko]

async действительно помог.
если async = true то страница грузится в другом потоке? (могу путаться с терминологией)
как определить загрузилась ли она.
я определяю так:

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

sValue1 = X.Attributes.getNamedItem("hp").Text
If Err.Number = 91 Then

т.е. если ошибка значит еще не загрузилась.
может как-нить правильнее можно?

[tyomitch]

Property readyState As Long